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

* format(%u",[<qword>]); fixed

Browse Source 
* made test working

git-svn-id: trunk@13 -
This commit is contained in:
florian 2005-05-17 22:27:53 +00:00
parent d4194bce53
commit f949a53da8
3 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgld.pas
View File

@ -763,10 +763,10 @@ implementation
if is_64bit(lt) then if is_64bit(lt) then
begin begin
case torddef(lt).typ of case torddef(lt).typ of
s64bit: s64bit:
vtype:=vtInt64; vtype:=vtInt64;
u64bit: u64bit:
vtype:=vtQWord; vtype:=vtQWord;
end; end;
freetemp:=false; freetemp:=false;
vaddr:=true; vaddr:=true;

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

@ -234,8 +234,10 @@ begin
if Checkarg(vtinteger,false) then if Checkarg(vtinteger,false) then
Str(cardinal(Args[Doarg].VInteger),ToAdd) Str(cardinal(Args[Doarg].VInteger),ToAdd)
{$IFNDEF VIRTUALPASCAL} {$IFNDEF VIRTUALPASCAL}
else if CheckArg(vtInt64,true) then else if CheckArg(vtInt64,false) then
Str(qword(Args[DoArg].VInt64^),toadd) Str(qword(Args[DoArg].VInt64^),toadd)
else if CheckArg(vtQWord,true) then
Str(Args[DoArg].VQWord^,toadd);
{$ENDIF} {$ENDIF}
; ;
Width:=Abs(width); Width:=Abs(width);

7
tests/webtbs/tw3973.pp
View File

@ -139,6 +139,9 @@ begin
WriteLn; WriteLn;
if FailureCount = 0 then if FailureCount = 0 then
WriteLn('All passed') WriteLn('All passed')
else WriteLn(FailureCount, 'Failures'); else
ReadLn; begin
WriteLn(FailureCount, 'Failures');
halt(1);
end;
end. end.