|
0
|
1 /*
|
|
|
2
|
|
|
3 Package: dyncall
|
|
|
4 Library: dyncallback
|
|
|
5 File: dyncallback/dyncall_thunk_ppc64.c
|
|
|
6 Description: Thunk - Implementation for ppc64
|
|
|
7 License:
|
|
|
8
|
|
|
9 Copyright (c) 2014-2015 Masanori Mitsugi <mitsugi@linux.vnet.ibm.com>
|
|
|
10
|
|
|
11 Permission to use, copy, modify, and distribute this software for any
|
|
|
12 purpose with or without fee is hereby granted, provided that the above
|
|
|
13 copyright notice and this permission notice appear in all copies.
|
|
|
14
|
|
|
15 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
|
16 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
17 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
|
18 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
|
21 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
22
|
|
|
23 */
|
|
|
24
|
|
|
25 #include "dyncall_thunk.h"
|
|
|
26
|
|
|
27 #define HIST16(x) (unsigned short)((((unsigned long)(x))>>48UL) & 0xffff)
|
|
|
28 #define HIER16(x) (unsigned short)((((unsigned long)(x))>>32UL) & 0xffff)
|
|
|
29 #define HI16(x) (unsigned short)((((unsigned long)(x))>>16UL) & 0xffff)
|
|
|
30 #define LO16(x) (unsigned short)( ((unsigned long)(x)) & 0xffff)
|
|
|
31
|
|
|
32 void dcbInitThunk(DCThunk* p, void (*entry)())
|
|
|
33 {
|
|
|
34 #if DC__ABI_PPC64_ELF_V == 2
|
|
|
35 /*
|
|
|
36 ppc64 thunk code:
|
|
|
37 lis r11, HIST16(p)
|
|
|
38 ori r11,r11, HIER16(p)
|
|
|
39 rldicr r11,r11,32,31
|
|
|
40 oris r11,r11, HI16(p)
|
|
|
41 ori r11,r11, LO16(p)
|
|
|
42 ld r12,40(r11)
|
|
|
43 mtctr r12
|
|
|
44 bctr
|
|
|
45 */
|
|
|
46
|
|
|
47 p->code_load_hist = 0x3d60U; /* lis r11,HIST16(p) */
|
|
|
48 p->addr_self_hist = HIST16(p);
|
|
|
49 p->code_load_hier = 0x616bU; /* ori r11,r11, HIER16(p) */
|
|
|
50 p->addr_self_hier = HIER16(p);
|
|
|
51 p->code_rot = 0x796b07c6U; /* rldicr r11,r11,32,31 */
|
|
|
52 p->code_load_hi = 0x656bU; /* oris r11,r11, HI16(p) */
|
|
|
53 p->addr_self_hi = HI16(p);
|
|
|
54 p->code_load_lo = 0x616bU; /* ori r11,r11, LO16(p) */
|
|
|
55 p->addr_self_lo = LO16(p);
|
|
|
56 p->code_jump[0] = 0xe98b0028U; /* ld r12,40(r11) */
|
|
|
57 p->code_jump[1] = 0x7d8903a6U; /* mtclr r12 */
|
|
|
58 p->code_jump[2] = 0x4e800420U; /* bctr */
|
|
|
59 p->addr_entry = (void *)(entry);
|
|
|
60
|
|
|
61 #else
|
|
|
62 /*
|
|
|
63 ppc64 thunk code:
|
|
|
64 oris r11, r2, HI16(p)
|
|
|
65 ori r11,r11, LO16(p)
|
|
|
66 ld r12,48(r11)
|
|
|
67 ld r2,56(r11)
|
|
|
68 mtctr r12
|
|
|
69 bctr
|
|
|
70 */
|
|
|
71
|
|
|
72 p->thunk_entry = (void *)&(p->code_load_hi);
|
|
|
73 p->toc_thunk = ((long)(p->thunk_entry) & 0xffffffff00000000UL);
|
|
|
74
|
|
|
75 p->code_load_hi = 0x644bU; /* oris r11, r2, HI16(p) */
|
|
|
76 p->addr_self_hi = HI16(p);
|
|
|
77 p->code_load_lo = 0x616bU; /* ori r11,r11, LO16(p) */
|
|
|
78 p->addr_self_lo = LO16(p);
|
|
|
79 p->code_jump[0] = 0xe98b0030U; /* ld r12,48(r11) */
|
|
|
80 p->code_jump[1] = 0xe84b0038U; /* ld r2,56(r11) */
|
|
|
81 p->code_jump[2] = 0x7d8903a6U; /* mtclr r12 */
|
|
|
82 p->code_jump[3] = 0x4e800420U; /* bctr */
|
|
|
83 p->addr_entry = (void *)*((long *)entry);
|
|
|
84 p->toc_entry = *((long *)(entry + 8));
|
|
|
85 #endif
|
|
|
86 }
|
|
|
87
|
