projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-04-17 21:41:29 by michaelw]
[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
*
/* --------------------------------------------------------------------------
* 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 "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
.file "universal_call_c.S"
#if 0
@@
-79,7
+81,7
@@
*/
.globl ADD_UNDERSCORE(universal_call_c_x86_ccall)
*/
.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
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)
# 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
pushl %ebp
movl %esp,%ebp
pushl %edi
@@
-225,4
+227,4
@@
ADD_UNDERSCORE(universal_call_c_x86_stdcall):
#endif /* i386_TARGET_ARCH */
#endif /* i386_TARGET_ARCH */
-#endif /* INTERPRETER */
+#endif /* GHCI */