paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 09:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@1896 -
This commit is contained in:
Jonas Maebe 2005-12-07 16:06:34 +00:00
parent d7acb80e11
commit 2dea0c793f
5 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/astrings.inc
View File

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

2
rtl/inc/sstrings.inc
View File

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

4
rtl/inc/systemh.inc
View File

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

4
rtl/inc/wstringh.inc
View File

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

4
rtl/inc/wstrings.inc
View File

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