@@ -20,7 +20,7 @@ type
{ to calculate memory requirements }
pdynarray = ^tdynarray;
tdynarray = packed record
- refcount : longint;
+ refcount : ptrint;
high : tdynarrayindex;
end;
@@ -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);
@@ -27,7 +27,7 @@
999999999
}
-uses SysUtils,erroru;
+uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
procedure Check(a,b:ansistring);