-
/* --------------------------------------------------------------------------
* 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
*/
.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
# 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
#endif /* i386_TARGET_ARCH */
-#endif /* INTERPRETER */
+#endif /* GHCI */