paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 06:05:57 +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

17
rtl/inc/generic.inc
View File

@ -285,8 +285,8 @@ begin
pend:=pword(high(PtrUInt)-sizeof(word))
else
pend:=psrc+len;
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
if (ptruint(psrc) mod 2)<>0 then
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
if (ptruint(psrc) mod 2)<>0 then
while psrc<pend do
begin
if unaligned(psrc^)=b then
@ -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
exit(1);
end;
if b<0 then
exit(-1)
else if b>0 then
exit(1);
if (psrc^=0) or (pdest^=0) then
exit(0);
inc(pdest);
inc(psrc);
end;