paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:08:04 +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; lent:=len1+len2;
SetLength(strtai.str,lent+1); SetLength(strtai.str,lent+1);
{ also copy null terminator } { 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; end;
ait_const: ait_const:
begin begin
@ -749,8 +749,8 @@ implementation
{ it was already len+1 to hold the #0 -> realloc to len+2 } { it was already len+1 to hold the #0 -> realloc to len+2 }
len1:=length(strtai.str); len1:=length(strtai.str);
SetLength(strtai.str,len1+1); SetLength(strtai.str,len1+1);
strtai.str[len1]:=ansichar(tai_const(othertai).value); strtai.str[len1-1]:=ansichar(tai_const(othertai).value);
strtai.str[len1+1]:=#0; strtai.str[len1]:=#0;
end; end;
else else
internalerror(2014070102); internalerror(2014070102);