Procházet zdrojové kódy

Merged revisions 1456 via svnmerge from
http://[email protected]/svn/fpc/trunk

r1456 (peter)
* fix infinite loop in createinlineparas

git-svn-id: branches/fixes_2_0@1500 -

peter před 20 roky
rodič
revize
c9884a0e1a
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

@@ -2215,8 +2215,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