Mercurial > pub > dyncall > dyncall
comparison dyncallback/dyncall_thunk_ppc32.c @ 0:3e629dc19168
initial from svn dyncall-1745
author | Daniel Adler |
---|---|
date | Thu, 19 Mar 2015 22:24:28 +0100 |
parents | |
children | d0787f3b81fb |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:3e629dc19168 |
---|---|
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 | |
9 Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, | |
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 | |
29 unsigned short hi16(x) { return ( (unsigned short) (((unsigned int)x)>>16UL) ); } | |
30 unsigned short lo16(x) { return ( (unsigned short) ((unsigned int)x) ); } | |
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); | |
45 p->code_load_lo = 0x6042U; /* ori r2, r2, LO16(p) */ | |
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 |