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

* write terminating 0 for widestring constants

Browse Source
This commit is contained in:
peter 2002-12-29 16:58:11 +00:00
parent cec4ac46aa
commit 0de52b9054
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgcon.pas
View File

@ -356,6 +356,8 @@ implementation
Consts.concat(Tai_label.Create(l1)); Consts.concat(Tai_label.Create(l1));
for i:=0 to len-1 do for i:=0 to len-1 do
Consts.concat(Tai_const.Create_16bit(pcompilerwidestring(value_str)^.data[i])); Consts.concat(Tai_const.Create_16bit(pcompilerwidestring(value_str)^.data[i]));
{ terminating zero }
Consts.concat(Tai_const.Create_16bit(0));
{ return the offset of the real string } { return the offset of the real string }
lab_str:=l2; lab_str:=l2;
end; end;
@ -531,7 +533,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.24 2002-12-07 14:10:21 carl Revision 1.25 2002-12-29 16:58:11 peter
* write terminating 0 for widestring constants
Revision 1.24 2002/12/07 14:10:21 carl
* fix warnings by adding explicit typecasts * fix warnings by adding explicit typecasts
Revision 1.23 2002/11/25 17:43:17 peter Revision 1.23 2002/11/25 17:43:17 peter