Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_thunk_mips64.c @ 321:72b450cc3be8
- cosmetics/cleanup
author | Tassilo Philipp |
---|---|
date | Sat, 16 Nov 2019 00:14:47 +0100 |
parents | f5577f6bf97a |
children |
rev | line source |
---|---|
116 | 1 /* |
2 | |
3 Package: dyncall | |
4 Library: dyncallback | |
5 File: dyncallback/dyncall_thunk_mips64.c | |
6 Description: Thunk - Implementation for MIPS64 | |
7 License: | |
8 | |
281 | 9 Copyright (c) 2016-2018 Tassilo Philipp <tphilipp@potion-studios.com> |
116 | 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 | |
136 | 27 #define b_48_63(x) ((unsigned short)(((unsigned long long)x)>>48UL)) |
28 #define b_32_47(x) ((unsigned short)(((unsigned long long)x)>>32UL)) | |
29 #define b_16_31(x) ((unsigned short)(((unsigned long long)x)>>16UL)) | |
30 #define b_00_15(x) ((unsigned short) ((unsigned long long)x) ) | |
116 | 31 |
32 void dcbInitThunk(DCThunk* p, void (*entry)()) | |
33 { | |
34 /* | |
35 | |
36 Thunk Register: $t8 ($24) | |
37 Call Address (sticking to t9 as for PIC calls on mips32): $t9 ($25) | |
38 | |
39 mips64 thunk code: | |
137
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
40 lui $t8, p[48:63] |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
41 ori $t8, $t8, p[32:47] |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
42 dsll $t8, 16 |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
43 ori $t8, $t8, p[16:31] |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
44 dsll $t8, 16 |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
45 lui $t9, entry[48:63] |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
46 ori $t9, $t9, entry[32:47] |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
47 dsll $t9, 16 |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
48 ori $t9, $t9, entry[16:31] |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
49 dsll $t9, 16 |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
50 ori $t9, $t9, entry[0:15] |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
51 jr $t9 |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
52 ori $t8, $t8, p[0:15] ; branch delay slot |
116 | 53 |
54 Disassembly of section .text: | |
55 | |
56 0000000000000000 <thunk>: | |
57 0: 3c180000 lui t8,0x0 | |
58 4: 37180000 ori t8,t8,0x0 | |
137
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
59 8: 0018c438 dsll t8,t8,0x10 |
116 | 60 c: 37180000 ori t8,t8,0x0 |
137
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
61 10: 0018c438 dsll t8,t8,0x10 |
116 | 62 14: 3c190000 lui t9,0x0 |
63 18: 37390000 ori t9,t9,0x0 | |
137
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
64 1c: 0019cc38 dsll t9,t9,0x10 |
116 | 65 20: 37390000 ori t9,t9,0x0 |
137
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
66 24: 0019cc38 dsll t9,t9,0x10 |
116 | 67 28: 37390000 ori t9,t9,0x0 |
68 2c: 03200008 jr t9 | |
69 30: 37180000 ori t8,t8,0x0 | |
70 | |
71 */ | |
72 | |
73 #if defined(DC__Endian_BIG) | |
74 | |
75 p->text.s[ 0] = 0x3c18; p->text.s[ 1] = b_48_63(p); /* lui $t8, p[48:63] */ | |
76 p->text.s[ 2] = 0x3718; p->text.s[ 3] = b_32_47(p); /* ori $t8, $t8, p[32:47] */ | |
77 p->text.s[ 6] = 0x3718; p->text.s[ 7] = b_16_31(p); /* ori $t8, $t8, p[16:31] */ | |
78 p->text.s[10] = 0x3c19; p->text.s[11] = b_48_63(entry); /* lui $t9, entry[48:63] */ | |
79 p->text.s[12] = 0x3739; p->text.s[13] = b_32_47(entry); /* ori $t9, $t9, entry[32:47] */ | |
80 p->text.s[16] = 0x3739; p->text.s[17] = b_16_31(entry); /* ori $t9, $t9, entry[16:31] */ | |
136 | 81 p->text.s[20] = 0x3739; p->text.s[21] = b_00_15(entry); /* ori $t9, $t9, entry[0:15] */ |
82 p->text.s[24] = 0x3718; p->text.s[25] = b_00_15(p); /* ori $t8, $t8, p[0:15] - branch delay slot */ | |
116 | 83 |
84 #else /* defined(DC__Endian_LITTLE) */ | |
136 | 85 |
116 | 86 p->text.s[ 1] = 0x3c18; p->text.s[ 0] = b_48_63(p); /* lui $t8, p[48:63] */ |
87 p->text.s[ 3] = 0x3718; p->text.s[ 2] = b_32_47(p); /* ori $t8, $t8, p[32:47] */ | |
88 p->text.s[ 7] = 0x3718; p->text.s[ 6] = b_16_31(p); /* ori $t8, $t8, p[16:31] */ | |
89 p->text.s[11] = 0x3c19; p->text.s[10] = b_48_63(entry); /* lui $t9, entry[48:63] */ | |
90 p->text.s[13] = 0x3739; p->text.s[12] = b_32_47(entry); /* ori $t9, $t9, entry[32:47] */ | |
91 p->text.s[17] = 0x3739; p->text.s[16] = b_16_31(entry); /* ori $t9, $t9, entry[16:31] */ | |
136 | 92 p->text.s[21] = 0x3739; p->text.s[20] = b_00_15(entry); /* ori $t9, $t9, entry[0:15] */ |
93 p->text.s[25] = 0x3718; p->text.s[24] = b_00_15(p); /* ori $t8, $t8, p[0:15] - branch delay slot */ | |
94 | |
116 | 95 #endif |
96 | |
137
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
97 p->text.i[ 2] = 0x0018c438; /* dsll t8,t8,0x10 */ |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
98 p->text.i[ 4] = 0x0018c438; /* dsll t8,t8,0x10 */ |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
99 p->text.i[ 7] = 0x0019cc38; /* dsll t9,t9,0x10 */ |
4b5ae110848c
- mips64 callback fixes for addresses using high word bits
cslag
parents:
136
diff
changeset
|
100 p->text.i[ 9] = 0x0019cc38; /* dsll t9,t9,0x10 */ |
116 | 101 p->text.i[11] = 0x03200008; /* jr $t9 */ |
102 } | |
103 |