Procházet zdrojové kódy

* fix infinite loop in createinlineparas

git-svn-id: trunk@1456 -
peter před 20 roky
rodič
revize
f622915690
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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