paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 18:35:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix infinite loop in createinlineparas

Browse Source 
git-svn-id: trunk@1456 -
This commit is contained in:
peter 2005-10-18 05:51:13 +00:00
parent 4c73e86058
commit f622915690
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

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