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

* fixed CompareChar0, resolves #10151

Browse Source 
git-svn-id: trunk@9219 -
This commit is contained in:
florian 2007-11-12 20:01:57 +00:00
parent 0801c64813
commit c64ab62bdf
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/generic.inc
View File

@ -643,13 +643,12 @@ begin
while psrc<pend do
begin
b:=(ptrint(psrc^)-ptrint(pdest^));
if (b<>0) or (psrc^=0) or (pdest^=0) then
begin
if b<0 then
exit(-1)
else
else if b>0 then
exit(1);
end;
if (psrc^=0) or (pdest^=0) then
exit(0);
inc(pdest);
inc(psrc);
end;