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

* fixed inttohex overload choosing

Browse Source 
git-svn-id: trunk@8322 -
This commit is contained in:
Jonas Maebe 2007-08-28 19:30:56 +00:00
parent 9238ea2850
commit ffbb833805
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw3973.pp
View File

@ -128,7 +128,7 @@ var
Writeln(Format('high of int64 is: %d', [Longlong]), ' ', IntToHex(Longlong, 16)); Writeln(Format('high of int64 is: %d', [Longlong]), ' ', IntToHex(Longlong, 16));
{$IFDEF FPC} {$IFDEF FPC}
Quad := High(Quad); Quad := High(Quad);
Writeln(Format('high of quadword is: %u', [Quad]), ' ', IntToHex(Quad, 16)); Writeln(Format('high of quadword is: %u', [Quad]), ' ', IntToHex(int64(Quad), 16));
{$ENDIF} {$ENDIF}
end; end;