paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed handling of zero-length strings (classes.inc: When converting

Browse Source 
empty strings from text forms to binary forms; reader.inc: When reading
  an empty string from a binary serialization)
This commit is contained in:
sg 2002-12-02 12:04:07 +00:00
parent 867e68938f
commit 3b8e03aef6
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/inc/classes.inc
View File

@ -880,6 +880,7 @@ var
procedure WriteString(s: String);
begin
Output.WriteByte(Length(s));
if Length(s) > 0 then
Output.Write(s[1], Length(s));
end;
@ -1189,7 +1190,12 @@ end;
{
$Log$
Revision 1.10 2002-09-07 15:15:24 peter
Revision 1.11 2002-12-02 12:04:07 sg
* Fixed handling of zero-length strings (classes.inc: When converting
empty strings from text forms to binary forms; reader.inc: When reading
an empty string from a binary serialization)
Revision 1.10 2002/09/07 15:15:24 peter
* old logs removed and tabs fixed
Revision 1.9 2002/07/16 13:32:51 florian

8
fcl/inc/reader.inc
View File

@ -194,6 +194,7 @@ var
begin
Read(i, 1);
SetLength(Result, i);
if i > 0 then
Read(Pointer(@Result[1])^, i);
end;
@ -1267,7 +1268,12 @@ end;
{
$Log$
Revision 1.6 2002-09-07 15:15:25 peter
Revision 1.7 2002-12-02 12:04:07 sg
* Fixed handling of zero-length strings (classes.inc: When converting
empty strings from text forms to binary forms; reader.inc: When reading
an empty string from a binary serialization)
Revision 1.6 2002/09/07 15:15:25 peter
* old logs removed and tabs fixed
}