|
@@ -1012,7 +1012,7 @@ function align(addr : Pointer;alignment : PtrInt) : Pointer;{$ifdef SYSTEMINLINE
|
|
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_INT_STR_LONGINT}
|
|
|
|
|
|
-procedure int_str(l:longint;var s:string);
|
|
|
+procedure int_str(l:longint;out s:string);
|
|
|
|
|
|
var m:cardinal;
|
|
|
p:byte;
|
|
@@ -1039,7 +1039,7 @@ end;
|
|
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_INT_STR_LONGWORD}
|
|
|
|
|
|
-procedure int_str(l:longword;var s:string);
|
|
|
+procedure int_str(l:longword;out s:string);
|
|
|
|
|
|
var m:longword;
|
|
|
p:byte;
|
|
@@ -1065,7 +1065,7 @@ end;
|
|
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_INT_STR_INT64}
|
|
|
|
|
|
-procedure int_str(l:int64;var s:string);
|
|
|
+procedure int_str(l:int64;out s:string);
|
|
|
|
|
|
var m:qword;
|
|
|
p:byte;
|
|
@@ -1091,7 +1091,7 @@ end;
|
|
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_INT_STR_QWORD}
|
|
|
|
|
|
-procedure int_str(l:qword;var s:string);
|
|
|
+procedure int_str(l:qword;out s:string);
|
|
|
|
|
|
var m:qword;
|
|
|
p:byte;
|