Bomb out if we encounter a _ccall_GC_; can't handle it.
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"
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)
| otherwise
= case lhs of
[] -> returnUs (\xs -> (StCall fn cconv VoidRep args) : xs)