Mercurial > pub > dyncall > dyncall
comparison dyncallback/dyncall_thunk_ppc64.c @ 0:3e629dc19168
initial from svn dyncall-1745
author | Daniel Adler |
---|---|
date | Thu, 19 Mar 2015 22:24:28 +0100 |
parents | |
children | 7ca57dbefed4 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:3e629dc19168 |
---|---|
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 |