paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 14:00:06 +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} Function SwapInt64(x : int64): int64;{$ifdef USEINLINE}inline;{$endif}
Begin Begin
result:=swaplong(hi(x)); result:=swaplong(longint(hi(x)));
result:=result or (swaplong(lo(x)) shl 32); result:=result or (swaplong(longint(lo(x))) shl 32);
End; End;
@ -736,7 +736,7 @@ uses
maybequoted:=s; maybequoted:=s;
end; end;
function DePascalQuote(var s: string): Boolean; function DePascalQuote(var s: string): Boolean;
var var
destPos, sourcePos, len: Integer; destPos, sourcePos, len: Integer;
@ -769,9 +769,9 @@ uses
inc(destPos); inc(destPos);
t[destPos] := ch; t[destPos] := ch;
end; end;
end; end;
end; end;
function pchar2pstring(p : pchar) : pstring; function pchar2pstring(p : pchar) : pstring;
var var
@ -1234,7 +1234,10 @@ initialization
end. end.
{ {
$Log$ $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 * for-loop variable access removed
Revision 1.42 2004/08/31 21:44:18 olle Revision 1.42 2004/08/31 21:44:18 olle