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

Bomb out if we encounter a _ccall_GC_; can't handle it.

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 42c2bf9..c23c743 100644 (file)
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -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)