rbdc 0.8.7 → 0.9.0

data/dyncall/dyncallback/dyncall_callback.h

@@ -6,7 +6,7 @@
  Description: Callback - Interface
  License:
 
-   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -32,6 +32,8 @@
 
 typedef struct DCCallback DCCallback;
 
+// TODO: return value is the type encoded as a signature char (character of the set [vBcCsSiIjJlLfd]).
+
 typedef char (DCCallbackHandler)(DCCallback* pcb, DCArgs* args, DCValue* result, void* userdata);
 
 #ifdef __cplusplus

data/dyncall/dyncallback/dyncall_callback_arch.S

@@ -6,7 +6,7 @@
  Description: Callback Thunk - Implementation Back-end selector
  License:
 
-   Copyright (c) 2007-2013 Daniel Adler <dadler@uni-goettingen.de>,
+   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -40,32 +40,40 @@
 #    error Unsupported Architecture on Plan9.
 #  endif
 #elif defined(DC__OS_Darwin)
-#  if defined(DC__Arch_PowerPC)
+#  if defined(DC__Arch_PPC32)
 #    include "dyncall_callback_ppc32_apple.s"
 #  elif defined(DC__Arch_ARM_ARM)
 #    include "dyncall_callback_arm32_arm_apple.s"
 #  elif defined(DC__Arch_ARM_THUMB)
-#    include "dyncall_callback_arm32_thumb_apple.s"
+#    include "dyncall_callback_arm32_thumb_apple.S"
 #  elif defined(DC__Arch_AMD64)
 #    include "dyncall_callback_x64.S"
 #  elif defined(DC__Arch_Intel_x86)
 #    include "dyncall_callback_x86.S"
+#  elif defined(DC__Arch_ARM64)
+#    include "dyncall_callback_arm64.S"
+#  else // e.g. PowerPC G5, which is PPC64, etc.
+#    error Unsupported Architecture on Darwin/OS X.
 #  endif
 #else 
 #  if defined(DC__Arch_Intel_x86)
 #    include "dyncall_callback_x86.S"
 #  elif defined(DC__Arch_AMD64)
 #    include "dyncall_callback_x64.S"
-#  elif defined(DC__Arch_PowerPC)
+#  elif defined(DC__Arch_PPC32)
 #    include "dyncall_callback_ppc32.S"
+#  elif defined(DC__Arch_PPC64)
+#    include "dyncall_callback_ppc64.S"
 #  elif defined(DC__Arch_ARM_ARM)
-#    include "dyncall_callback_arm32_arm_gas.s"
+#    include "dyncall_callback_arm32_arm_gas.S"
 #  elif defined(DC__Arch_ARM_THUMB)
-#    include "dyncall_callback_arm32_thumb_gas.s"
+#    include "dyncall_callback_arm32_thumb_gas.S"
 #  elif defined(DC__Arch_Sparc)
 #    include "dyncall_callback_sparc32.s"
 #  elif defined(DC__Arch_Sparcv9)
 #    include "dyncall_callback_sparc64.s"
+#  elif defined(DC__Arch_ARM64)
+#    include "dyncall_callback_arm64.S"
 #  endif
 #endif
 

data/dyncall/dyncallback/dyncall_callback_arm32_arm.c

@@ -6,7 +6,7 @@
  Description: Callback - Implementation for ARM32 (ARM mode)
  License:
 
-   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -24,6 +24,7 @@
 */
 
 
+
 #include "dyncall_callback_arm32_arm.h"
 #include "dyncall_args_arm32_arm.h"
 

data/dyncall/dyncallback/dyncall_callback_arm32_arm.h

@@ -6,7 +6,7 @@
  Description: Callback - Header for ARM32 (ARM mode)
  License:
 
-   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -24,6 +24,7 @@
 */
 
 
+
 #ifndef DYNCALL_CALLBACK_ARM32_ARM_H_
 #define DYNCALL_CALLBACK_ARM32_ARM_H_
 

data/dyncall/dyncallback/dyncall_callback_arm32_arm_apple.s

@@ -32,13 +32,13 @@
 /* sizes */
 .set DCThunk_size   ,   8
 .set DCArgs_size    ,  24
+.set DCCallback_size,  20
 .set DCValue_size   ,   8
 
 /* struct DCCallback offsets and size */
 .set CTX_thunk      ,   0
 .set CTX_handler    ,  12
 .set CTX_userdata   ,  16
-.set DCCallback_size,  20
 
 
 /* Called by thunk - thunk stores pointer to DCCallback in r12 */

data/dyncall/dyncallback/{dyncall_callback_arm32_arm_gas.s → dyncall_callback_arm32_arm_gas.S}

@@ -2,7 +2,7 @@
 
  Package: dyncall
  Library: dyncallback
- File: dyncallback/dyncall_callback_arm32_arm_gas.s
+ File: dyncallback/dyncall_callback_arm32_arm_gas.S
  Description: Callback Thunk - Implementation for ARM32 (ARM mode)
  License:
 
@@ -23,6 +23,7 @@
 
 */
 
+#include "../dyncall/dyncall_macros.h"
 
 .text
 .code 32	/* ARM mode */
