mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-06 01:29:55 +01:00
* var back to out
git-svn-id: trunk@2607 -
This commit is contained in:
parent
b2202654ca
commit
3a60adb3a1
@ -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;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user