From: ken <unknown>
Date: Tue, 7 Aug 2001 19:33:33 +0000 (+0000)
Subject: [project @ 2001-08-07 19:33:33 by ken]
X-Git-Tag: Approximately_9120_patches~1332
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=565a4494b5bedd68c0a6d468c78f542477b89aa7;p=ghc-hetmet.git

[project @ 2001-08-07 19:33:33 by ken]
For now, let mkMarshalCode_wrk = undefined for non-i386 architectures.
---

diff --git a/ghc/compiler/ghci/ByteCodeFFI.lhs b/ghc/compiler/ghci/ByteCodeFFI.lhs
index 70d2153..d1ee02c 100644
--- a/ghc/compiler/ghci/ByteCodeFFI.lhs
+++ b/ghc/compiler/ghci/ByteCodeFFI.lhs
@@ -275,6 +275,10 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
      ++ ret
      )
 
+#else /* i386_TARGET_ARCH */
+
+mkMarshalCode_wrk = undefined
+
 #endif /* i386_TARGET_ARCH */
 
 \end{code}