paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed hex printing for $10 with %x

Browse Source
This commit is contained in:
peter 2000-07-04 17:12:46 +00:00
parent 17ee448ad9
commit deb5cc7bf2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysstr.inc
View File

@ -855,7 +855,7 @@ begin
begin
// determine minimum needed number of hex digits.
Index:=1;
While (DWord(1 shl (Index*4))<DWord(Args[DoArg].VInteger)) and (index<8) do
While (DWord(1 shl (Index*4))<=DWord(Args[DoArg].VInteger)) and (index<8) do
inc(Index);
If Index>Prec then
Prec:=Index;
@ -1175,7 +1175,10 @@ const
{
$Log$
Revision 1.34 2000-05-08 17:03:02 sg
Revision 1.35 2000-07-04 17:12:46 peter
* fixed hex printing for $10 with %x
Revision 1.34 2000/05/08 17:03:02 sg
* Changed CompareMem to CompareMemRange and added new (Delphi compatible)
CompareMem. (CompareMem needs a Boolean as result type, not Integer)