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

* revert the changes from b0d61558e3, as 61397d40ae fixes it more correctly

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-04-24 23:12:49 +02:00
parent 61397d40ae
commit 7f03fb6966
1 changed files with 6 additions and 6 deletions

12
compiler/nadd.pas
View File

@ -2021,7 +2021,7 @@ implementation
end;
var
constr : tnode;
elem : tnode;
para : tcallparanode;
isarrconstrl,
isarrconstrr : boolean;
@ -2050,14 +2050,14 @@ implementation
if isarrconstrl then
begin
index:=0;
constr:=left;
left:=nil;
elem:=tarrayconstructornode(left).left;
tarrayconstructornode(left).left:=nil;
end
else
begin
index:=high(asizeint);
constr:=right;
right:=nil;
elem:=tarrayconstructornode(right).left;
tarrayconstructornode(right).left:=nil;
end;
{ we use the fact that insert() caps the index to avoid a copy }
@ -2066,7 +2066,7 @@ implementation
ccallparanode.create(
aktassignmentnode.left.getcopy,
ccallparanode.create(
constr,nil)));
elem,nil)));
result:=cinlinenode.create(in_insert_x_y_z,false,para);
include(aktassignmentnode.assignmentnodeflags,anf_assign_done_in_right);