Remove debugging code.

This commit is contained in:
Adam Sampson 2008-03-11 17:43:54 +00:00
parent 5002b73238
commit 882d0c002a

View File

@ -155,7 +155,6 @@ cgenTopLevel s
sequence_ $ map (call genForwardDeclaration)
(listify (const True :: A.Specification -> Bool) s)
tell ["/* ", show $ csParProcs cs, " */\n"]
sequence_ [do tell ["extern int " ++ nameString n ++ "_wrapper_stack_size;\n"]
cgenProcWrapper n
| n <- tlpName : (Set.toList $ csParProcs cs)]