dyncall: dyncallback/dyncall_callback

annotate dyncallback/dyncall_callback_x64.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	ba70fb631bea

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_callback_x64.c
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	6 Description: Callback - Implementation for x64
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
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 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
152 d48a8b8d2ef9 - integrated all headers containing DCCallback definition into the translation units used (arm64 already avoided this pointless header, so following that style) cslag parents: 0 diff changeset	27 #include "dyncall_callback.h"
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	28 #include "dyncall_alloc_wx.h"
533 71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	29 #include "dyncall_aggregate.h"
152 d48a8b8d2ef9 - integrated all headers containing DCCallback definition into the translation units used (arm64 already avoided this pointless header, so following that style) cslag parents: 0 diff changeset	30 #include "dyncall_thunk.h"
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	31
533 71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	32
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	33 /* Callback symbol. */
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	34 extern void dcCallback_x64_sysv();
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	35 extern void dcCallback_x64_win64();
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	36
152 d48a8b8d2ef9 - integrated all headers containing DCCallback definition into the translation units used (arm64 already avoided this pointless header, so following that style) cslag parents: 0 diff changeset	37 struct DCCallback
d48a8b8d2ef9 - integrated all headers containing DCCallback definition into the translation units used (arm64 already avoided this pointless header, so following that style) cslag parents: 0 diff changeset	38 {
533 71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	39 DCThunk thunk; /* offset 0, size 24 */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	40 DCCallbackHandler* handler; /* offset 24 */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	41 void* userdata; /* offset 32 */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	42 DCint aggr_return_register; /* offset 40 */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	43 DCint pad; /* offset 44 */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	44 DCaggr const aggrs; /* offset 48 */
152 d48a8b8d2ef9 - integrated all headers containing DCCallback definition into the translation units used (arm64 already avoided this pointless header, so following that style) cslag parents: 0 diff changeset	45 };
d48a8b8d2ef9 - integrated all headers containing DCCallback definition into the translation units used (arm64 already avoided this pointless header, so following that style) cslag parents: 0 diff changeset	46
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	47
533 71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	48 void dcbInitCallback2(DCCallback* pcb, const DCsigchar* signature, DCCallbackHandler* handler, void* userdata, DCaggr const aggrs)
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	49 {
533 71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	50 const DCsigchar *ch = signature;
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	51 DCint num_aggrs = 0;
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	52
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	53 pcb->handler = handler;
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	54 pcb->userdata = userdata;
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	55 pcb->aggrs = NULL;
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	56 pcb->aggr_return_register = -2; /* default, = no aggr as ret value */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	57
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	58 while(*ch)
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	59 num_aggrs += (*(ch++) == DC_SIGCHAR_AGGREGATE);
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	60
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	61 if(num_aggrs)
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	62 {
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	63 pcb->aggrs = aggrs;
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	64
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	65 if (ch != signature && *(ch - 1) == DC_SIGCHAR_AGGREGATE) {
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	66 const DCaggr *ag = pcb->aggrs[num_aggrs - 1];
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	67
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	68 #if defined(DC_UNIX)
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	69 if (!ag \|\| (ag->sysv_classes[0] == SYSVC_MEMORY)) {
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	70 #else
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	71 if (!ag \|\| ag->size > 8) {
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	72 #endif
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	73 /* we need to "return" this aggr as a hidden pointer (first arg) */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	74 pcb->aggr_return_register = 0;
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	75 } else {
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	76 pcb->aggr_return_register = -1; /* small aggr, returned in register */
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	77 }
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	78 }
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	79 }
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	80 }
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	81
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	82
533 71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	83 DCCallback* dcbNewCallback2(const DCsigchar* signature, DCCallbackHandler* handler, void* userdata, DCaggr const aggrs)
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	84 {
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	85 int err;
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	86 DCCallback* pcb;
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	87 err = dcAllocWX(sizeof(DCCallback), (void**) &pcb);
202 030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	88 if(err)
030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	89 return NULL;
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	90
533 71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	91 dcbInitCallback2(pcb, signature, handler, userdata, aggrs);
71c884e610f0 - integration of patches from Raphael Luba, Thekla, Inc.: Tassilo Philipp parents: 281 diff changeset	92
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	93 #if defined (DC__OS_Win64)
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	94 dcbInitThunk(&pcb->thunk, dcCallback_x64_win64);
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	95 #else
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	96 dcbInitThunk(&pcb->thunk, dcCallback_x64_sysv);
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	97 #endif
202 030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	98
030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	99 err = dcInitExecWX(pcb, sizeof(DCCallback));
030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	100 if(err) {
030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	101 dcFreeWX(pcb, sizeof(DCCallback));
030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	102 return NULL;
030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	103 }
030fbb70aa1b - changed allocwx code: Tassilo Philipp parents: 152 diff changeset	104
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	105 return pcb;
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	106 }
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	107

Mercurial > pub > dyncall > dyncall

annotate dyncallback/dyncall_callback_x64.c @ 533:71c884e610f0