Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_args_sparc64.c @ 533:71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
* integration of aggregate-by-value (struct, union) support patch for x64 (win and sysv)
* windows/x64 asm additions to specify how stack unwinds (help for debuggers, exception handling, etc.)
* see Changelog for details
- new calling convention modes for thiscalls (platform agnostic, was specific before)
* new signature character for platform agnostic thiscalls ('*' / DC_SIGCHAR_CC_THISCALL)
- dcCallF(), dcVCallF(), dcArgF() and dcVArgF():
* added support for aggregates-by-value (wasn't part of patch)
* change that those functions don't implicitly call dcReset() anymore, which was unflexible (breaking change)
- added macros to feature test implementation for aggregate-by-value and syscall support
- changed libdyncall_s.lib and libdyncallback_s.lib order in callback test makefiles, as some toolchains are picky about order
- doc:
* man page updates to describe aggregate interface
* manual overview changes to highlight platforms with aggregate-by-value support
- test/plain: replaced tests w/ old/stale sctruct interface with new aggregate one
| author | Tassilo Philipp |
|---|---|
| date | Thu, 21 Apr 2022 13:35:47 +0200 |
| parents | f5577f6bf97a |
| children | 111236b31c75 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 | |
| 3 Package: dyncall | |
| 4 Library: dyncallback | |
| 5 File: dyncallback/dyncall_args_sparc64.c | |
| 6 Description: Callback's Arguments VM - Implementation for sparc64 - not yet | |
| 7 License: | |
| 8 | |
|
533
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
9 Copyright (c) 2007-2022 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_sparc64.h" | |
| 28 | |
| 196 | 29 DCulonglong dcbArgULongLong(DCArgs* p) { return p->arg_ptr[p->i++]; } |
| 88 | 30 DClonglong dcbArgLongLong (DCArgs* p) { return (DClonglong)dcbArgULongLong(p); } |
|
191
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
31 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
32 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
33 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
34 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
35 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
36 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
37 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
38 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
39 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgULongLong(p); } |
|
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
40 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer) dcbArgULongLong(p); } |
| 196 | 41 |
| 42 DCdouble dcbArgDouble(DCArgs* p) | |
| 43 { | |
| 44 return (p->i < DCARGS_SPARC64_NUM_DOUBLE_REGS) | |
| 45 ? p->dreg_data[p->i++] | |
| 46 : *(DCdouble*)(p->arg_ptr + p->i++); | |
| 47 } | |
|
191
2f7a7f3472cb
- first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents:
88
diff
changeset
|
48 |
| 196 | 49 DCfloat dcbArgFloat(DCArgs* p) |
| 50 { | |
| 51 return (p->i < DCARGS_SPARC64_NUM_DOUBLE_REGS) | |
| 52 ? *((DCfloat*)(p->dreg_data + p->i++)+1) /* +1 bc single-prec fp args are */ | |
| 53 : *((DCfloat*)(p->arg_ptr + p->i++)+1); /* right aligned in 64bit slot */ | |
| 54 } | |
| 55 | |
|
533
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
56 void dcbArgAggr (DCArgs* p, DCpointer target) { /* @@@AGGR not impl */ } |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
57 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
|
58 |