1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/xpcom/reflect/xptcall/src/md/unix/xptcinvoke_asm_ppc_netbsd.s Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,95 @@
1.4 +# -*- Mode: Asm -*-
1.5 +#
1.6 +# This Source Code Form is subject to the terms of the Mozilla Public
1.7 +# License, v. 2.0. If a copy of the MPL was not distributed with this
1.8 +# file, You can obtain one at http://mozilla.org/MPL/2.0/.
1.9 +.set r0,0; .set sp,1; .set RTOC,2; .set r3,3; .set r4,4
1.10 +.set r5,5; .set r6,6; .set r7,7; .set r8,8; .set r9,9
1.11 +.set r10,10; .set r11,11; .set r12,12; .set r13,13; .set r14,14
1.12 +.set r15,15; .set r16,16; .set r17,17; .set r18,18; .set r19,19
1.13 +.set r20,20; .set r21,21; .set r22,22; .set r23,23; .set r24,24
1.14 +.set r25,25; .set r26,26; .set r27,27; .set r28,28; .set r29,29
1.15 +.set r30,30; .set r31,31
1.16 +.set f0,0; .set f1,1; .set f2,2; .set f3,3; .set f4,4
1.17 +.set f5,5; .set f6,6; .set f7,7; .set f8,8; .set f9,9
1.18 +.set f10,10; .set f11,11; .set f12,12; .set f13,13; .set f14,14
1.19 +.set f15,15; .set f16,16; .set f17,17; .set f18,18; .set f19,19
1.20 +.set f20,20; .set f21,21; .set f22,22; .set f23,23; .set f24,24
1.21 +.set f25,25; .set f26,26; .set f27,27; .set f28,28; .set f29,29
1.22 +.set f30,30; .set f31,31
1.23 +
1.24 + .section ".text"
1.25 + .align 2
1.26 + .globl XPTC_InvokeByIndex
1.27 + .type XPTC_InvokeByIndex,@function
1.28 +
1.29 +#
1.30 +# XPTC_InvokeByIndex(nsISupports* that, uint32_t methodIndex,
1.31 +# uint32_t paramCount, nsXPTCVariant* params)
1.32 +#
1.33 +
1.34 +XPTC_InvokeByIndex:
1.35 + stwu sp,-32(sp) # setup standard stack frame
1.36 + mflr r0 # save LR
1.37 + stw r3,8(sp) # r3 <= that
1.38 + stw r4,12(sp) # r4 <= methodIndex
1.39 + stw r30,16(sp)
1.40 + stw r31,20(sp)
1.41 +
1.42 + stw r0,36(sp) # store LR backchain
1.43 + mr r31,sp
1.44 +
1.45 + rlwinm r10,r5,3,0,27 # r10 = (ParamCount * 2 * 4) & ~0x0f
1.46 + addi r0,r10,96 # reserve stack for GPR and FPR register save area r0 = r10 + 96
1.47 + lwz r9,0(sp) # r9 = backchain
1.48 + neg r0,r0
1.49 + stwux r9,sp,r0 # reserve stack sapce and save SP backchain
1.50 +
1.51 + addi r3,sp,8 # r3 <= args
1.52 + mr r4,r5 # r4 <= paramCount
1.53 + mr r5,r6 # r5 <= params
1.54 + add r6,r3,r10 # r6 <= gpregs ( == args + r10 )
1.55 + mr r30,r6 # store in r30 for use later...
1.56 + addi r7,r6,32 # r7 <= fpregs ( == gpregs + 32 )
1.57 +
1.58 + bl invoke_copy_to_stack@local # (args, paramCount, params, gpregs, fpregs)
1.59 +
1.60 + lfd f1,32(r30) # load FP registers with method parameters
1.61 + lfd f2,40(r30)
1.62 + lfd f3,48(r30)
1.63 + lfd f4,56(r30)
1.64 + lfd f5,64(r30)
1.65 + lfd f6,72(r30)
1.66 + lfd f7,80(r30)
1.67 + lfd f8,88(r30)
1.68 +
1.69 + lwz r3,8(r31) # r3 <= that
1.70 + lwz r4,12(r31) # r4 <= methodIndex
1.71 + lwz r5,0(r3) # r5 <= vtable ( == *that )
1.72 + slwi r4,r4,3 # convert to offset ( *= 8 )
1.73 + addi r4,r4,8 # skip first two vtable entries
1.74 + add r4,r4,r5
1.75 + lhz r0,0(r4) # virtual base offset
1.76 + extsh r0,r0
1.77 + add r3,r3,r0
1.78 + lwz r0,4(r4) # r0 <= methodpointer ( == vtable + offset )
1.79 +
1.80 + lwz r4,4(r30) # load GP regs with method parameters
1.81 + lwz r5,8(r30)
1.82 + lwz r6,12(r30)
1.83 + lwz r7,16(r30)
1.84 + lwz r8,20(r30)
1.85 + lwz r9,24(r30)
1.86 + lwz r10,28(r30)
1.87 +
1.88 + mtlr r0 # copy methodpointer to LR
1.89 + blrl # call method
1.90 +
1.91 + lwz r30,16(r31) # restore r30 & r31
1.92 + lwz r31,20(r31)
1.93 +
1.94 + lwz r11,0(sp) # clean up the stack
1.95 + lwz r0,4(r11)
1.96 + mtlr r0
1.97 + mr sp,r11
1.98 + blr
