rbdc 0.8.0

data/dyncall/dyncall/dyncall_api.c

@@ -0,0 +1,167 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_api.c
+ Description: C interface to call vm
+ 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.h"
+#include "dyncall_callvm.h"
+#include "dyncall_alloc.h"
+
+void dcReset(DCCallVM* vm)
+{ 
+  vm->mVTpointer->reset(vm); 
+}
+
+void dcFree(DCCallVM* vm) 
+{ 
+  vm->mVTpointer->free(vm); 
+}
+
+void dcMode(DCCallVM* vm,DCint mode) 
+{ 
+  vm->mVTpointer->mode(vm,mode);
+  /* dcReset(vm); -- in order to support ellipsis calls, we need to allow
+   * a dcMode(callvm, DC_CALL_C_ELLIPSIS_VARARGS) */
+}
+
+void dcArgBool(DCCallVM* vm,DCbool x) 
+{ 
+  vm->mVTpointer->argBool(vm, x); 
+}
+
+void dcArgChar(DCCallVM* vm,DCchar x)
+{ 
+  vm->mVTpointer->argChar(vm, x); 
+}
+
+void dcArgShort(DCCallVM* vm,DCshort x) 
+{ 
+  vm->mVTpointer->argShort(vm, x); 
+}
+
+void dcArgInt(DCCallVM* vm,DCint x) 
+{ 
+  vm->mVTpointer->argInt(vm, x); 
+}
+
+void dcArgLong(DCCallVM* vm,DClong x) 
+{ 
+  vm->mVTpointer->argLong(vm, x); 
+}
+
+void dcArgLongLong(DCCallVM* vm, DClonglong x) 
+{ 
+  vm->mVTpointer->argLongLong(vm, x); 
+}
+
+void dcArgFloat(DCCallVM* vm, DCfloat x) 
+{ 
+  vm->mVTpointer->argFloat(vm, x); 
+}
+
+void dcArgDouble(DCCallVM* vm, DCdouble x) 
+{ 
+  vm->mVTpointer->argDouble(vm, x); 
+}
+
+void dcArgPointer(DCCallVM* vm, DCpointer x) 
+{ 
+  vm->mVTpointer->argPointer(vm, x); 
+}
+
+void dcArgStruct(DCCallVM* vm, DCstruct* s, DCpointer x) 
+{ 
+  vm->mVTpointer->argStruct(vm, s, x); 
+}
+
+
+void dcCallVoid(DCCallVM* vm, DCpointer funcptr) 
+{        
+  vm->mVTpointer->callVoid(vm, funcptr); 
+}
+
+DCchar dcCallChar(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callChar(vm, funcptr); 
+}
+
+DCbool dcCallBool(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callBool(vm, funcptr); 
+}
+
+DCshort dcCallShort(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callShort(vm, funcptr); 
+}
+
+DCint dcCallInt(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callInt(vm, funcptr); 
+}
+
+DClong dcCallLong(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callLong(vm, funcptr); 
+}
+
+DClonglong dcCallLongLong(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callLongLong(vm, funcptr); 
+}
+
+DCfloat dcCallFloat(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callFloat(vm, funcptr); 
+}
+
+DCdouble dcCallDouble(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callDouble(vm, funcptr); 
+}
+
+DCpointer dcCallPointer(DCCallVM* vm, DCpointer funcptr) 
+{ 
+  return vm->mVTpointer->callPointer(vm, funcptr); 
+}
+
+void dcCallStruct(DCCallVM* vm, DCpointer funcptr, DCstruct* s, DCpointer x) 
+{ 
+  vm->mVTpointer->callStruct(vm, funcptr, s, x); 
+}
+
+DCint dcGetError(DCCallVM *vm)
+{
+  return vm->mError;
+}
+
+const char* dcGetErrorString(int mode)
+{
+  switch(mode) {
+    case DC_ERROR_NONE: return "none";
+    case DC_ERROR_UNSUPPORTED_MODE: return "unsupported mode";
+    default: return "(unknown mode id)";
+  }
+}
+

data/dyncall/dyncall/dyncall_call.S

