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

+ Fixed bug in format, reported by Romio Pedchecko

Browse Source
This commit is contained in:
michael 1999-07-18 17:27:28 +00:00
parent b39de8e761
commit d47e0e0e11
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/sysstr.inc
View File

@ -821,8 +821,8 @@ begin
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 do While ((1 shl (Index*4))<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);
@ -1141,7 +1141,10 @@ const
{ {
$Log$ $Log$
Revision 1.22 1999-06-19 07:39:44 michael Revision 1.23 1999-07-18 17:27:28 michael
+ Fixed bug in format, reported by Romio Pedchecko
Revision 1.22 1999/06/19 07:39:44 michael
Implemented strtofloat Implemented strtofloat
Revision 1.21 1999/06/05 20:47:03 michael Revision 1.21 1999/06/05 20:47:03 michael