소스 검색

* 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