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

* fixed forcing setelementn on the correct side in add nodes

Browse Source 
(pass_left_right() can switch the sides, so putting it in the
     correct location before calling that method is useless)

git-svn-id: trunk@18254 -
This commit is contained in:
Jonas Maebe 2011-08-17 20:12:47 +00:00
parent 275c6092e5
commit 6748a9a238
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgadd.pas
View File

@ -342,14 +342,14 @@ interface
begin
if nodetype<>addn then
internalerror(20080302);
{ setelementn is a special case, it must be on right }
if (nf_swapped in flags) and
(left.nodetype=setelementn) then
swapleftright;
{ no range support for smallsets }
if assigned(tsetelementnode(right).right) then
internalerror(20080303);
pass_left_right;
{ setelementn is a special case, it must be on right }
if (nf_swapped in flags) and
(left.nodetype=setelementn) then
swapleftright;
force_reg_left_right(false,false);
set_result_location_reg;
setbase:=tsetdef(left.resultdef).setbase;