|
0
|
1 /*
|
|
|
2
|
|
|
3 Package: dyncall
|
|
|
4 Library: dyncallback
|
|
|
5 File: dyncallback/dyncall_thunk_ppc32.c
|
|
|
6 Description: Thunk - Implementation for ppc32 darwin/apple
|
|
|
7 License:
|
|
|
8
|
|
281
|
9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
|
|
0
|
10 Tassilo Philipp <tphilipp@potion-studios.com>
|
|
|
11
|
|
|
12 Permission to use, copy, modify, and distribute this software for any
|
|
|
13 purpose with or without fee is hereby granted, provided that the above
|
|
|
14 copyright notice and this permission notice appear in all copies.
|
|
|
15
|
|
|
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
|
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
|
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
|
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
23
|
|
|
24 */
|
|
|
25
|
|
|
26
|
|
|
27 #include "dyncall_thunk.h"
|
|
|
28
|
|
97
|
29 static unsigned short hi16(x) { return ( (unsigned short) (((unsigned int)x)>>16UL) ); }
|
|
|
30 static unsigned short lo16(x) { return ( (unsigned short) ((unsigned int)x) ); }
|
|
0
|
31
|
|
|
32 void dcbInitThunk(DCThunk* p, void (*entry)())
|
|
|
33 {
|
|
|
34 /*
|
|
|
35 ppc32 thunk code:
|
|
|
36 lis r2 , HI16(p)
|
|
|
37 ori r2 , r2, LO16(p)
|
|
|
38 lwz r12, 20(r2)
|
|
|
39 mtctr r12
|
|
|
40 bctr
|
|
|
41 */
|
|
|
42
|
|
|
43 p->code_load_hi = 0x3c40U; /* lis r2, HI16(p) */
|
|
|
44 p->addr_self_hi = hi16(p);
|
|
155
|
45 p->code_load_lo = 0x6042U; /* ori r2, r2, LO16(p) */
|
|
0
|
46 p->addr_self_lo = lo16(p);
|
|
|
47 p->code_jump[0] = 0x81820014U; /* lwz r12, 20(r2) */
|
|
|
48 p->code_jump[1] = 0x7d8903a6U; /* mtclr r12 */
|
|
|
49 p->code_jump[2] = 0x4e800420U; /* bctr */
|
|
|
50 p->addr_entry = entry;
|
|
|
51 }
|
|
|
52
|
