paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 19:22:05 +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

15
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;
@ -736,7 +736,7 @@ uses
maybequoted:=s;
end;
function DePascalQuote(var s: string): Boolean;
var
destPos, sourcePos, len: Integer;
@ -769,9 +769,9 @@ uses
inc(destPos);
t[destPos] := ch;
end;
end;
end;
end;
function pchar2pstring(p : pchar) : pstring;
var
@ -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