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

* only save/restore nf_forcevaria flag when reversing order of

Browse Source 
arrayconstructor elements, since the other flags are element specific
This commit is contained in:
Jonas Maebe 2001-11-07 13:52:52 +00:00
parent 2a04e66b42
commit c9f75e434f
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nld.pas
View File

@ -743,9 +743,9 @@ implementation
{ we need a copy here, because self is destroyed }
{ by firstpass later }
hp:=tarrayconstructornode(getcopy);
{ we also need a copy of the flags to restore later (e.g. for }
{ forcevaria) (JM) }
orgflags := flags;
{ we also need a copy of the nf_ forcevaria flag to restore }
{ later) (JM) }
orgflags := flags * [nf_forcevaria];
while assigned(hp) do
begin
thp:=tarrayconstructornode(hp.right);
@ -753,7 +753,7 @@ implementation
chp:=hp;
hp:=thp;
end;
chp.flags := orgflags;
chp.flags := chp.flags+orgflags;
include(chp.flags,nf_cargswap);
chp.location.loc:=LOC_MEM;
calcregisters(chp,0,0,0);
@ -821,7 +821,11 @@ begin
end.
{
$Log$
Revision 1.29 2001-11-02 22:58:02 peter
Revision 1.30 2001-11-07 13:52:52 jonas
* only save/restore nf_forcevaria flag when reversing order of
arrayconstructor elements, since the other flags are element specific
Revision 1.29 2001/11/02 22:58:02 peter
* procsym definition rewrite
Revision 1.28 2001/10/31 17:34:20 jonas