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

* undid peters change. Constant ansistrings should end on null too cd ..

Browse Source
This commit is contained in:
michael 1998-11-04 21:07:43 +00:00
parent 233c8c8c79
commit da09fad8f9
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

@ -229,7 +229,7 @@ implementation
pc[p^.length]:=#0;
{ 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)));
consts^.concat(new(pai_string,init_length_pchar(pc,p^.length+1)));
end;
end;
st_shortstring:
@ -325,7 +325,10 @@ implementation
end.
{
$Log$
Revision 1.15 1998-11-04 10:11:36 peter
Revision 1.16 1998-11-04 21:07:43 michael
* undid peters change. Constant ansistrings should end on null too cd ..
Revision 1.15 1998/11/04 10:11:36 peter
* ansistring fixes
Revision 1.14 1998/09/17 09:42:13 peter