Skip to content
Snippets Groups Projects
Commit c30b7211 authored by sof's avatar sof
Browse files

[project @ 1998-08-31 16:42:43 by sof]

Bomb out if we encounter a _ccall_GC_; can't handle it.
parent d4f1ad72
No related merge requests found
......@@ -447,6 +447,7 @@ primCode [lhs] SeqOp [a]
primCode lhs (CCallOp (Just fn) is_asm may_gc cconv arg_tys result_ty) rhs
| is_asm = error "ERROR: Native code generator can't handle casm"
| may_gc = error "ERROR: Native code generator can't handle _ccall_GC_\n"
| otherwise
= case lhs of
[] -> returnUs (\xs -> (StCall fn cconv VoidRep args) : xs)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment