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

* Fix tw13628b

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-22 12:28:07 +01:00
parent 4b5c6ba3fc
commit 1a57a65c5f
1 changed files with 1 additions and 1 deletions

2
compiler/aasmcnst.pas
View File

@ -1717,7 +1717,7 @@ implementation
{ terminating zero included }
datadef:=carraydef.getreusable(cansichartype,len+1);
datatcb.maybe_begin_aggregate(datadef);
ts:=tai_string.create_pchar(data,len);
ts:=tai_string.create_pchar(data,len+1); // +1 to include terminating 0
datatcb.emit_tai(ts,datadef);
datatcb.maybe_end_aggregate(datadef);
ansistrrecdef:=datatcb.end_anonymous_record;