projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
7a8bd24
)
[project @ 2005-01-10 23:00:53 by wolfgang]
author
wolfgang
<unknown>
Mon, 10 Jan 2005 23:00:53 +0000
(23:00 +0000)
committer
wolfgang
<unknown>
Mon, 10 Jan 2005 23:00:53 +0000
(23:00 +0000)
Fix for AIX-like ABIs.
ghc/rts/AdjustorAsm.S
patch
|
blob
|
history
diff --git
a/ghc/rts/AdjustorAsm.S
b/ghc/rts/AdjustorAsm.S
index
7a4dcbf
..
fc56beb
100644
(file)
--- a/
ghc/rts/AdjustorAsm.S
+++ b/
ghc/rts/AdjustorAsm.S
@@
-124,8
+124,17
@@
adjustorCode:
LOAD r3, HPTR_OFF(r2)
- LOAD r0, WPTR_OFF(r2)
+ LOAD r12, WPTR_OFF(r2)
+#if defined(darwin_TARGET_OS)
+ mtctr r12
+#else
+ LOAD r0, 0(r12)
+ /* The function we're calling will never be a nested function,
+ so we don't load r11.
+ */
mtctr r0
+ LOAD r2, WS(r12)
+#endif
bctrl
LOAD r1, 0(r1)