浏览代码

* fix infinite loop in createinlineparas

git-svn-id: trunk@1456 -
peter 20 年之前
父节点
当前提交
f622915690
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/ncal.pas

+ 1 - 1
compiler/ncal.pas

@@ -2184,8 +2184,8 @@ type
                     para.left := ctypeconvnode.create_internal(cderefnode.create(ctemprefnode.create(tempnode)),para.left.resulttype);
                     addstatement(deletestatement,ctempdeletenode.create(tempnode));
                   end;
-                para := tcallparanode(para.right);
               end;
+            para := tcallparanode(para.right);
           end;
         { local variables }
         if not assigned(tprocdef(procdefinition).localst) or