From c30b7211429d1bf1795a86908efc45628dca9dec Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 31 Aug 1998 16:42:43 +0000
Subject: [PATCH] [project @ 1998-08-31 16:42:43 by sof] Bomb out if we
 encounter a _ccall_GC_; can't handle it.

---
 ghc/compiler/nativeGen/StixPrim.lhs |    1 +
 1 file changed, 1 insertion(+)

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