rbdc 0.8.0

data/dyncall/dyncallback/dyncall_callback_x86_masm.asm

@@ -0,0 +1,74 @@
+; auto-generated by gen-masm.sh
+.386
+.MODEL FLAT
+.CODE
+
+DCThunk_size = 16
+DCArgs_size = 20
+DCValue_size = 8
+CTX_thunk = 0
+CTX_phandler = 16
+CTX_pargsvt = 20
+CTX_stack_cleanup = 24
+CTX_userdata = 28
+frame_arg0 = 8
+frame_ret = 4
+frame_parent = 0
+frame_CTX = -4
+frame_DCArgs = -24
+frame_DCValue = -32
+_dcCallbackThunkEntry PROC
+OPTION PROLOGUE:NONE, EPILOGUE:NONE
+ push EBP
+ mov EBP,ESP
+ push EAX
+ push 0
+ push EDX
+ push ECX
+ lea ECX,dword ptr [EBP+frame_arg0]
+ push ECX
+ push dword ptr [EAX+CTX_pargsvt]
+ mov ECX,ESP
+ push 0
+ push 0
+ mov EDX,ESP
+ and ESP,-16
+ push dword ptr [EAX+CTX_userdata]
+ push EDX
+ push ECX
+ push EAX
+ call dword ptr [EAX+CTX_phandler]
+ mov ESP,EBP
+ pop ECX
+ pop ECX
+ mov EDX,dword ptr [EBP+frame_CTX]
+ add ESP,dword ptr [EDX+CTX_stack_cleanup]
+ push ECX
+ lea EDX,dword ptr [EBP+frame_DCValue]
+ mov EBP,dword ptr [EBP+0]
+ cmp AL,118
+ je return_void
+ cmp AL,100
+ je return_f64
+ cmp AL,102
+ je return_f32
+ cmp AL,108
+ je return_i64
+ cmp AL,76
+ je return_i64
+return_i32:
+ mov EAX,dword ptr [EDX+0]
+ ret
+return_i64:
+ mov EAX,dword ptr [EDX+0]
+ mov EDX,dword ptr [EDX+4]
+ ret
+return_f32:
+ fld dword ptr [EDX+0]
+ ret
+return_f64:
+ fld qword ptr [EDX+0]
+return_void:
+ ret
+_dcCallbackThunkEntry ENDP
+END

data/dyncall/dyncallback/dyncall_thunk.c

@@ -0,0 +1,47 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk.c
+ Description: Thunk - Implementation Back-end selection
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+#include "dyncall_thunk.h"
+
+
+#if defined(DC__Arch_Intel_x86)
+# include "dyncall_thunk_x86.c"
+#elif defined(DC__Arch_AMD64)
+# include "dyncall_thunk_x64.c"
+#elif defined(DC__Arch_PowerPC)
+# include "dyncall_thunk_ppc32.c"
+#elif defined(DC__Arch_ARM_ARM)
+#include "dyncall_thunk_arm32_arm.c"
+#elif defined(DC__Arch_ARM_THUMB)
+#include "dyncall_thunk_arm32_thumb.c"
+#elif defined(DC__Arch_MIPS)
+#include "dyncall_thunk_mips.c"
+#elif defined(DC__Arch_Sparc)
+#include "dyncall_thunk_sparc32.c"
+#elif defined(DC__Arch_Sparcv9)
+#include "dyncall_thunk_sparc64.c"
+#endif
+

data/dyncall/dyncallback/dyncall_thunk.h

@@ -0,0 +1,84 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk.h
+ Description: Thunk - Interface
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+#ifndef DYNCALL_THUNK_H
+#define DYNCALL_THUNK_H
+
+/**
+ ** dyncall thunks
+ **
+ ** thunks are small-size hybrid code/data objects, created at run-time to
+ ** be used as function pointers with associated data and entry functions.
+ **
+ ** The header contains code, that does load its address into a designated scratch
+ ** register and will jump to a thunk function.
+ **
+ ** Thunk entry procedures are compiled functions, that are called as a result of
+ ** a thunk function.
+ ** There is one thunk entry currently for supporting callbacks.
+ **
+ ** Thunk context register ( ::= an available scratch register in the calling convention):
+ **
+ ** x86:  eax
+ ** x64:  rax
+ ** ppc:   r2
+ **
+ **/
+
+#include "../dyncall/dyncall_macros.h"
+
+typedef struct DCThunk_ DCThunk;
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void   dcbInitThunk(DCThunk* p, void (*entry)());
+
+#if defined(DC__Arch_Intel_x86)
+#include "dyncall_thunk_x86.h"
+#elif defined (DC__Arch_AMD64)
+#include "dyncall_thunk_x64.h"
+#elif defined (DC__Arch_PowerPC)
+#include "dyncall_thunk_ppc32.h"
+#elif defined (DC__Arch_ARM_ARM)
+#include "dyncall_thunk_arm32_arm.h"
+#elif defined (DC__Arch_ARM_THUMB)
+#include "dyncall_thunk_arm32_thumb.h"
+#elif defined (DC__Arch_MIPS)
+#include "dyncall_thunk_mips.h"
+#elif defined (DC__Arch_Sparc)
+#include "dyncall_thunk_sparc32.h"
+#elif defined (DC__Arch_Sparcv9)
+#include "dyncall_thunk_sparc64.h"
+#endif
+
+#ifdef __cplusplus
+}
+#endif
+
+
+#endif /* DYNCALL_THUNK_H */

