projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1119f46
)
[project @ 1997-07-07 17:21:23 by andre]
author
andre
<unknown>
Mon, 7 Jul 1997 17:21:24 +0000
(17:21 +0000)
committer
andre
<unknown>
Mon, 7 Jul 1997 17:21:24 +0000
(17:21 +0000)
RS6000 prof/conc patches
ghc/includes/COptWraps.lh
patch
|
blob
|
history
ghc/includes/stgdefs.h
patch
|
blob
|
history
diff --git
a/ghc/includes/COptWraps.lh
b/ghc/includes/COptWraps.lh
index
27c862f
..
409693b
100644
(file)
--- a/
ghc/includes/COptWraps.lh
+++ b/
ghc/includes/COptWraps.lh
@@
-576,6
+576,13
@@
gets whatever it's after.
#define WRAPPER_NAME(f) /* nothing */
#define WRAPPER_NAME(f) /* nothing */
+#define SET_RETADDR(loc) \
+ __asm__ volatile ( \
+ "mflr 0\n" \
+ "\tst 0,%0" \
+ :"=m" (loc) :: "0");
+/* __asm__ volatile ("st %%r0, %0" : "=m" ((void *)(loc))); */
+
#define WRAPPER_SETUP(f,ignore1,ignore2) SaveAllStgContext();
/* we have to make sure the STG registers are restored.
#define WRAPPER_SETUP(f,ignore1,ignore2) SaveAllStgContext();
/* we have to make sure the STG registers are restored.
diff --git
a/ghc/includes/stgdefs.h
b/ghc/includes/stgdefs.h
index
1b1f9af
..
50eb657
100644
(file)
--- a/
ghc/includes/stgdefs.h
+++ b/
ghc/includes/stgdefs.h
@@
-44,12
+44,20
@@
void _stgAssert PROTO((char *, unsigned int));
#ifdef nextstep3_TARGET_OS
#define _NEXT_SOURCE
#endif
#ifdef nextstep3_TARGET_OS
#define _NEXT_SOURCE
#endif
-
+
+#ifdef aix_TARGET_OS
+/* for fd_set */
+#include <sys/select.h>
+#endif
+
#ifdef NON_POSIX_SOURCE
#undef _POSIX_SOURCE
#undef _POSIX_C_SOURCE
#else
#ifdef NON_POSIX_SOURCE
#undef _POSIX_SOURCE
#undef _POSIX_C_SOURCE
#else
+# ifndef aix_TARGET_OS
+/* already defined on aix */
#define _POSIX_SOURCE 1
#define _POSIX_SOURCE 1
+# endif
#ifndef irix_TARGET_OS
#define _POSIX_C_SOURCE 199301L
#else
#ifndef irix_TARGET_OS
#define _POSIX_C_SOURCE 199301L
#else