Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_callback_x64.S @ 357:d982a00c2177
- PPC64 asm syntax fix, specifying explicitly comparison mode for cmpi (newer toolchains complain, older ones took optional field of instruction which happened to be same value)
| author | Tassilo Philipp |
|---|---|
| date | Tue, 25 Feb 2020 18:16:13 +0100 |
| parents | f5577f6bf97a |
| children | 41e2a01cad32 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 | |
| 3 Package: dyncall | |
| 4 Library: dyncallback | |
| 5 File: dyncallback/dyncall_callback_x64.S | |
| 6 Description: Callback Thunk entry for x64 (portasm version) | |
| 7 License: | |
| 8 | |
| 281 | 9 Copyright (c) 2011-2018 Daniel Adler <dadler@uni-goettingen.de> |
| 0 | 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 | |
| 26 | |
|
165
572aff021627
- file name/layout cleanup, removed "-att" from x64 .S filenames, as unnecessary and also misleading
cslag
parents:
0
diff
changeset
|
27 #include "../portasm/portasm-x64.S" |
| 0 | 28 |
| 29 /* structure sizes */ | |
| 30 | |
| 31 SET(DCThunk_size,24) | |
| 32 SET(DCArgs_size_win64,80) | |
| 33 SET(DCArgs_size_sysv,128) | |
| 34 SET(DCValue_size,8) | |
| 35 | |
| 36 /* frame local variable offsets relative to %rbp*/ | |
| 37 | |
| 38 SET(FRAME_arg0_win64,48) | |
| 39 SET(FRAME_arg0_sysv,16) | |
| 40 SET(FRAME_return,8) | |
| 41 SET(FRAME_parent,0) | |
| 42 SET(FRAME_DCArgs_sysv,-128) | |
| 43 SET(FRAME_DCValue_sysv,-136) | |
| 44 SET(FRAME_DCArgs_win64,-80) | |
| 45 SET(FRAME_DCValue_win64,-80) | |
| 46 | |
| 47 /* struct DCCallback */ | |
| 48 | |
| 49 SET(CTX_thunk,0) | |
| 50 SET(CTX_handler,24) | |
| 51 SET(CTX_userdata,32) | |
| 52 SET(DCCallback_size,40) | |
| 53 | |
| 54 /* character constants */ | |
| 55 | |
| 56 #define ASCII_f 102 | |
| 57 #define ASCII_d 100 | |
| 58 | |
| 59 GLOBAL(dcCallback_x64_sysv) | |
| 60 BEGIN_PROC(dcCallback_x64_sysv) | |
|
165
572aff021627
- file name/layout cleanup, removed "-att" from x64 .S filenames, as unnecessary and also misleading
cslag
parents:
0
diff
changeset
|
61 |
| 0 | 62 PUSH(RBP) |
| 63 MOV(RSP,RBP) | |
| 64 | |
| 65 /* initialize DCArgs */ | |
| 66 | |
| 67 /* float parameters (8 registers spill to DCArgs) */ | |
| 68 | |
|
165
572aff021627
- file name/layout cleanup, removed "-att" from x64 .S filenames, as unnecessary and also misleading
cslag
parents:
0
diff
changeset
|
69 SUB(LIT(8*8),RSP) |
| 0 | 70 |
| 71 MOVSD(XMM7, QWORD(RSP,8*7)) /* struct offset 120: float parameter 7 */ | |
| 72 MOVSD(XMM6, QWORD(RSP,8*6)) /* struct offset 112: float parameter 6 */ | |
| 73 MOVSD(XMM5, QWORD(RSP,8*5)) /* struct offset 104: float parameter 5 */ | |
| 74 MOVSD(XMM4, QWORD(RSP,8*4)) /* struct offset 96: float parameter 4 */ | |
| 75 MOVSD(XMM3, QWORD(RSP,8*3)) /* struct offset 88: float parameter 3 */ | |
| 76 MOVSD(XMM2, QWORD(RSP,8*2)) /* struct offset 80: float parameter 2 */ | |
| 77 MOVSD(XMM1, QWORD(RSP,8*1)) /* struct offset 72: float parameter 1 */ | |
| 78 MOVSD(XMM0, QWORD(RSP,8*0)) /* struct offset 64: float parameter 0 */ | |
| 79 | |
| 80 /* integer parameters (6 registers spill to DCArgs) */ | |
| 81 | |
| 82 PUSH(R9) /* struct offset 56: parameter 5 */ | |
| 83 PUSH(R8) /* struct offset 48: parameter 4 */ | |
| 84 PUSH(RCX) /* struct offset 40: parameter 3 */ | |
| 85 PUSH(RDX) /* struct offset 32: parameter 2 */ | |
| 86 PUSH(RSI) /* struct offset 24: parameter 1 */ | |
| 87 PUSH(RDI) /* struct offset 16: parameter 0 */ | |
| 88 | |
| 89 /* register counts for integer/pointer and float regs */ | |
| 90 | |
| 91 PUSH(LIT(0)) /* struct offset 12: fcount */ | |
| 92 /* struct offset 8: icount */ | |
| 93 | |
| 94 LEA(QWORD(RBP,FRAME_arg0_sysv),RDX) /* struct offset 0: stack pointer */ | |
| 95 PUSH(RDX) | |
| 96 | |
| 97 MOV(RSP,RSI) /* arg 1 RSI : DCArgs* */ | |
|
165
572aff021627
- file name/layout cleanup, removed "-att" from x64 .S filenames, as unnecessary and also misleading
cslag
parents:
0
diff
changeset
|
98 |
| 0 | 99 /* initialize DCValue */ |
| 100 | |
| 101 PUSH(LIT(0)) /* struct offset 0: return value (max long long) */ | |
| 102 | |
| 103 /* call handler( *ctx, *args, *value, *userdata) */ | |
| 104 | |
| 105 MOV(RAX,RDI) /* arg 0 RDI : DCCallback* (RAX) */ | |
| 106 MOV(QWORD(RDI,CTX_userdata),RCX) /* arg 3 RCX : userdata* */ | |
| 107 MOV(RSP,RDX) /* arg 2 RDX : DCValue* */ | |
| 108 PUSH(LIT(0)) /* align to 16 bytes */ | |
| 109 CALL_REG(QWORD(RAX,CTX_handler)) | |
| 110 | |
| 111 /* pass return type via registers, handle ints and floats */ | |
| 112 | |
| 113 MOV(QWORD(RBP,FRAME_DCValue_sysv),RAX) | |
| 114 MOVD(RAX,XMM0) | |
| 115 | |
| 116 MOV(RBP,RSP) | |
| 117 POP(RBP) | |
| 118 RET() | |
| 119 | |
| 120 END_PROC(dcCallback_x64_sysv) | |
| 121 | |
| 122 GLOBAL(dcCallback_x64_win64) | |
| 123 BEGIN_PROC(dcCallback_x64_win64) | |
|
165
572aff021627
- file name/layout cleanup, removed "-att" from x64 .S filenames, as unnecessary and also misleading
cslag
parents:
0
diff
changeset
|
124 |
| 0 | 125 PUSH(RBP) |
| 126 MOV(RSP,RBP) | |
| 127 | |
| 128 /* initialize DCArgs */ | |
| 129 | |
| 130 /* float parameters (4 registers spill to DCArgs) */ | |
| 131 | |
|
165
572aff021627
- file name/layout cleanup, removed "-att" from x64 .S filenames, as unnecessary and also misleading
cslag
parents:
0
diff
changeset
|
132 SUB(LIT(4*8),RSP) |
| 0 | 133 |
| 134 MOVSD(XMM3, QWORD(RSP,8*3)) /* struct offset 72: float parameter 3 */ | |
| 135 MOVSD(XMM2, QWORD(RSP,8*2)) /* struct offset 64: float parameter 2 */ | |
| 136 MOVSD(XMM1, QWORD(RSP,8*1)) /* struct offset 56: float parameter 1 */ | |
| 137 MOVSD(XMM0, QWORD(RSP,8*0)) /* struct offset 48: float parameter 0 */ | |
| 138 | |
| 139 /* integer parameters (4 registers spill to DCArgs) */ | |
| 140 | |
| 141 PUSH(R9) /* struct offset 40: parameter 3 */ | |
| 142 PUSH(R8) /* struct offset 32: parameter 2 */ | |
| 143 PUSH(RDX) /* struct offset 24: parameter 1 */ | |
| 144 PUSH(RCX) /* struct offset 16: parameter 0 */ | |
| 145 | |
| 146 /* register counts for integer/pointer and float regs */ | |
| 147 | |
| 148 PUSH(LIT(0)) /* struct offset 12: fcount */ | |
| 149 /* struct offset 8: icount */ | |
| 150 | |
| 151 LEA(QWORD(RBP,FRAME_arg0_win64),RDX) /* struct offset 0: stack pointer */ | |
| 152 PUSH(RDX) | |
| 153 | |
| 154 MOV(RSP,RDX) /* arg 1 RDX : DCArgs* */ | |
| 155 | |
| 156 /* initialize DCValue */ | |
| 157 | |
| 158 // PUSHQ(LIT(0)) /* struct offset 0: return value (max long long) */ | |
| 159 | |
| 160 /* call handler( *ctx, *args, *value, *userdata) */ | |
| 161 | |
| 162 MOV(RAX,RCX) /* arg 0 RCX : DCCallback* (RAX) */ | |
| 163 MOV(QWORD(RAX,CTX_userdata),R9) /* arg 3 R9 : userdata* */ | |
| 164 MOV(RSP,R8) /* arg 2 R8 : DCValue* */ | |
| 165 SUB(LIT(4*8),RSP) /* make room for spill area and call */ | |
| 166 CALL_REG(QWORD(RAX,CTX_handler)) | |
| 167 | |
| 168 /* pass return type via registers, handle ints and floats */ | |
| 169 | |
| 170 MOV(QWORD(RBP,FRAME_DCValue_win64),RAX) | |
| 171 MOVD(RAX,XMM0) | |
| 172 | |
| 173 MOV(RBP,RSP) | |
| 174 POP(RBP) | |
| 175 RET() | |
| 176 | |
|
165
572aff021627
- file name/layout cleanup, removed "-att" from x64 .S filenames, as unnecessary and also misleading
cslag
parents:
0
diff
changeset
|
177 END_PROC(dcCallback_x64_win64) |
| 0 | 178 |
| 179 END_ASM | |
| 180 |