From f0cecf536700060b56eb12c7c8db20ec6e839428 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 23 Mar 2025 20:54:38 +0100
Subject: [PATCH] tai_aggregatetypedconst.add_to_string: fix off-by-one errors

---
 compiler/aasmcnst.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/aasmcnst.pas b/compiler/aasmcnst.pas
index f97f59608d..a6341b36b9 100644
--- a/compiler/aasmcnst.pas
+++ b/compiler/aasmcnst.pas
@@ -740,7 +740,7 @@ implementation
              lent:=len1+len2;
              SetLength(strtai.str,lent+1);
              { also copy null terminator }
-             move(lother_string.str[0],strtai.str[len1+1],len2+1);
+             move(lother_string.str[0],strtai.str[len1],len2+1);
            end;
          ait_const:
            begin
@@ -749,8 +749,8 @@ implementation
              { it was already len+1 to hold the #0 -> realloc to len+2 }
              len1:=length(strtai.str);
              SetLength(strtai.str,len1+1);
-             strtai.str[len1]:=ansichar(tai_const(othertai).value);
-             strtai.str[len1+1]:=#0;
+             strtai.str[len1-1]:=ansichar(tai_const(othertai).value);
+             strtai.str[len1]:=#0;
            end;
          else
            internalerror(2014070102);