[project @ 2001-05-03 08:51:16 by simonpj]

[ghc-hetmet.git] / ghc / rts / universal_call_c.S

diff --git a/ghc/rts/universal_call_c.S b/ghc/rts/universal_call_c.S
index 928c1bc..77f425a 100644 (file)
--- a/ghc/rts/universal_call_c.S
+++ b/ghc/rts/universal_call_c.S
@@ -1,18 +1,20 @@
-
 /* --------------------------------------------------------------------------
  * Assembly code to call C and Haskell functions 
  *
- * Copyright (c) 1994-1999.
+ * Copyright (c) 1994-2001.
  *
- * $RCSfile: universal_call_c.S,v $
- * $Revision: 1.8 $
- * $Date: 1999/10/29 11:41:12 $
+ * $Id: universal_call_c.S,v 1.11 2001/02/12 12:08:44 sewardj Exp $
  * ------------------------------------------------------------------------*/
        
 #include "config.h"
-#include "options.h"   
+
+#if sparc_TARGET_ARCH
+       .text
+only_here_to_work_around_a_bug_in_GNU_ld_291_on_sparc:
+#endif
+       
+#if 0 /* later:         GHCI */
        
-#ifdef INTERPRETER
        .file "universal_call_c.S"
 
 #if 0
@@ -79,7 +81,7 @@
  */
 
 .globl ADD_UNDERSCORE(universal_call_c_x86_ccall)
-ADD_UNDERSCORE(universal_call_c_x86_ccall):
+ADD_UNDERSCORE(universal_call_c_x86_ccall:)
        pushl %ebp
        movl %esp,%ebp
        pushl %edi
@@ -155,7 +157,7 @@ ADD_UNDERSCORE(universal_call_c_x86_ccall):
 # using ccall.
        
 .globl ADD_UNDERSCORE(universal_call_c_x86_stdcall)
-ADD_UNDERSCORE(universal_call_c_x86_stdcall):
+ADD_UNDERSCORE(universal_call_c_x86_stdcall:)
        pushl %ebp
        movl %esp,%ebp
        pushl %edi
@@ -225,4 +227,4 @@ ADD_UNDERSCORE(universal_call_c_x86_stdcall):
 
 #endif /* i386_TARGET_ARCH */
        
-#endif /* INTERPRETER */
+#endif /* GHCI */