@@ -30,15 +31,16 @@
 .globl dcCallbackThunkEntry
 
 /* sizes */
-.set DCThunk_size   ,   8
-.set DCArgs_size    ,  24
+/* .set DCThunk_size   ,   8 */
+/* .set DCArgs_size    ,  24 */ /* for EABI/ATPCS/... */
+/* .set DCArgs_size    ,  96 */ /* for armhf          */
+/* .set DCCallback_size,  20 */
 .set DCValue_size   ,   8
 
 /* struct DCCallback offsets and size */
-.set CTX_thunk      ,   0
+/* .set CTX_thunk      ,   0 */
 .set CTX_handler    ,  12
 .set CTX_userdata   ,  16
-.set DCCallback_size,  20
 
 
 /* Called by thunk - thunk stores pointer to DCCallback in r12 */
@@ -51,7 +53,12 @@ dcCallbackThunkEntry:
 
 	/* Grab arguments. */
 	mov		%r4, #0
-	stmdb	%r13!, {%r0-%r4, %r11}			/* Spill first 4 args to DCArgs, along with reg_count and (stack) pointer to remaining args. */
+#if defined(DC__ABI_ARM_HF)
+	stmdb	%r13!, {%r4}					/* Init freg_count and dreg_count to 0 */
+	stmdb	%r13!, {%r4}
+	fstmdbd	%r13!, {d0-d7}					/* Store all fp-registers in DCArgs' f[16] */
+#endif
+	stmdb	%r13!, {%r0-%r4, %r11}			/* Spill first 4 args to DCArgs, along with reg_count (init to 0) and (stack) pointer to remaining args. */
 
 	/* Prepare callback handler call. */
 	mov		%r0, %r12						/* Parameter 0 (r0) = DCCallback pointer (r12, pointer to thunk). */
