Ver Fonte

* var back to out

git-svn-id: trunk@2607 -
daniel há 19 anos atrás
pai
commit
3a60adb3a1
1 ficheiros alterados com 4 adições e 4 exclusões
  1. 4 4
      rtl/inc/generic.inc

+ 4 - 4
rtl/inc/generic.inc

@@ -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;