From: sof <unknown>
Date: Fri, 3 Aug 2001 00:08:07 +0000 (+0000)
Subject: [project @ 2001-08-03 00:08:07 by sof]
X-Git-Tag: Approximately_9120_patches~1370
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a1d0f6b61c52ed8bfd0deecca821bd43331301e7;p=ghc-hetmet.git

[project @ 2001-08-03 00:08:07 by sof]
Only define i_CCALL iff bci_CCALL is defined in WithHc's ByteCodes.h
---

diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index 31c912a..8aecbe2 100644
--- a/ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/ghc/compiler/ghci/ByteCodeLink.lhs
@@ -600,7 +600,11 @@ i_ENTER    = (bci_ENTER :: Int)
 i_RETURN   = (bci_RETURN :: Int)
 i_STKCHECK = (bci_STKCHECK :: Int)
 i_JMP      = (bci_JMP :: Int)
+#ifdef bci_CCALL
 i_CCALL    = (bci_CCALL :: Int)
+#else
+i_CCALL    = error "Sorry pal, you need to bootstrap to use i_CCALL."
+#endif
 
 iNTERP_STACK_CHECK_THRESH = (INTERP_STACK_CHECK_THRESH :: Int)