* made the target parameter of SetString an "out" instead of "var" parameter

git-svn-id: trunk@1896 -

rtl/inc/astrings.inc

@@ -752,7 +752,7 @@ begin
   FillChar(Pointer(StringOfChar)^,Length(StringOfChar),c);
 end;
 
-Procedure SetString (Var S : AnsiString; Buf : PChar; Len : SizeInt); {$IFNDEF VER2_0} Inline; {$ENDIF}
+Procedure SetString (Out S : AnsiString; Buf : PChar; Len : SizeInt); {$IFNDEF VER2_0} Inline; {$ENDIF}
 begin
   SetLength(S,Len);
   If (Buf<>Nil) then

rtl/inc/sstrings.inc

@@ -830,7 +830,7 @@ fpc_Val_Real_ShortStr:=fpc_Val_Real_ShortStr*10+(ord(s[code])-ord('0'));
 end;
 
 
-Procedure SetString (Var S : Shortstring; Buf : PChar; Len : SizeInt);
+Procedure SetString (Out S : Shortstring; Buf : PChar; Len : SizeInt);
 begin
   If Len > High(S) then
     Len := High(S);

rtl/inc/systemh.inc

@@ -458,8 +458,8 @@ Procedure Insert(source:Char;var s:shortstring;index:SizeInt);
 Function  Pos(const substr:shortstring;const s:shortstring):SizeInt;
 Function  Pos(C:Char;const s:shortstring):SizeInt;
 Function  Pos (const Substr : ShortString; const Source : AnsiString) : SizeInt;
-Procedure SetString (var S : Shortstring; Buf : PChar; Len : SizeInt);
-Procedure SetString (var S : AnsiString; Buf : PChar; Len : SizeInt);
+Procedure SetString (out S : Shortstring; Buf : PChar; Len : SizeInt);
+Procedure SetString (out S : AnsiString; Buf : PChar; Len : SizeInt);
 Function  upCase(const s:shortstring):shortstring;
 Function  lowerCase(const s:shortstring):shortstring; overload;
 Function  Space(b:byte):shortstring;

rtl/inc/wstringh.inc

@@ -28,8 +28,8 @@ Function UpCase(const s : WideString) : WideString;
 
 Procedure Insert (Const Source : WideString; Var S : WideString; Index : SizeInt);
 Procedure Delete (Var S : WideString; Index,Size: SizeInt);
-Procedure SetString (Var S : WideString; Buf : PWideChar; Len : SizeInt);
-Procedure SetString (Var S : WideString; Buf : PChar; Len : SizeInt);
+Procedure SetString (Out S : WideString; Buf : PWideChar; Len : SizeInt);
+Procedure SetString (Out S : WideString; Buf : PChar; Len : SizeInt);
 
 function WideCharToString(S : PWideChar) : AnsiString;
 function StringToWideChar(const Src : AnsiString;Dest : PWideChar;DestSize : SizeInt) : PWideChar;

rtl/inc/wstrings.inc

@@ -933,7 +933,7 @@ begin
 end;
 
 
-Procedure SetString (Var S : WideString; Buf : PWideChar; Len : SizeInt);
+Procedure SetString (Out S : WideString; Buf : PWideChar; Len : SizeInt);
 var
   BufLen: SizeInt;
 begin
@@ -949,7 +949,7 @@ begin
 end;
 
 
-Procedure SetString (Var S : WideString; Buf : PChar; Len : SizeInt);
+Procedure SetString (Out S : WideString; Buf : PChar; Len : SizeInt);
 var
   BufLen: SizeInt;
 begin