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

+ format("%d",[<qword>]); fixes 4489

Browse Source 
git-svn-id: trunk@1640 -
This commit is contained in:
florian 2005-11-04 19:01:33 +00:00
parent 236586e749
commit ba22b0b3af
3 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6347,6 +6347,7 @@ tests/webtbs/tw4398.pp svneol=native#text/plain
tests/webtbs/tw4427.pp svneol=native#text/plain
tests/webtbs/tw4428.pp svneol=native#text/plain
tests/webtbs/tw4450.pp svneol=native#text/plain
tests/webtbs/tw4489.pp -text svneol=unset#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

6
rtl/objpas/sysutils/sysformt.inc
View File

@ -209,8 +209,10 @@ begin
'D' : begin
if Checkarg(vtinteger,false) then
Str(Args[Doarg].VInteger,ToAdd)
else if CheckArg(vtInt64,true) then
Str(Args[DoArg].VInt64^,toadd);
else if CheckArg(vtInt64,false) then
Str(Args[DoArg].VInt64^,toadd)
else if CheckArg(vtQWord,true) then
Str(int64(Args[DoArg].VQWord^),toadd);
Width:=Abs(width);
Index:=Prec-Length(ToAdd);
If ToAdd[1]<>'-' then

25
tests/webtbs/tw4489.pp Normal file
View File

@ -0,0 +1,25 @@
{ Source provided for Free Pascal Bug Report 4489 }
{ Submitted by "Vincent Snijders" on 2005-11-04 }
{ e-mail: vsnijders@quicknet.nl }
program Project1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils
{ add your units here };
var
s: string;
u: SizeUInt;
d: qword;
begin
d:=11111111;
u:=1111;
s := format('pid=%d', [u]);
writeln(s);
s := format('pid=%d', [d]);
writeln(s);
end.