projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1997-05-26 20:49:19 by andre]
[ghc-hetmet.git]
/
ghc
/
includes
/
COptWraps.lh
diff --git
a/ghc/includes/COptWraps.lh
b/ghc/includes/COptWraps.lh
index
5b6d2d9
..
b0d6847
100644
(file)
--- a/
ghc/includes/COptWraps.lh
+++ b/
ghc/includes/COptWraps.lh
@@
-557,7
+557,7
@@
gets whatever it's after.
%************************************************************************
\begin{code}
%************************************************************************
\begin{code}
-#if powerpc_TARGET_ARCH
+#if powerpc_TARGET_ARCH || rs6000_TARGET_ARCH
/* shift 4 arg registers down one */
/* shift 4 arg registers down one */
@@
-565,6
+565,7
@@
gets whatever it's after.
register void (*f)() __asm__("$2"); \
__asm__ volatile ( \
"move $2,$4\n" \
register void (*f)() __asm__("$2"); \
__asm__ volatile ( \
"move $2,$4\n" \
+ "not used!!!????\n" \
"\tmove $4,$5\n" \
"\tmove $5,$6\n" \
"\tmove $6,$7\n" \
"\tmove $4,$5\n" \
"\tmove $5,$6\n" \
"\tmove $6,$7\n" \
@@
-577,11
+578,13
@@
gets whatever it's after.
__asm__ volatile ( \
"subu $sp,$sp,4\n" \
"\ts.d $f0, -8($sp)\n" \
__asm__ volatile ( \
"subu $sp,$sp,4\n" \
"\ts.d $f0, -8($sp)\n" \
+ "not used!!!????\n" \
"\tsw $2, -12($sp)");
#define MAGIC_RETURN \
__asm__ volatile ( \
"l.d $f0, -8($sp)\n" \
"\tsw $2, -12($sp)");
#define MAGIC_RETURN \
__asm__ volatile ( \
"l.d $f0, -8($sp)\n" \
+ "not used!!!????\n" \
"\tlw $2, -12($sp)");
#define WRAPPER_NAME(f) /* nothing */
"\tlw $2, -12($sp)");
#define WRAPPER_NAME(f) /* nothing */