paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 07:09:29 +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;
'X' : begin
Checkarg(vtinteger,true);
If Prec>32 then
ToAdd:=HexStr(Args[Doarg].VInteger,32)
If Prec>15 then
ToAdd:=HexStr(Args[Doarg].VInteger,15)
else
begin
// determine minimum needed number of hex digits.
Index:=1;
While ((1 shl (Index*4))<Args[DoArg].VInteger) and (index<8) do
inc(Index);
While (DWord(1 shl (Index*4))<DWord(Args[DoArg].VInteger)) and (index<8) do
inc(Index);
If Index>Prec then
Prec:=Index;
ToAdd:=HexStr(Args[DoArg].VInteger,Prec);
@ -1137,7 +1137,11 @@ const
{
$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
Revision 1.26 1999/09/04 20:48:34 florian