[Fixed]v1.40 Problem with StrCmp (P16 only)

[Dany]

Fixed in bèta v1.50.

Hi, the code below results in "0" in variable "Shrt":

Code: Select all

var Shrt: short;
    S1, S2: string[10];
...
  S1 := '1235';
  S2 := '1236';
  Shrt := StrCmp(S1, S2);

No matter the contents of S1 and S2, the result of StrCmp is always 0.

Thanks in advance!

p.s. code was compiled for P16F877A

[Dany]

H, I did try to write my own code for StrCmp for a 16F877A and it did also not work.

Fixed in bèta v1.50.
The reason is that expressions like the one below are not correctly executed:

Code: Select all

var Shrt: short;
    S1, S2: string[10];
    I: word;
...
  I := 0;
  while (S1[I] > 0) and (S2[I] > 0) and (S1[I] = S2[I]) do
  begin
    Inc(I);
  end;

No matter if S1 differs from S[2] or not, the while loop is executed as long one of both chars is not zero.

Expression "S1 = S2" returns always true apparently. After some investigations it seems that "S1 < S2" and "S1 < S2" always return false.

Thanks in advance!

p.s. for P18 this type of code is executed correctly.

[srdjan]

Hi,

H, I did try to write my own code for StrCmp for a 16F877A and it did also not work.

The reason is that expressions like the one below are not correctly executed:

Code: Select all

var Shrt: short;
    S1, S2: string[10];
    I: word;
...
  I := 0;
  while (S1[I] > 0) and (S2[I] > 0) and (S1[I] = S2[I]) do
  begin
    Inc(I);
  end;

No matter if S1 differs from S[2] or not, the while loop is executed as long one of both chars is not zero.

Expression "S1 = S2" returns always true apparently. After some investigations it seems that "S1 < S2" and "S1 < S2" always return false.

Thanks in advance!

p.s. for P18 this type of code is executed correctly.

Ok, I found it. Fixed. Thanks.

[Dany]

Thanks srdjan!