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