浏览代码

* 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;