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

* fix for const strings

Browse Source
This commit is contained in:
pierre 1998-11-05 23:40:45 +00:00
parent 7d2232f3b2
commit 00a36623a8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386con.pas
View File

@ -221,7 +221,7 @@ implementation
else else
begin begin
{ also length and terminating zero } { also length and terminating zero }
getmem(pc,p^.length+2); getmem(pc,p^.length+3);
move(p^.value_str^,pc[1],p^.length+1); move(p^.value_str^,pc[1],p^.length+1);
pc[0]:=chr(p^.length); pc[0]:=chr(p^.length);
{ to overcome this problem we set the length explicitly } { to overcome this problem we set the length explicitly }
@ -306,7 +306,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.18 1998-11-05 15:26:38 pierre Revision 1.19 1998-11-05 23:40:45 pierre
* fix for const strings
Revision 1.18 1998/11/05 15:26:38 pierre
* fix for missing zero after string const * fix for missing zero after string const
Revision 1.17 1998/11/05 12:02:32 peter Revision 1.17 1998/11/05 12:02:32 peter