projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-06-09 05:55:40 by wolfgang]
[ghc-hetmet.git]
/
ghc
/
rts
/
StgCRun.c
diff --git
a/ghc/rts/StgCRun.c
b/ghc/rts/StgCRun.c
index
4d5136f
..
46e573c
100644
(file)
--- a/
ghc/rts/StgCRun.c
+++ b/
ghc/rts/StgCRun.c
@@
-114,6
+114,12
@@
StgFunPtr StgReturn(void)
#ifdef i386_HOST_ARCH
#ifdef i386_HOST_ARCH
+#ifdef darwin_TARGET_OS
+#define STG_GLOBAL ".globl "
+#else
+#define STG_GLOBAL ".global "
+#endif
+
StgThreadReturnCode
StgRun(StgFunPtr f, StgRegTable *basereg) {
StgThreadReturnCode
StgRun(StgFunPtr f, StgRegTable *basereg) {
@@
-140,7
+146,7
@@
StgRun(StgFunPtr f, StgRegTable *basereg) {
"movl %2,%%eax\n\t"
"jmp *%%eax\n\t"
"movl %2,%%eax\n\t"
"jmp *%%eax\n\t"
- ".global " STG_RETURN "\n"
+ STG_GLOBAL STG_RETURN "\n"
STG_RETURN ":\n\t"
"movl %%esi, %%eax\n\t" /* Return value in R1 */
STG_RETURN ":\n\t"
"movl %%esi, %%eax\n\t" /* Return value in R1 */