Stopped the C code generating extern declarations for occam PROCs (it should only do this for C PROCs)
This commit is contained in:
parent
e28bff5a50
commit
ef36c39c38
|
@ -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])
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user