paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 07:27:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* range check error in swapint64

Browse Source
This commit is contained in:
peter 2004-09-21 20:32:40 +00:00
parent 690f5e22d1
commit d99a5f58f3
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cutils.pas
View File

@ -215,8 +215,8 @@ uses
Function SwapInt64(x : int64): int64;{$ifdef USEINLINE}inline;{$endif}
Begin
result:=swaplong(hi(x));
result:=result or (swaplong(lo(x)) shl 32);
result:=swaplong(longint(hi(x)));
result:=result or (swaplong(longint(lo(x))) shl 32);
End;
@ -1234,7 +1234,10 @@ initialization
end.
{
$Log$
Revision 1.43 2004-09-13 20:26:45 peter
Revision 1.44 2004-09-21 20:32:40 peter
* range check error in swapint64
Revision 1.43 2004/09/13 20:26:45 peter
* for-loop variable access removed
Revision 1.42 2004/08/31 21:44:18 olle