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

tai_aggregatetypedconst.add_to_string: fix off-by-one errors

Browse Source
This commit is contained in:
Jonas Maebe 2025-03-23 20:54:38 +01:00
parent 91667644f4
commit f0cecf5367
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmcnst.pas
View File

@ -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);