diff options
Diffstat (limited to 'rts/AdjustorAsm.S')
| -rw-r--r-- | rts/AdjustorAsm.S | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/rts/AdjustorAsm.S b/rts/AdjustorAsm.S index ca7ae36573..1713acb315 100644 --- a/rts/AdjustorAsm.S +++ b/rts/AdjustorAsm.S @@ -63,8 +63,12 @@ #define r31 31 #endif - +#if defined(aix_HOST_OS) +/* IBM's assembler needs a different pseudo-op to declare a .text section */ +.csect .text[PR] +#else .text +#endif #if LEADING_UNDERSCORE .globl _adjustorCode _adjustorCode: @@ -101,14 +105,14 @@ adjustorCode: LOAD r12, EXTRA_WORDS_OFF(r2) mtctr r12 - b 2f -1: + b L2 +L1: LOAD r0, LINKAGE_AREA_SIZE + 8*WS(r30) STORE r0, LINKAGE_AREA_SIZE + 10*WS(r31) addi r30, r30, WS addi r31, r31, WS -2: - bdnz 1b +L2: + bdnz L1 /* Restore r30 and r31 now. */ |