Преглед изворни кода

* fixed (harmless) class cast error

git-svn-id: trunk@21860 -
Jonas Maebe пре 13 година
родитељ
комит
276a0918f5
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/ncgcal.pas

+ 1 - 1
compiler/ncgcal.pas

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