From 1a57a65c5fe1a17f8b1d447051ff18559fdefb93 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 22 Mar 2025 12:28:07 +0100
Subject: [PATCH] * Fix tw13628b

---
 compiler/aasmcnst.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/aasmcnst.pas b/compiler/aasmcnst.pas
index 31ea30baca..f97f59608d 100644
--- a/compiler/aasmcnst.pas
+++ b/compiler/aasmcnst.pas
@@ -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;