Browse Source

* fixed (harmless) class cast error

git-svn-id: trunk@21860 -
Jonas Maebe 13 years ago
parent
commit
276a0918f5
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncgcal.pas

+ 1 - 1
compiler/ncgcal.pas

@@ -530,7 +530,7 @@ implementation
                          if (hp2.nodetype=typeconvn) and
                          if (hp2.nodetype=typeconvn) and
                             (tunarynode(hp2).left.nodetype=addrn) then
                             (tunarynode(hp2).left.nodetype=addrn) then
                            hp2:=tunarynode(tunarynode(hp2).left).left
                            hp2:=tunarynode(tunarynode(hp2).left).left
-                         else if tunarynode(hp2).nodetype=addrn then
+                         else if hp2.nodetype=addrn then
                            hp2:=tunarynode(hp2).left;
                            hp2:=tunarynode(hp2).left;
                          location_freetemp(current_asmdata.CurrAsmList,hp2.location);
                          location_freetemp(current_asmdata.CurrAsmList,hp2.location);
                          hp:=tarrayconstructornode(hp).right;
                          hp:=tarrayconstructornode(hp).right;