[fpc-devel] sysstr patch

[Micha Nelissen]

petr.kristan at epos.cz wrote:
> @@ -335,11 +336,12 @@
>      Result:=1;
>      exit;
>      end;
> -  Repeat
> +  While (Result=0) and (S1^<>#0) and (S2^<>#0) do 

You only have to check one of S1 or S2 being unequal to zero. (Otherwise
they would be different anyway).

Micha