[fpc-devel]Bug in AnsiStrComp

[Mattias Gaertner]

Hi devels,

I found a small bug in the functions AnsiStrComp, AnsiStrIComp, AnsiStrLComp and AnsiStrLIComp.
For example AnsiStrComp(nil,'fpc') crashes with an AV.

All 4 funcs start with:

  If S1=Nil then
    begin
    If S2=Nil Then Exit;
    result:=-1;
    end;

Just add behind the 'result:=-1;' an 'exit;' to fix this:

  If S1=Nil then
    begin
      If S2=Nil Then Exit;
      result:=-1;
      exit;
    end;


Mattias Gaertner