|
@@ -374,7 +374,7 @@ end;
|
|
|
|
|
|
{$ifndef CPU64}
|
|
|
|
|
|
-procedure fpc_shortstr_qword(v : qword;len : longint;out s : shortstring);[public,alias:'FPC_SHORTSTR_QWORD']; compilerproc;
|
|
|
+procedure fpc_shortstr_qword(v : qword;len : SizeInt;out s : shortstring);[public,alias:'FPC_SHORTSTR_QWORD']; compilerproc;
|
|
|
begin
|
|
|
int_str(v,s);
|
|
|
if length(s)<len then
|
|
@@ -382,7 +382,7 @@ begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
-procedure fpc_shortstr_int64(v : int64;len : longint;out s : shortstring);[public,alias:'FPC_SHORTSTR_INT64']; compilerproc;
|
|
|
+procedure fpc_shortstr_int64(v : int64;len : SizeInt;out s : shortstring);[public,alias:'FPC_SHORTSTR_INT64']; compilerproc;
|
|
|
begin
|
|
|
int_str(v,s);
|
|
|
if length(s)<len then
|