From: simonmar <unknown>
Date: Fri, 9 Feb 2001 17:15:20 +0000 (+0000)
Subject: [project @ 2001-02-09 17:15:20 by simonmar]
X-Git-Tag: Approximately_9120_patches~2693
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0370154bef26e4780db3796eacd931afca0ee98e;p=ghc-hetmet.git

[project @ 2001-02-09 17:15:20 by simonmar]
#if 0 this file (instead of #ifdef INTERPRETER).  We'll need the code
later to implement foreign import in the interpreter.
---

diff --git a/ghc/rts/universal_call_c.S b/ghc/rts/universal_call_c.S
index 5860ef5..f4ed0ab 100644
--- a/ghc/rts/universal_call_c.S
+++ b/ghc/rts/universal_call_c.S
@@ -1,18 +1,15 @@
-
 /* --------------------------------------------------------------------------
  * Assembly code to call C and Haskell functions 
  *
- * Copyright (c) 1994-1999.
+ * Copyright (c) 1994-2001.
  *
- * $RCSfile: universal_call_c.S,v $
- * $Revision: 1.9 $
- * $Date: 1999/11/17 13:19:36 $
+ * $Id: universal_call_c.S,v 1.10 2001/02/09 17:15:20 simonmar Exp $
  * ------------------------------------------------------------------------*/
 	
+#if 0 /* later:	 GHCI */
+
 #include "config.h"
-#include "options.h"	
 	
-#ifdef INTERPRETER
 	.file "universal_call_c.S"
 
 #if 0
@@ -225,4 +222,4 @@ ADD_UNDERSCORE(universal_call_c_x86_stdcall:)
 
 #endif /* i386_TARGET_ARCH */
 	
-#endif /* INTERPRETER */
+#endif /* GHCI */