@@ -0,0 +1,72 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call.S
+ Description: assembly call kernel, auto-selected by gcc / Plan9 build system
+ 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_macros.h"
+/* Plan9 */
+#if defined(DC__OS_Plan9)
+#  if defined(DC__Arch_Intel_x86)
+#    include "dyncall_call_x86_8a.s"
+#  else
+#    error Unsupported Architecture on Plan9.
+#  endif
+#elif defined(DC__C_MSVC)
+#  if defined(DC__OS_Win32)
+#    include "dyncall_call_x86_generic_masm.asm"
+#  elif defined(DC__OS_Win64)
+#    include "dyncall_call_x64_generic_masm.asm"
+#  endif
+#else
+#  if defined(DC__Arch_Intel_x86)
+#    include "dyncall_call_x86.S"
+#  elif defined(DC__Arch_AMD64)
+#    include "dyncall_call_x64-att.S"
+#  elif defined(DC__Arch_ARM_ARM)
+#    if defined(DC__ABI_ARM_HF)
+#      include "dyncall_call_arm32_arm_armhf.S"
+#    else
+#      include "dyncall_call_arm32_arm.S"
+#    endif
+#  elif defined(DC__Arch_ARM_THUMB)
+#    if defined(DC__OS_Darwin)
+#      include "dyncall_call_arm32_thumb_apple.s"
+#    else
+#      if defined(DC__ABI_ARM_HF)
+#        include "dyncall_call_arm32_thumb_armhf.S"
+#      else
+#        include "dyncall_call_arm32_thumb_gas.s"
+#      endif
+#    endif
+#  elif defined(DC__Arch_PowerPC)
+#    include "dyncall_call_ppc32.S"
+#  elif defined(DC__Arch_MIPS) || defined(DC__Arch_MIPS64)
+#    include "dyncall_call_mips_gas.S"
+#  elif defined(DC__Arch_Sparcv9)
+#    include "dyncall_call_sparc_v9.S"
+#  elif defined(DC__Arch_Sparc)
+#    include "dyncall_call_sparc.S"
+#  else
+#    error Unsupported Architecture.
+#  endif
+#endif

data/dyncall/dyncall/dyncall_call_arm32_arm.S

@@ -0,0 +1,80 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_arm.S
+ Description: Call Kernel for ARM 32-bit ARM Architecture
+ 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 "../portasm/portasm-arm.S"
+
+/* ============================================================================
+   DynCall Call Kernel for ARM 32-bit ARM Architecture
+   ----------------------------------------------------------------------------
+   C Interface:
+     dcCall_arm32_arm(DCpointer target, DCpointer argv, DCsize size);
+
+   This Call Kernel works across multiple OS.
+   It has been tested on Nintendo DS, Linux and Darwin(iOS).
+
+*/
+
+.text
+.code 32	/* ARM mode */
+.align 4
+GLOBAL_C(dcCall_arm32_arm)
+ENTRY_C(dcCall_arm32_arm)
+	/* Prolog. This function never needs to spill inside its prolog, so just store the permanent registers. */
+	mov	r12, r13	/* Stack ptr (r13) -> temporary (r12). */
+	stmdb	r13!, {r4-r12, r14}	/* Permanent registers and stack pointer (now in r12), etc... -> save area on stack (except counter). */
+	mov	r11, r12	/* Set frame ptr. */
+
+	/* Call. */
+	mov	r4, r0		/* r4 = 'fptr' (1st argument is passed in r0). */
+	mov	r5, r1		/* r5 = 'args' (2nd argument is passed in r1). */
+	mov	r6, r2		/* r6 = 'size' (3rd argument is passed in r2). */
+	ldmia	r5!, {r0-r3}	/* Load first 4 arguments for new call into r0-r3. */
+
+	subs	r6, r6, #16	/* Size of remaining arguments. */
+	ble	call		/* Jump to call if no more arguments. */
+
+	sub	r13, r13, r6	/* Set stack pointer to top of stack. */
+	and	r9, r6, #7	/* Align stack on 8 byte boundaries. */
+	sub	r13, r13, r9
+
+	mov	r8, r13		/* Temp. destination pointer. */
+	mov	r9, #0		/* Init byte counter. */
+
+pushArgs:
+	ldrb	r7, [r5, r9]	/* Load a byte into r7. */
+	strb	r7, [r8, r9]	/* Push byte onto stack. */
+	add	r9, r9, #1	/* Increment byte counter. */
+	cmp	r9, r6
+	bne	pushArgs
+
+call:
+				/* 'blx %r4' workaround for ARMv4t: */
+	mov	r14, r15	/*   Branch return address(r15) -> link register (r14) -- r15 always points to address of current + 2 instructions (= Epilog code). */ 
+	bx	r4		/*   Call (ARM/THUMB), available for ARMv4t. */
+
+	/* Epilog. */
+	ldmdb	r11, {r4-r11, r13, r15}	/* Restore permanent registers (ignore temporary (r12), restore stack ptr and program counter).@@@db not needed since we rewrite r13? */
+

