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

* fixed little 1.0.xism

Browse Source
This commit is contained in:
marco 2004-11-22 05:53:44 +00:00
parent a20e4c2afe
commit e3812e3683
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/sysutils/sysstr.inc
View File

@ -1088,7 +1088,11 @@ begin
{$endif} {$endif}
If Index>Prec then If Index>Prec then
Prec:=Index; Prec:=Index;
{$ifdef ver1_0}
ToAdd:=HexStr(int64(vl),Prec);
{$else}
ToAdd:=HexStr(qword(vl),Prec); ToAdd:=HexStr(qword(vl),Prec);
{$endif}
end; end;
end; end;
'%': ToAdd:='%'; '%': ToAdd:='%';
@ -2230,7 +2234,10 @@ const
{ {
$Log$ $Log$
Revision 1.19 2004-11-21 19:33:20 marco Revision 1.20 2004-11-22 05:53:44 marco
* fixed little 1.0.xism
Revision 1.19 2004/11/21 19:33:20 marco
* %x 64-bit support * %x 64-bit support
Revision 1.18 2004/11/21 16:44:01 marco Revision 1.18 2004/11/21 16:44:01 marco