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

* fixed tb0488 on unix platforms (missing cwstring uses)

Browse Source 
* 64bit big-endian fix of dynamic array handling
* added qword support for %x format specifier of format() functions

git-svn-id: trunk@1773 -
This commit is contained in:
tom_at_work 2005-11-16 20:50:38 +00:00
parent 9032cdafbe
commit 9d7ac02696
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/dynarr.inc
View File

@ -20,7 +20,7 @@ type
{ to calculate memory requirements }
pdynarray = ^tdynarray;
tdynarray = packed record
refcount : longint;
refcount : ptrint;
high : tdynarrayindex;
end;

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

@ -300,6 +300,12 @@ begin
vq:=Cardinal(Args[Doarg].VInteger);
index:=16;
end
else
if CheckArg(vtQWord, false) then
begin
vq:=Qword(Args[DoArg].VQWord^);
index:=31;
end
else
begin
CheckArg(vtInt64,true);

2
tests/tbs/tb0488.pp
View File

@ -27,7 +27,7 @@
999999999
}
uses SysUtils,erroru;
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
procedure Check(a,b:ansistring);
begin