data/dyncall/dyncall/dyncall_call_arm32_arm.h

@@ -0,0 +1,61 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_arm.h
+ Description: 
+ 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.
+
+*/
+
+
+/*
+
+  dyncall 32bit ARM32 family interface (ARM mode)
+
+  REVISION
+  2007/12/11 initial
+
+*/
+
+
+#ifndef DYNCALL_CALL_ARM32_ARM_H
+#define DYNCALL_CALL_ARM32_ARM_H
+
+
+#include "dyncall_types.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* 
+** arm32 arm mode calling convention calls 
+**
+** - hybrid return-type call (bool ... pointer)
+**
+*/
+
+void dcCall_arm32_arm(DCpointer target, DCpointer stackdata, DCsize size);
+
+#ifdef __cplusplus
+}
+#endif
+
+
+#endif /* DYNCALL_CALL_ARM32_ARM_H */

data/dyncall/dyncall/dyncall_call_arm32_arm_armhf.S

@@ -0,0 +1,96 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_arm_armhf.S
+ Description: Call Kernel for ARM 32-bit ARM Architecture - Hard Float
+ License:
+
+   Copyright (c) 2007-2012 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 "../portasm/portasm-arm.S"
+
+/* ============================================================================
+   DynCall Call Kernel for ARM 32-bit ARM Architecture Hard-Float
+   ----------------------------------------------------------------------------
+   C Interface:
+     dcCall_arm32_armhf (DCpointer target, DCpointer argv, DCsize size, DCfloat* regdata);
+
+   This Call Kernel was tested on Raspberry Pi/Raspbian (Debian)
+*/
+
+.text
+.code 32	/* ARM mode */
+.arch armv6
+.fpu  vfp
+
+GLOBAL_C(dcCall_arm32_armhf)
+ENTRY_C(dcCall_arm32_armhf)
+
+	/* Prolog. This function never needs to spill inside its prolog, so just store the permanent registers. */
+	mov	r12 , r13	 /* Stack ptr (r13) -> temporary (r12). */
+	stmdb	r13!, {r4-r5, r11, r12, r14} /* Permanent registers and stack pointer (now in r12), etc... -> save area on stack (except counter). */
+
+	mov	r11 , r12	 /* Set frame ptr. */
+	mov	r4  , r0 	 /* r4 = 'fptr' (1st argument is passed in r0). */
+	mov	r5  , r1	 /* r5 = 'args' (2nd argument is passed in r1). */
+	
+	/* Load 16 single-precision registers (= 8 double-precision registers). */
+	flds	s0,  [r3,#0 ]
+	flds	s1,  [r3,#4 ]
+	flds	s2,  [r3,#8 ]
+	flds	s3,  [r3,#12]
+	flds	s4,  [r3,#16]
+	flds	s5,  [r3,#20]
+	flds	s6,  [r3,#24]
+	flds	s7,  [r3,#28]
+	flds	s8,  [r3,#32]
+	flds	s9,  [r3,#36]
+	flds	s10, [r3,#40]
+	flds	s11, [r3,#44]
+	flds	s12, [r3,#48]
+	flds	s13, [r3,#52]
+	flds	s14, [r3,#56]
+	flds	s15, [r3,#60]
+
+	sub	r2 , r2 , #16	
+	cmp     r2, #0
+	ble	armhf_call
+
+	sub	r13, r13, r2
+	and	r13, r13, #-8	/* align 8-byte. */
+
+	mov	r3, #0		/* Init byte counter. */
+	add	r1 , r1 , #16
+armhf_pushArgs:
+	ldr	r0, [r1,  +r3]	/* Load word into r0. */
+	str	r0, [r13, +r3]	/* Push word onto stack. */
+	add	r3, r3, #4	/* Increment byte counter. */
+	cmp	r2, r3
+	bne	armhf_pushArgs
+
+armhf_call:
+	ldmia	r5, {r0-r3}	/* Load first 4 arguments for new call into r0-r3. */
+				/* 'blx %r4' workaround for ARMv4t: */
+	mov	r14, r15	/*   Branch return address(r15) -> link register (r14) -- r15 always points to address of current + 2 instructions (= Epilog code). */ 
+	bx	r4		/*   Call (ARM/THUMB), available for ARMv4t. */
+
+	/* Epilog. */
+	ldmdb	r11, {r4-r5, r11, r13, r15}	/* Restore permanent registers (ignore temporary (r12), restore stack ptr and program counter).@@@db not needed since we rewrite r13? */
+