From: sof <unknown>
Date: Mon, 31 Aug 1998 16:42:43 +0000 (+0000)
Subject: [project @ 1998-08-31 16:42:43 by sof]
X-Git-Tag: Approx_2487_patches~270
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c30b7211429d1bf1795a86908efc45628dca9dec;p=ghc-hetmet.git

[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
--- 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)