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

* bug #645 fixed: format('%x',...) should writes unsigned hexadecimals, also

Browse Source 
prec fixed: max. value in delphi is 15 (and not 32)
This commit is contained in:
florian 1999-10-12 19:16:27 +00:00
parent 281c77f2b1
commit c9c758e318
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/sysstr.inc
View File

@ -811,14 +811,14 @@ begin
end; end;
'X' : begin 'X' : begin
Checkarg(vtinteger,true); Checkarg(vtinteger,true);
If Prec>32 then If Prec>15 then
ToAdd:=HexStr(Args[Doarg].VInteger,32) ToAdd:=HexStr(Args[Doarg].VInteger,15)
else else
begin begin
// determine minimum needed number of hex digits. // determine minimum needed number of hex digits.
Index:=1; Index:=1;
While ((1 shl (Index*4))<Args[DoArg].VInteger) and (index<8) do While (DWord(1 shl (Index*4))<DWord(Args[DoArg].VInteger)) and (index<8) do
inc(Index); inc(Index);
If Index>Prec then If Index>Prec then
Prec:=Index; Prec:=Index;
ToAdd:=HexStr(Args[DoArg].VInteger,Prec); ToAdd:=HexStr(Args[DoArg].VInteger,Prec);
@ -1137,7 +1137,11 @@ const
{ {
$Log$ $Log$
Revision 1.27 1999-10-03 19:42:40 peter Revision 1.28 1999-10-12 19:16:27 florian
* bug 645 fixed: format('%x',...) should writes unsigned hexadecimals, also
prec fixed: max. value in delphi is 15 (and not 32)
Revision 1.27 1999/10/03 19:42:40 peter
* fixed comparetext * fixed comparetext
Revision 1.26 1999/09/04 20:48:34 florian Revision 1.26 1999/09/04 20:48:34 florian