Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_args_sparc32.c @ 663:127b569978cc default tip
- another tweak handling clang trying to be too smart (see last commit)
author | Tassilo Philipp |
---|---|
date | Sun, 24 Mar 2024 13:52:44 +0100 |
parents | 93ce63d72d59 |
children |
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 | |
661
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
580
diff
changeset
|
9 Copyright (c) 2007-2024 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 | |
661
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
580
diff
changeset
|
27 #include "dyncall_args.h" |
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
580
diff
changeset
|
28 |
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
580
diff
changeset
|
29 struct DCArgs |
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
580
diff
changeset
|
30 { |
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
580
diff
changeset
|
31 int *arg_ptr; |
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
580
diff
changeset
|
32 }; |
0 | 33 |
158
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
34 /* 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
|
35 typedef union { |
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
36 DCdouble d; |
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
37 DCulonglong L; |
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
38 DCulong l[2]; |
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
39 } DCAligned64BitVal_t; |
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
40 |
157
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
41 static void* sparc_word(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 return args->arg_ptr++; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
44 } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
45 |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
46 static void* sparc_dword(DCArgs* args) |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
47 { |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
48 void *p = args->arg_ptr; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
49 args->arg_ptr += 2; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
50 return p; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
51 } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
52 |
158
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
53 /* 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
|
54 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
|
55 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
|
56 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
|
57 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
|
58 |
51b0a4544d9e
- sparc32 callbacks now complete, fixed 64bit value access alignment problems that caused SIGBUS errors
cslag
parents:
157
diff
changeset
|
59 /* 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
|
60 DCuint dcbArgUInt (DCArgs* p) { return *(DCuint*)sparc_word(p); } |
88 | 61 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
|
62 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgUInt(p); } |
88 | 63 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgUInt(p); } |
64 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgUInt(p); } | |
65 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgUInt(p); } | |
66 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgUInt(p); } | |
67 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgUInt(p); } | |
68 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgUInt(p); } | |
69 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgUInt(p); } | |
70 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
|
71 |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
72 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
|
73 |
580
2562c89d5bb5
- added missing return values for dcbArgAggr() on functions w/o aggregate support
Tassilo Philipp
parents:
544
diff
changeset
|
74 DCpointer dcbArgAggr (DCArgs* p, DCpointer target) { /* @@@AGGR not impl */ return NULL; } |
533
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
75 void dcbReturnAggr (DCArgs *args, DCValue *result, DCpointer ret) { /* @@@AGGR not impl */ } |
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
76 |