paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* zero length string were generated multiple times

Browse Source
This commit is contained in:
pierre 1999-04-07 15:16:43 +00:00
parent e933fef38b
commit 47840896b4
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/cg386con.pas
View File

@ -257,9 +257,17 @@ implementation
st_shortstring:
begin
{ empty strings }
if p^.length=0 then
consts^.concat(new(pai_const,init_16bit(0)))
else
(* if p^.length=0 then
{ consts^.concat(new(pai_const,init_16bit(0)))}
{ this was not very good because several occurence
needed several data space ! }
begin
getmem(pc,3);
pc[0]:=#0;pc[1]:=#0;
consts^.concat(new(pai_string,init_length_pchar(pc,2)));
end
else *)
begin
{ truncate strings larger than 255 chars }
if p^.length>255 then
@ -402,7 +410,10 @@ implementation
end.
{
$Log$
Revision 1.30 1999-03-31 13:51:49 peter
Revision 1.31 1999-04-07 15:16:43 pierre
* zero length string were generated multiple times
Revision 1.30 1999/03/31 13:51:49 peter
* shortstring reuse fixed
Revision 1.29 1999/02/25 21:02:25 peter