paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 20:00:15 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aasmcnst.pas
View File

@ -1717,7 +1717,7 @@ implementation
{ terminating zero included } { terminating zero included }
datadef:=carraydef.getreusable(cansichartype,len+1); datadef:=carraydef.getreusable(cansichartype,len+1);
datatcb.maybe_begin_aggregate(datadef); 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.emit_tai(ts,datadef);
datatcb.maybe_end_aggregate(datadef); datatcb.maybe_end_aggregate(datadef);
ansistrrecdef:=datatcb.end_anonymous_record; ansistrrecdef:=datatcb.end_anonymous_record;