[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 (file)
--- 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}