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

* fix for missing zero after string const

Browse Source
This commit is contained in:
pierre 1998-11-05 15:26:38 +00:00
parent 85b80b7aef
commit bddaa79d02
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386con.pas
View File

@ -226,7 +226,8 @@ implementation
pc[0]:=chr(p^.length);
{ to overcome this problem we set the length explicitly }
{ with the ending null char }
consts^.concat(new(pai_string,init_length_pchar(pc,p^.length+1)));
pc[p^.length+1]:=#0;
consts^.concat(new(pai_string,init_length_pchar(pc,p^.length+2)));
end;
end;
end;
@ -305,7 +306,10 @@ implementation
end.
{
$Log$
Revision 1.17 1998-11-05 12:02:32 peter
Revision 1.18 1998-11-05 15:26:38 pierre
* fix for missing zero after string const
Revision 1.17 1998/11/05 12:02:32 peter
* released useansistring
* removed -Sv, its now available in fpc modes