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

* Fix comparedword and change it to cardinal.

Browse Source 
git-svn-id: trunk@7804 -
This commit is contained in:
daniel 2007-06-24 21:17:43 +00:00
parent e1125c3f7f
commit 8ee5966a2e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/generic.inc
View File

@ -262,20 +262,20 @@ end;
{$ifndef FPC_SYSTEM_HAS_COMPAREDWORD}
function CompareDWord(Const buf1,buf2;len:SizeInt):SizeInt;
type
longintarray = array [0..high(sizeint) div 4-1] of longint;
cardinalarray = array [0..high(sizeint) div 4-1] of cardinal;
var
I : longint;
I : int64;
begin
I:=0;
if (Len<>0) and (@Buf1<>@Buf2) then
begin
while (longintarray(Buf1)[I]=longintarray(Buf2)[I]) and (I<Len) do
while (cardinalarray(Buf1)[I]=cardinalarray(Buf2)[I]) and (I<Len) do
inc(I);
if I=Len then {No difference}
I:=0
else
begin
I:=longintarray(Buf1)[I]-longintarray(Buf2)[I];
I:=int64(cardinalarray(Buf1)[I])-int64(cardinalarray(Buf2)[I]);
if I>0 then
I:=1
else