annotate dyncallback/dyncall_callback_arm64.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 451299d50c1a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 Library: dyncallback
15
03c516772c65 - consistency in filenames that have cpp logic .s -> .S
cslag
parents: 0
diff changeset
5 File: dyncallback/dyncall_callback_arm64.S
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 Description: Callback Thunk - Implementation for ARM64 / ARMv8 / AAPCS64
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 License:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8
281
f5577f6bf97a - file header cleanups for release
Tassilo Philipp
parents: 15
diff changeset
9 Copyright (c) 2015-2018 Daniel Adler <dadler@uni-goettingen.de>,
f5577f6bf97a - file header cleanups for release
Tassilo Philipp
parents: 15
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25 // struct DCCallback
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26 // type off size
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27 // ---------|------|------
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28 // DCThunk | 0 | 32
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 // handler | 32 | 8
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30 // userdata | 40 | 8
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32 #include "../portasm/portasm-arm.S"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34 .align 4
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35 GLOBAL_C(dcCallbackThunkEntry)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36 ENTRY_C(dcCallbackThunkEntry)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
37
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38 // input:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
39 // x9: DCCallback* pcb
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
40 // x0..x7 ?? GP regs
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
41 // d0..d7 ?? FP/SIMD regs
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
42 // sp... ?? arguments on stack
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
43 //
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
44 // locals:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
45 // type off size
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46 // ---------|------|------
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
47 // Frame 0 16
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
48 // DCArgs 16 168
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
49 // DCValue 184 16
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
50 //
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
51 // size 200
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
52 // aligned 208
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
53 //
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
55 // locals:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
56 // x10: sp
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
57 // x11: DCArgs* args
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
58
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
59 mov x10, sp
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
60 stp x29, x30, [sp, #-208 ]!
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
61 mov x29, sp
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
62
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
63 add x11, x29 , #16
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
64
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
65 // save integer registers
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
66
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
67 stp x0, x1, [x11, #0 ]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
68 stp x2, x3, [x11, #16]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
69 stp x4, x5, [x11, #32]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
70 stp x6, x7, [x11, #48]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
71
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
72 stp d0, d1, [x11, #64]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
73 stp d2, d3, [x11, #80]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
74 stp d4, d5, [x11, #96]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
75 stp d6, d7, [x11, #112]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
76
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
77 eor x12, x12, x12
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
78 stp x10,x12,[x11, #128] // sp=sp, i=0, f=0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
79
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
80 str x12, [x11, #144] // s=0, reserved=0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
81
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
82
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
83 // call handler:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
84 // args:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
85 // x0: DCCallback* pcb
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
86 // x1: DCArgs* args
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
87 // x2: DCValue* result
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
88 // x3: void* userdata
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
89
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
90 mov x0 , x9
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
91 add x1 , x29 , #16
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
92 add x2 , x29 , #184
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
93 ldr x3 , [x9 , #40]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
94
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
95 ldr x11, [x9 , #32]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
96 blr x11
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
97
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
98 and w0, w0, #255
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
99 cmp w0, 'f'
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
100 b.eq .retf
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
101 cmp w0, 'd'
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
102 b.eq .retf
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
103
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
104 .reti:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
105 ldr x0, [x29, #184]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
106 b .ret
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
107 .retf:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
108 ldr d0, [x29, #184]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
109 .ret:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
110 ldp x29, x30, [sp], #208
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
111 ret