Stopped the C code generating extern declarations for occam PROCs (it should only do this for C PROCs)

This commit is contained in:
Neil Brown 2009-04-01 19:51:43 +00:00
parent e28bff5a50
commit ef36c39c38

View File

@ -188,7 +188,7 @@ cgenTopLevel headerName s
-- Forward declarations of externals:
sequence_ [tell ["extern void ", mungeExternalName n, "(int*);"]
| (n, fs) <- csExternals cs]
| (n, (ExternalOldStyle, _)) <- csExternals cs]
call genStructured TopLevel s (\m _ -> tell ["\n#error Invalid top-level item: ", show m])