The Tor Browser / file comparison
comparison: xpcom/reflect/xptcall/src/md/unix/xptcstubs_asm_ppc_aix.s.m4
xpcom/reflect/xptcall/src/md/unix/xptcstubs_asm_ppc_aix.s.m4
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
equal
deleted
inserted
replaced
| -1:000000000000 | 0:8db77615d092 |
|---|---|
| 1 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 2 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 3 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 4 | |
| 5 .set r0,0; .set sp,1; .set RTOC,2; .set r3,3; .set r4,4 | |
| 6 .set r5,5; .set r6,6; .set r7,7; .set r8,8; .set r9,9 | |
| 7 .set r10,10; .set r11,11; .set r12,12; .set r13,13; .set r14,14 | |
| 8 .set r15,15; .set r16,16; .set r17,17; .set r18,18; .set r19,19 | |
| 9 .set r20,20; .set r21,21; .set r22,22; .set r23,23; .set r24,24 | |
| 10 .set r25,25; .set r26,26; .set r27,27; .set r28,28; .set r29,29 | |
| 11 .set r30,30; .set r31,31 | |
| 12 .set f0,0; .set f1,1; .set f2,2; .set f3,3; .set f4,4 | |
| 13 .set f5,5; .set f6,6; .set f7,7; .set f8,8; .set f9,9 | |
| 14 .set f10,10; .set f11,11; .set f12,12; .set f13,13; .set f14,14 | |
| 15 .set f15,15; .set f16,16; .set f17,17; .set f18,18; .set f19,19 | |
| 16 .set f20,20; .set f21,21; .set f22,22; .set f23,23; .set f24,24 | |
| 17 .set f25,25; .set f26,26; .set f27,27; .set f28,28; .set f29,29 | |
| 18 .set f30,30; .set f31,31 | |
| 19 | |
| 20 # Define the correct name of the stub function based on the object model | |
| 21 | |
| 22 define(STUB_NAME, | |
| 23 ifelse(AIX_OBJMODEL, ibm, | |
| 24 `Stub'$1`__EI14nsXPTCStubBaseFv', | |
| 25 `Stub'$1`__14nsXPTCStubBaseFv')) | |
| 26 | |
| 27 define(STUB_ENTRY, ` | |
| 28 .rename H.10.NO_SYMBOL{PR},"" | |
| 29 .rename H.18.'STUB_NAME($1)`{TC},"'STUB_NAME($1)`" | |
| 30 .csect H.10.NO_SYMBOL{PR} | |
| 31 .globl .'STUB_NAME($1)` | |
| 32 .globl 'STUB_NAME($1)`{DS} | |
| 33 | |
| 34 .'STUB_NAME($1)`: | |
| 35 li r12, '$1` | |
| 36 b .SharedStub | |
| 37 nop | |
| 38 | |
| 39 | |
| 40 .toc | |
| 41 T.18.'STUB_NAME($1)`: | |
| 42 .tc H.18.'STUB_NAME($1)`{TC},'STUB_NAME($1)`{DS} | |
| 43 .csect 'STUB_NAME($1)`{DS} | |
| 44 .long .'STUB_NAME($1)` | |
| 45 .long TOC{TC0} | |
| 46 .long 0x00000000 | |
| 47 ') | |
| 48 | |
| 49 define(SENTINEL_ENTRY, `') | |
| 50 | |
| 51 include(xptcstubsdef.inc) | |
| 52 | |
| 53 .rename H.10.NO_SYMBOL{PR},"" | |
| 54 .rename H.18.SharedStub{TC},"SharedStub" | |
| 55 | |
| 56 # .text section | |
| 57 .csect H.10.NO_SYMBOL{PR} | |
| 58 .globl .SharedStub | |
| 59 .globl SharedStub{DS} | |
| 60 .extern .PrepareAndDispatch | |
| 61 | |
| 62 .SharedStub: | |
| 63 mflr r0 | |
| 64 stw r0,8(sp) | |
| 65 | |
| 66 stwu sp,-176(sp) # room for linkage (24), fprData (104), gprData(28) | |
| 67 # outgoing params to PrepareAndDispatch (20) | |
| 68 | |
| 69 stw r4,44(sp) # link area (24) + PrepareAndDispatch params (20) | |
| 70 stw r5,48(sp) | |
| 71 stw r6,52(sp) | |
| 72 stw r7,56(sp) | |
| 73 stw r8,60(sp) | |
| 74 stw r9,64(sp) | |
| 75 stw r10,68(sp) | |
| 76 stfd f1,72(sp) | |
| 77 stfd f2,80(sp) | |
| 78 stfd f3,88(sp) | |
| 79 stfd f4,96(sp) | |
| 80 stfd f5,104(sp) | |
| 81 stfd f6,112(sp) | |
| 82 stfd f7,120(sp) | |
| 83 stfd f8,128(sp) | |
| 84 stfd f9,136(sp) | |
| 85 stfd f10,144(sp) | |
| 86 stfd f11,152(sp) | |
| 87 stfd f12,156(sp) | |
| 88 stfd f13,164(sp) | |
| 89 | |
| 90 addi r6,sp,44 # gprData | |
| 91 | |
| 92 addi r7,sp,72 # fprData | |
| 93 # r3 has the 'self' pointer already | |
| 94 mr r4,r12 # methodIndex selector (it is now LATER) | |
| 95 addi r5,sp,232 # pointer to callers args area, beyond r3-r10 | |
| 96 # mapped range | |
| 97 | |
| 98 bl .PrepareAndDispatch | |
| 99 nop | |
| 100 | |
| 101 | |
| 102 lwz r0,184(sp) | |
| 103 addi sp,sp,176 | |
| 104 mtlr r0 | |
| 105 blr | |
| 106 | |
| 107 # .data section | |
| 108 | |
| 109 .toc # 0x00000038 | |
| 110 T.18.SharedStub: | |
| 111 .tc H.18.SharedStub{TC},SharedStub{DS} | |
| 112 | |
| 113 .csect SharedStub{DS} | |
| 114 .long .SharedStub # "\0\0\0\0" | |
| 115 .long TOC{TC0} # "\0\0\0008" | |
| 116 .long 0x00000000 # "\0\0\0\0" | |
| 117 # End csect SharedStub{DS} | |
| 118 | |
| 119 # .bss section |
