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

+ Merged format fix from fixbranch

Browse Source
This commit is contained in:
michael 2000-12-06 22:55:29 +00:00
parent 35c8fab00c
commit 93167eabd0
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/objpas/sysstr.inc
View File

@ -841,12 +841,12 @@ begin
else if CheckArg(vtInt64,true) then
Str(Args[DoArg].VInt64^,toadd);
Width:=Abs(width);
While Length(ToAdd)<Prec do
begin
Index:=Prec-Length(ToAdd);
If Index>64 then Index:=64;
ToAdd:=Copy(Zero,1,Index)+ToAdd;
end;
Index:=Prec-Length(ToAdd);
If ToAdd[1]<>'-' then
ToAdd:=StringOfChar('0',Index)+ToAdd
else
// + 1 to accomodate for - sign in length !!
Insert(StringOfChar('0',Index+1),toadd,2);
end;
'E' : begin
CheckArg(vtExtended,true);
@ -1269,16 +1269,11 @@ const
{
$Log$
Revision 1.7 2000-11-23 11:04:26 sg
* Protected some Move()'s by 'if' clauses so that the Move won't be
executed when the length would be 0. Otherwise, the corresponding
routines might get an RTE when compiled with $R+.
Revision 1.8 2000-12-06 22:55:29 michael
+ Merged format fix from fixbranch
Revision 1.6 2000/11/13 14:41:20 marco
* Unix renamefest for defines
Revision 1.5 2000/09/30 15:51:41 michael
+ Merged int64 fix from fixbranch
Revision 1.1.2.3 2000/12/06 22:51:58 michael
+ Fixed formatting of 0-expanded negative integer
Revision 1.1.2.2 2000/09/30 15:07:41 michael
+ Fixed format to handle int64 in case of "d"