data/dyncall/dyncallback/dyncall_thunk_arm32_arm.c

@@ -0,0 +1,45 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk_arm32_arm.c
+ Description: Thunk - Implementation for ARM32 (ARM mode)
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+#include "dyncall_thunk.h"
+
+void dcbInitThunk(DCThunk* p, void (*entry)())
+{
+  /*
+    # ARM32 (ARM mode) thunk code:
+    .code 32
+      sub %r12, %r15, #8
+      ldr %r15, [%r15, #-4]
+  */
+
+  /* This code loads 'entry+8' into r15. The -4 is needed, because r15 as  */
+  /* program counter points to the current instruction+8, but the pointer  */
+  /* to the code to execute follows the ldr instruction directly. Add 8 to */
+  /* entry for similar reasons. NOTE: Latter seems to be implicit with     */ 
+  /* latest update of arm-eabi tools.                                      */
+  p->code[0]  = 0xe24fc008UL;  /* sub %r12, %r15, #8 */
+  p->code[1]  = 0xe51ff004UL;  /* ldr %r15, [%r15, #-4] */
+  p->entry = entry/*+8*/;
+}

data/dyncall/dyncallback/dyncall_thunk_arm32_arm.h

@@ -0,0 +1,40 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk_arm32_arm.h
+ Description: Thunk - Header for ARM32 (ARM mode)
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+#ifndef DYNCALL_THUNK_ARM32_ARM_H
+#define DYNCALL_THUNK_ARM32_ARM_H
+
+
+struct DCThunk_
+{
+  unsigned int code[2];
+  void       (*entry)();
+};
+
+#define DCTHUNK_ARM32_ARM_SIZE 12
+
+
+#endif /* DYNCALL_THUNK_ARM32_ARM_H */
+

data/dyncall/dyncallback/dyncall_thunk_arm32_thumb.c

@@ -0,0 +1,29 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk_arm32_thumb.c
+ Description: Thunk - Implementation for ARM32 (THUMB mode)
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+#include "dyncall_thunk_arm32_arm.c" /* Since we can mix ARM and THUMB    */
+                                     /* assembly, reuse the ARM mode code */
+

data/dyncall/dyncallback/dyncall_thunk_arm32_thumb.h

@@ -0,0 +1,35 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk_arm32_thumb.h
+ Description: Thunk - Header for ARM32 (THUMB mode)
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+#ifndef DYNCALL_THUNK_ARM32_THUMB_H
+#define DYNCALL_THUNK_ARM32_THUMB_H
+
+#include "dyncall_thunk_arm32_arm.h" /* Uses same code as ARM mode. */
+
+#define DCTHUNK_ARM32_THUMB_SIZE 12
+
+
+#endif /* DYNCALL_THUNK_ARM32_THUMB_H */
+

data/dyncall/dyncallback/dyncall_thunk_mips.c

@@ -0,0 +1,52 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk_mips.c
+ Description: Thunk - Implementation for MIPS
+ License:
+
+   Copyright (c) 2013 Daniel Adler <dadler@uni-goettingen.de>,
+                      Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+#include "dyncall_thunk.h"
+
+unsigned short hi16(x) { return ( (unsigned short) (((unsigned int)x)>>16UL) ); }
+unsigned short lo16(x) { return ( (unsigned short)  ((unsigned int)x)        ); }
+
+void dcbInitThunk(DCThunk* p, void (*entry)())
+{
+  /*
+    mips thunk code:
+      lui $t4,      hi(p)
+      lui $t5,      hi(entry)
+      ori $t5, $t5, lo(entry)
+      jr  $t5
+      ori $t4, $t4, lo(p) - branch delay slot
+  */
+
+  p->data[0] = hi16(p);     /* lui $t4, hi(p) */
+  p->data[1] = 0x3c0c;
+  p->data[2] = hi16(entry); /* lui $t5, hi(entry) */
+  p->data[3] = 0x3c0d;
+  p->data[4] = lo16(entry); /* ori $t5, $t5, lo(entry) */
+  p->data[5] = 0x35ad;
+  p->jump    = 0x01a00008;  /* jr $t5 */
+  p->bddt[0] = lo16(p);     /* ori $t4, $t4, lo(p) - branch delay slot */
+  p->bddt[1] = 0x358c;
+}
+

data/dyncall/dyncallback/dyncall_thunk_mips.h

@@ -0,0 +1,37 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk_mips.h
+ Description: Thunk - Header for MIPS
+ License:
+
+   Copyright (c) 2013 Daniel Adler <dadler@uni-goettingen.de>,
+                      Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+#ifndef DYNCALL_THUNK_MIPS_H
+#define DYNCALL_THUNK_MIPS_H
+
+struct DCThunk_
+{
+  unsigned short data[6];
+  unsigned int   jump;
+  unsigned short bddt[2];
+};
+
+#endif /* DYNCALL_THUNK_MIPS_H */
+