annotate dyncallback/dyncall_thunk_arm64.c @ 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 61c485f8cc06
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
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 File: dyncallback/dyncall_thunk_arm64.c
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 Description: 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: 0
diff changeset
9 Copyright (c) 2015-2018 Daniel Adler <dadler@uni-goettingen.de>,
f5577f6bf97a - file header cleanups for release
Tassilo Philipp
parents: 0
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
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28 #include "dyncall_thunk.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32 Thunk Register: x9
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34 Thunk:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35 adr x9, Thunk
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36 ldr x10, .target
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
37 br x10
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38 nop
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
39 .target:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
40 .xword 0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
41
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
42 -- Encoded in:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
43
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
44 0000000000000000 <Thunk>:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
45 0: 10000009 adr x9, 0 <Thunk>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46 4: 5800006a ldr x10, 10 <.target>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
47 8: d61f0140 br x10
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
48 c: d503201f nop
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
49
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
50 0000000000000010 <.target>:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
51 10: 76543210 .word 0x76543210
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
52 14: fedcba98 .word 0xfedcba98
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 void dcbInitThunk(DCThunk* p, void (*entry)())
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
56 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
57 p->code[0] = 0x10000009; // adr x9, 0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
58 p->code[1] = 0x5800006a; // ldr x9, entry
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
59 p->code[2] = 0xd61f0140; // br x9
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
60 p->code[3] = 0xd503201f; // nop
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
61 p->entry = entry; // entry:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
62 // .xword 0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
63 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
64