@@ -62,11 +69,14 @@ dcCallbackThunkEntry:
 
 	/* Call. */
 	ldr		%r4, [%r12, #CTX_handler]		/* Load callback handler pointer into r4. */
-	mov		%r14, %r15						/* Branch return address(r15) -> link register (r14) -- r15 always points to address of current + 2 instructions (= Epilog code). */ 
+	mov		%r14, %r15						/* Branch return address(r15) -> link register (r14) -- r15 always points to address of current + 2 instructions (= Epilog code). */
 	bx		%r4								/* Call. */
 
 	/* Return value. */
 	ldmia	%r13, {%r0, %r1}				/* Load return value in r0 and r1. */
+#if defined(DC__ABI_ARM_HF)
+	fldmiad	%r13, {%d0}						/* Same for floating point return value (if any). */
+#endif
 
 	/* Epilog. */
 	ldmdb	%r11, {%r4-%r11, %r13, %r15}	/* Restore permanent registers (restore stack ptr and program counter).@@@db not needed since we rewrite r13? */

data/dyncall/dyncallback/dyncall_callback_arm32_thumb.c

@@ -6,7 +6,7 @@
  Description: Callback - Implementation for ARM32 (THUMB mode)
  License:
 
-   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -24,6 +24,7 @@
 */
 
 
+
 #include "dyncall_callback_arm32_thumb.h"
 #include "dyncall_callback_arm32_arm.c" /* Uses same code as ARM mode. */
 

data/dyncall/dyncallback/dyncall_callback_arm32_thumb.h

@@ -6,7 +6,7 @@
  Description: Callback - Header for ARM32 (THUMB mode)
  License:
 
-   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -24,6 +24,7 @@
 */
 
 
+
 #ifndef DYNCALL_CALLBACK_ARM32_THUMB_H_
 #define DYNCALL_CALLBACK_ARM32_THUMB_H_
 

data/dyncall/dyncallback/{dyncall_callback_arm32_thumb_apple.s → dyncall_callback_arm32_thumb_apple.S}

@@ -2,7 +2,7 @@
 
  Package: dyncall
  Library: dyncallback
- File: dyncallback/dyncall_callback_arm32_thumb_gas.s
+ File: dyncallback/dyncall_callback_arm32_thumb_apple.S
  Description: Callback Thunk - Implementation for ARM32 (THUMB mode)
  License:
 
@@ -28,5 +28,5 @@
 /* into ARM mode, the parameters passed use the same registers/stack spase */
 /* as the ARM mode, and the bx instruction switches back to THUMB mode, if */
 /* the function to be called has a "THUMB function address" (=address+1).  */
-.include "dyncall_callback_arm32_arm_apple.s"
+#include "dyncall_callback_arm32_arm_apple.s"
 

data/dyncall/dyncallback/{dyncall_callback_arm32_thumb_gas.s → dyncall_callback_arm32_thumb_gas.S}

@@ -2,7 +2,7 @@
 
  Package: dyncall
  Library: dyncallback
- File: dyncallback/dyncall_callback_arm32_thumb_gas.s
+ File: dyncallback/dyncall_callback_arm32_thumb_gas.S
  Description: Callback Thunk - Implementation for ARM32 (THUMB mode)
  License:
 
@@ -28,5 +28,5 @@
 /* into ARM mode, the parameters passed use the same registers/stack space */
 /* as the ARM mode, and the bx instruction switches back to THUMB mode, if */
 /* the function to be called has a "THUMB function address" (=address+1).  */
-.include "dyncall_callback_arm32_arm_gas.s"
+#include "dyncall_callback_arm32_arm_gas.S"
 

data/dyncall/dyncallback/dyncall_callback_arm64.S

@@ -0,0 +1,111 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_callback_arm64.S
+ Description: Callback Thunk - Implementation for ARM64 / ARMv8 / AAPCS64
+ License:
+
+   Copyright (c) 2015 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.
+
+*/
+// struct DCCallback
+//   type       off   size
+//   ---------|------|------
+//   DCThunk  |   0  |  32
+//   handler  |  32  |   8
+//   userdata |  40  |   8
+
+#include "../portasm/portasm-arm.S"
+
+.align 4
+GLOBAL_C(dcCallbackThunkEntry)
+ENTRY_C(dcCallbackThunkEntry)
+
+// input:
+//  x9: DCCallback* pcb
+//  x0..x7 ?? GP regs
+//  d0..d7 ?? FP/SIMD regs
+//  sp...  ?? arguments on stack
+//
+// locals:
+//   type       off   size
+//   ---------|------|------
+//   Frame        0     16
+//   DCArgs      16    168
+//   DCValue    184     16
+//
+//   size              200
+//   aligned           208
+//
+
+// locals:
+//    x10: sp
+//    x11: DCArgs* args
+
+	mov x10, sp
+	stp x29, x30, [sp, #-208 ]! 
+	mov x29, sp
+
+	add x11, x29 , #16
+
+// save integer registers
+
+	stp x0, x1, [x11, #0 ]
+	stp x2, x3, [x11, #16]
+	stp x4, x5, [x11, #32]
+        stp x6, x7, [x11, #48]
+
+	stp d0, d1, [x11, #64]
+	stp d2, d3, [x11, #80]
+     	stp d4, d5, [x11, #96]
+        stp d6, d7, [x11, #112]
+
+	eor x12, x12, x12
+	stp x10,x12,[x11, #128]		// sp=sp, i=0, f=0
+	
+	str x12,    [x11, #144]		// s=0, reserved=0
+          
+
+// call handler:
+//   args:
+//     x0: DCCallback* pcb
+//     x1: DCArgs*     args
+//     x2: DCValue*    result
+//     x3: void*       userdata
+
+	mov x0 , x9
+	add x1 , x29 , #16
+	add x2 , x29 , #184
+	ldr x3 , [x9 , #40]
+
+	ldr x11, [x9 , #32]
+	blr  x11
+
+	and w0, w0, #255
+	cmp w0, 'f'
+	b.eq .retf
+	cmp w0, 'd'
+	b.eq .retf
+	
+.reti:
+	ldr x0, [x29, #184]
+	b .ret
+.retf:
+	ldr d0, [x29, #184]
+.ret:
+	ldp x29, x30, [sp], #208
+	ret

data/dyncall/dyncallback/dyncall_callback_arm64.c

@@ -0,0 +1,71 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_callback_arm64.c
+ Description: Callback - Implementation for ARM64 / ARMv8 / AAPCS64
+ License:
+
+   Copyright (c) 2015 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_callback.h"
+#include "dyncall_alloc_wx.h"
+#include "dyncall_thunk.h"
+
+extern void dcCallbackThunkEntry();
+
+struct DCCallback
+{
+                                //  off  size
+                                // ----|-----
+  DCThunk            thunk;	//   0     32
+  DCCallbackHandler* handler; 	//  32      8
+  void*              userdata;	//  40      8
+                                //
+                                //  size   48 
+                                // aligned 48 
+};
+
+void dcbInitCallback(DCCallback* pcb, const char* signature, DCCallbackHandler* handler, void* userdata)
+{
+  pcb->handler = handler;
+  pcb->userdata = userdata;
+}
+
+DCCallback* dcbNewCallback(const char* signature, DCCallbackHandler* handler, void* userdata)
+{
+  int err;
+  DCCallback* pcb;
+  err = dcAllocWX(sizeof(DCCallback), (void**) &pcb);
+  if (err != 0) return 0;
+
+  dcbInitThunk(&pcb->thunk, dcCallbackThunkEntry);
+  dcbInitCallback(pcb, signature, handler, userdata);
+  return pcb;
+}
+
+void dcbFreeCallback(DCCallback* pcb)
+{
+  dcFreeWX(pcb, sizeof(DCCallback));
+}
+
+void* dcbGetUserData(DCCallback* pcb)
+{
+  return pcb->userdata;
+}
+

data/dyncall/dyncallback/dyncall_callback_mips.c

@@ -6,8 +6,8 @@
  Description: Callback - Implementation Header for MIPS
  License:
 
-   Copyright (c) 2013 Daniel Adler <dadler@uni-goettingen.de>,
-                      Tassilo Philipp <tphilipp@potion-studios.com>
+   Copyright (c) 2013-2015 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
@@ -23,6 +23,7 @@
 
 */
 
+
 #include "dyncall_callback.h"
 #include "dyncall_callback_mips.h"