Mercurial > pub > dyncall > dyncall

annotate dyncallback/dyncall_args_sparc32.c @ 357:d982a00c2177

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- 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 71c884e610f0
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_args_sparc32.c
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 Description: Callback's Arguments VM - Implementation for sparc32 - not yet
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: 158
diff changeset
9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
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 #include "dyncall_args_sparc32.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28
158
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
29 /* Compiler aligns this to 8-byte boundaries, b/c of dword members, a fact needed below */
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
30 typedef union {
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
31 DCdouble d;
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
32 DCulonglong L;
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
33 DCulong l[2];
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
34 } DCAligned64BitVal_t;
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
35
157
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
36 static void* sparc_word(DCArgs* args)
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
37 {
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
38 return args->arg_ptr++;
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
39 }
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
40
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
41 static void* sparc_dword(DCArgs* args)
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
42 {
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
43 void *p = args->arg_ptr;
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
44 args->arg_ptr += 2;
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
45 return p;
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
46 }
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
47
158
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
48 /* copy words so that dwords are 8-byte aligned, for 64bit value indirection; unaligned
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
49 access results in SIGBUS; not quite sure why compiler doesn't abstract this (maybe b/c
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
50 of not having any idea about our assembler code?) */
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
51 DCulonglong dcbArgULongLong(DCArgs* p) { DCAligned64BitVal_t v; DCulong *l = (DCulong*)sparc_dword(p); v.l[0]=l[0]; v.l[1]=l[1]; return v.L; }
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
52 DCdouble dcbArgDouble (DCArgs* p) { DCAligned64BitVal_t v; DCulong *l = (DCulong*)sparc_dword(p); v.l[0]=l[0]; v.l[1]=l[1]; return v.d; }
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
53
51b0a4544d9e - sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents: 157
diff changeset
54 /* rest of getters based on above functions */
157
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
55 DCuint dcbArgUInt (DCArgs* p) { return *(DCuint*)sparc_word(p); }
88
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
56 DClonglong dcbArgLongLong (DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
157
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
57 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgUInt(p); }
88
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
58 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgUInt(p); }
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
59 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgUInt(p); }
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
60 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgUInt(p); }
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
61 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgUInt(p); }
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
62 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgUInt(p); }
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
63 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgUInt(p); }
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
64 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgUInt(p); }
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
65 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer) dcbArgUInt(p); }
157
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
66
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
67 DCfloat dcbArgFloat (DCArgs* p) { return *(DCfloat*) sparc_word(p); }
49549739228c - sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents: 88
diff changeset
68