paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 11:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

1.0.x fixes

Browse Source
This commit is contained in:
peter 2005-01-28 19:50:51 +00:00
parent 6c4d142a0f
commit 1768ad35ce
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/inc/astrings.inc
View File

@ -37,9 +37,16 @@
Type
PAnsiRec = ^TAnsiRec;
TAnsiRec = Packed Record
{$ifndef hascompilerproc}
Maxlen,
len,
ref : Longint;
First : Char;
{$else}
Ref,
Len : SizeInt;
First : Char;
{$endif}
end;
Const
@ -372,18 +379,22 @@ Var
MaxI,Temp : SizeInt;
begin
if pointer(S1)=pointer(S2) then
begin
fpc_AnsiStr_Compare:=0;
exit;
end;
begin
result:=0;
exit;
end;
Maxi:=Length(S1);
temp:=Length(S2);
If MaxI>Temp then
MaxI:=Temp;
Temp:=CompareByte(S1[1],S2[1],MaxI);
if temp=0 then
temp:=Length(S1)-Length(S2);
fpc_AnsiStr_Compare:=Temp;
MaxI:=Temp;
if MaxI>0 then
begin
result:=CompareByte(S1[1],S2[1],MaxI);
if result=0 then
result:=Length(S1)-Length(S2);
end
else
result:=Length(S1)-Length(S2);
end;
@ -868,7 +879,10 @@ end;
{
$Log$
Revision 1.53 2005-01-25 18:50:45 peter
Revision 1.54 2005-01-28 19:50:51 peter
1.0.x fixes
Revision 1.53 2005/01/25 18:50:45 peter
* 1.0.x fix
Revision 1.52 2005/01/09 10:38:59 florian