paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:50:18 +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); FillChar(Pointer(StringOfChar)^,Length(StringOfChar),c);
end; 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 begin
SetLength(S,Len); SetLength(S,Len);
If (Buf<>Nil) then 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; end;
Procedure SetString (Var S : Shortstring; Buf : PChar; Len : SizeInt); Procedure SetString (Out S : Shortstring; Buf : PChar; Len : SizeInt);
begin begin
If Len > High(S) then If Len > High(S) then
Len := High(S); 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(const substr:shortstring;const s:shortstring):SizeInt;
Function Pos(C:Char;const s:shortstring):SizeInt; Function Pos(C:Char;const s:shortstring):SizeInt;
Function Pos (const Substr : ShortString; const Source : AnsiString) : SizeInt; Function Pos (const Substr : ShortString; const Source : AnsiString) : SizeInt;
Procedure SetString (var S : Shortstring; Buf : PChar; Len : SizeInt); Procedure SetString (out S : Shortstring; Buf : PChar; Len : SizeInt);
Procedure SetString (var S : AnsiString; Buf : PChar; Len : SizeInt); Procedure SetString (out S : AnsiString; Buf : PChar; Len : SizeInt);
Function upCase(const s:shortstring):shortstring; Function upCase(const s:shortstring):shortstring;
Function lowerCase(const s:shortstring):shortstring; overload; Function lowerCase(const s:shortstring):shortstring; overload;
Function Space(b:byte):shortstring; 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 Insert (Const Source : WideString; Var S : WideString; Index : SizeInt);
Procedure Delete (Var S : WideString; Index,Size: SizeInt); Procedure Delete (Var S : WideString; Index,Size: SizeInt);
Procedure SetString (Var S : WideString; Buf : PWideChar; Len : SizeInt); Procedure SetString (Out S : WideString; Buf : PWideChar; Len : SizeInt);
Procedure SetString (Var S : WideString; Buf : PChar; Len : SizeInt); Procedure SetString (Out S : WideString; Buf : PChar; Len : SizeInt);
function WideCharToString(S : PWideChar) : AnsiString; function WideCharToString(S : PWideChar) : AnsiString;
function StringToWideChar(const Src : AnsiString;Dest : PWideChar;DestSize : SizeInt) : PWideChar; function StringToWideChar(const Src : AnsiString;Dest : PWideChar;DestSize : SizeInt) : PWideChar;

4
rtl/inc/wstrings.inc
View File

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