Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_args_sparc32.c @ 531:f6430d194be6
cleanups
author | Tassilo Philipp |
---|---|
date | Sat, 16 Apr 2022 14:59:05 +0200 |
parents | f5577f6bf97a |
children | 71c884e610f0 |
rev | line source |
---|---|
0 | 1 /* |
2 | |
3 Package: dyncall | |
4 Library: dyncallback | |
5 File: dyncallback/dyncall_args_sparc32.c | |
6 Description: Callback's Arguments VM - Implementation for sparc32 - not yet | |
7 License: | |
8 | |
281 | 9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>, |
0 | 10 Tassilo Philipp <tphilipp@potion-studios.com> |
11 | |
12 Permission to use, copy, modify, and distribute this software for any | |
13 purpose with or without fee is hereby granted, provided that the above | |
14 copyright notice and this permission notice appear in all copies. | |
15 | |
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
23 | |
24 */ | |
25 | |
26 | |
27 #include "dyncall_args_sparc32.h" | |
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 | 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 | 58 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgUInt(p); } |
59 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgUInt(p); } | |
60 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgUInt(p); } | |
61 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgUInt(p); } | |
62 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgUInt(p); } | |
63 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgUInt(p); } | |
64 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgUInt(p); } | |
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 |