suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a bug when generating some no-arg PROCs

Browse Source
This commit is contained in:
Neil Brown 2009-03-31 10:50:52 +00:00
parent dbf886996a
commit edc336de7a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/GenerateC.hs
View File

@ -2017,7 +2017,7 @@ cgenProcCall n as
, ",1,ext_args);}"]
_ -> do genName n
tell [" (wptr,"]
tell [" (wptr", if null as then "" else ","]
(A.Proc _ _ fs _) <- specTypeOfName n
call genActuals fs as
tell [");\n"]