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

* Fix bug ID #35345, allow tstrings.text to exceed 2Gb

Browse Source 
git-svn-id: trunk@41852 -
This commit is contained in:
michael 2019-04-09 11:16:56 +00:00
parent 22777fee94
commit 08d6b446f0
2 changed files with 34 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/classes/classesh.inc
View File

@ -663,8 +663,12 @@ type
Function GetValueFromIndex(Index: Integer): string;
Procedure SetValueFromIndex(Index: Integer; const Value: string);
Procedure CheckSpecialChars;
Class Function GetNextLine (Const Value : String; Var S : String; Var P : Integer) : Boolean;
Function GetNextLinebreak (Const Value : String; Var S : String; Var P : Integer) : Boolean;
Class Function GetNextLine (Const Value : String; Var S : String; Var P : SizeInt) : Boolean;
Function GetNextLinebreak (Const Value : String; Var S : String; Var P : SizeInt) : Boolean;
{$IF (SizeOf(Integer) < SizeOf(SizeInt)) }
class function GetNextLine(const Value: string; var S: string; var P: Integer) : Boolean; deprecated;
function GetNextLineBreak(const Value: string; var S: string; var P: Integer) : Boolean; deprecated;
{$IFEND}
public
constructor Create;
destructor Destroy; override;

36
rtl/objpas/classes/stringl.inc
View File

@ -325,7 +325,7 @@ end;
Procedure TStrings.SetDelimitedText(const AValue: string);
var i,j:integer;
var i,j: SizeInt;
aNotFirst:boolean;
begin
CheckSpecialChars;
@ -542,7 +542,7 @@ end;
Function TStrings.GetTextStr: string;
Var P : Pchar;
I,L,NLS : Longint;
I,L,NLS : SizeInt;
S,NL : String;
begin
@ -608,11 +608,11 @@ begin
// Empty.
end;
Class Function TStrings.GetNextLine (Const Value : String; Var S : String; Var P : Integer) : Boolean;
Class Function TStrings.GetNextLine (Const Value : String; Var S : String; Var P : SizeInt) : Boolean;
Var
PS : PChar;
IP,L : Integer;
IP,L : SizeInt;
begin
L:=Length(Value);
@ -642,7 +642,7 @@ begin
Result:=True;
end;
Function TStrings.GetNextLineBreak (Const Value : String; Var S : String; Var P : Integer) : Boolean;
Function TStrings.GetNextLineBreak (Const Value : String; Var S : String; Var P : SizeInt) : Boolean;
Var
PS,PC,PP : PChar;
@ -663,11 +663,31 @@ begin
Result:=True;
end;
{$IF (SizeOf(Integer) < SizeOf(SizeInt)) }
class function TStrings.GetNextLine(const Value: string; var S: string; var P: Integer) : Boolean;
var
LP: SizeInt;
begin
LP := P;
Result := GetNextLine(Value, S, LP);
P := LP;
end;
function TStrings.GetNextLineBreak(const Value: string; var S: string; var P: Integer) : Boolean;
var
LP: SizeInt;
begin
LP := P;
Result := GetNextLineBreak(Value, S, LP);
P := LP;
end;
{$IFEND}
Procedure TStrings.DoSetTextStr(const Value: string; DoClear : Boolean);
Var
S : String;
P : Integer;
P : SizeInt;
begin
Try
@ -1037,7 +1057,7 @@ Var
Buffer : AnsiString;
BytesRead,
BufLen,
I,BufDelta : Longint;
I,BufDelta : SizeInt;
begin
if not IgnoreEncoding then
begin
@ -1082,7 +1102,7 @@ Var
T : string;
BytesRead,
BufLen,
I,BufDelta,
I,BufDelta: SizeInt;
PreambleLength : Longint;
begin
// reread into a buffer