rbdc 0.8.0

data/dyncall/dyncall/dyncall_call_arm32_arm_armhf.h

@@ -0,0 +1,44 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_arm_armhf.h
+ Description: 
+ 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.
+
+*/
+
+
+#ifndef DYNCALL_CALL_ARM32_ARM_ARMHF_H
+#define DYNCALL_CALL_ARM32_ARM_ARMHF_H
+
+
+#include "dyncall_types.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void dcCall_arm32_armhf(DCpointer target, DCpointer stackdata, DCsize size, DCfloat* p_s16);
+
+#ifdef __cplusplus
+}
+#endif
+
+
+#endif /* DYNCALL_CALL_ARM32_ARM_H */

data/dyncall/dyncall/dyncall_call_arm32_thumb.h

@@ -0,0 +1,65 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_thumb.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 (THUMB mode)
+
+  REVISION
+  2008/08/12 initial
+
+*/
+
+
+#ifndef DYNCALL_CALL_ARM32_THUMB_H
+#define DYNCALL_CALL_ARM32_THUMB_H
+
+
+#include "dyncall_types.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* 
+** arm32 thumb mode calling convention calls 
+**
+** - hybrid return-type call (bool ... pointer)
+**
+*/
+
+void dcCall_arm32_thumb(DCpointer target, DCpointer stackdata, DCsize size);
+
+/* Internally used to avoid compiler overwriting r0 and r1 in call stub */
+DClong     dcCall_arm32_thumb_word (DCpointer target, DCpointer stackdata, DCsize size);
+DClonglong dcCall_arm32_thumb_dword(DCpointer target, DCpointer stackdata, DCsize size);
+
+#ifdef __cplusplus
+}
+#endif
+
+
+#endif /* DYNCALL_CALL_ARM32_THUMB_H */

data/dyncall/dyncall/dyncall_call_arm32_thumb_apple.s

@@ -0,0 +1,80 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_thumb_apple.s
+ Description: ARM Thumb call kernel implementation for apple assembler.
+ 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.
+
+*/
+
+
+.text
+.thumb
+.code 16 
+.globl _dcCall_arm32_thumb
+
+/* Main dyncall call. */
+.thumb_func
+_dcCall_arm32_thumb:
+
+	/* Prolog. This function never needs to spill inside its prolog, so just store the permanent registers. */
+	push	{r4-r7, r14}	   	/* Frame ptr, permanent registers, link register -> save area on stack. */
+	mov		r7, r13	/* Set frame ptr. */
+
+	/* Call. */
+	mov		r4, r0	/* Move 'fptr' to r4 (1st argument is passed in r0). */
+
+	/* Disable 'thumb' address forcing... */
+
+	/* mov		r0, #1	*/	/* Assure that LSB is set to 1 (THUMB call). - Not Required and not useful for interworking calls */
+	/* orr		r4, r0 */
+	
+	mov		r5, r1	/* Move 'args' to r5 (2nd argument is passed in r1). */
+	mov		r6, r2	/* Move 'size' to r6 (3rd argument is passed in r2). */
+
+	cmp		r6, #16	/* Jump to call if no more than 4 arguments. */
+	ble		call
+
+	sub		r6, #16	/* Size of remaining arguments. */
+	mov		r0, r13	/* Set stack pointer to top of stack. */
+	sub		r0, r0, r6
+	lsr		r0, #3		/* Align stack on 8 byte boundaries. */
+	lsl		r0, #3
+	mov		r13, r0
+
+	add		r1, #16	/* Let r1 point to remaining arguments. */
+	mov		r2, #0		/* Init byte counter to 0. */
+.thumb_func
+pushArgs:
+	ldrb		r3, [r1, r2]		/* Load a byte into r3. */
+	strb		r3, [r0, r2]		/* Push byte onto stack. */
+	add		r2, r2, #1	/* Increment byte counter. */
+	cmp		r2, r6
+	bne		pushArgs
+.thumb_func
+call:
+	ldmia	r5!, {r0-r3}		/* Load first 4 arguments for new call into r0-r3. */
+					
+					/* 'blx %r4' workaround for ARMv4t in THUMB: */
+	blx		r4		/* Branch and force THUMB-mode return (LR bit 0 set). */
+
+	/* Epilog. */
+	mov		r13, r7		/* Reset stack ptr. */
+	pop		{r4-r7, r15}	/* Restore permanent registers and program counter. (Force a stay in THUMB in ARMv4, whether ARMv5 can return in ARM or THUMB depending on the bit 0. */
+

data/dyncall/dyncall/dyncall_call_arm32_thumb_armhf.S

@@ -0,0 +1,121 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_thumb_armhf.S
+ Description: Call Kernel for ARM 32-bit ARM Architecture - Hard Float in Thumb code 
+ 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
+.thumb
+#ifndef __thumb2__
+.code 16
+#endif
+// .arch armv6
+// .fpu  vfp
+
+GLOBAL_C(dcCall_arm32_armhf)
+.thumb_func
+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. */
+	
+	push	{r4-r7, r14}
+	mov	r7  , r13
+
+	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 , #16	
+	cmp     r2, #0
+	ble	armhf_call
+
+
+	// sub	r13, r13, r2
+	// and	r13, #-8	/* align 8-byte. */
+	
+	mov	r6,  r13
+	sub	r6 , r2
+	// mov	r3 , #8
+	// neg	r3 , r3
+	// and	r6 , r3
+	lsr	r6 , #3
+	lsl	r6 , #3
+	mov	r13, r6
+
+	mov	r3, #0		/* Init byte counter. */
+	add	r1 , #16
+armhf_pushArgs:
+	ldr	r0, [r1,  +r3]	/* Load word into r0. */
+	// str	r0, [r13, +r3]	/* Push word onto stack. */
+	str	r0, [r6, +r3]	/* Push word onto stack. */
+	add	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). */ 
+	mov	r6, r15
+	add	r6, #5
+	mov	r14, r6
+	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? */
+	mov	r13, r7
+	pop	{r4-r7, r15}
+

data/dyncall/dyncall/dyncall_call_arm32_thumb_gas.s

@@ -0,0 +1,101 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_arm32_thumb_gas.s
+ Description: ARM Thumb call kernel implementation for GNU assembler.
+ 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.
+
+*/
+
+
+.text
+#if !defined(__thumb2__)
+.code 16	/* THUMB mode */
+#endif
+
+.globl dcCall_arm32_thumb
+
+/* Main dyncall call. */
+.thumb_func
+dcCall_arm32_thumb:
+
+	/* Prolog. This function never needs to spill inside its prolog, so just store the permanent registers. */
+	push	{%r4-%r7, %r14}	   	/* Frame ptr, permanent registers, link register -> save area on stack. */
+	mov		%r7, %r13	/* Set frame ptr. */
+
+	/* Call. */
+	mov		%r4, %r0	/* Move 'fptr' to r4 (1st argument is passed in r0). */
+
+	/* Disable 'thumb' address forcing... */
+
+	/* mov		%r0, #1	*/	/* Assure that LSB is set to 1 (THUMB call). - Not Required and not useful for interworking calls */
+	/* orr		%r4, %r0 */
+	
+	mov		%r5, %r1	/* Move 'args' to r5 (2nd argument is passed in r1). */
+	mov		%r6, %r2	/* Move 'size' to r6 (3rd argument is passed in r2). */
+
+	cmp		%r6, #16	/* Jump to call if no more than 4 arguments. */
+	ble		call
+
+	sub		%r6, #16	/* Size of remaining arguments. */
+	mov		%r0, %r13	/* Set stack pointer to top of stack. */
+	sub		%r0, %r0, %r6
+	lsr		%r0, #3		/* Align stack on 8 byte boundaries. */
+	lsl		%r0, #3
+	mov		%r13, %r0
+
+	add		%r1, #16	/* Let r1 point to remaining arguments. */
+	mov		%r2, #0		/* Init byte counter to 0. */
+.thumb_func
+pushArgs:
+	ldrb	%r3, [%r1, %r2]		/* Load a byte into r3. */
+	strb	%r3, [%r0, %r2]		/* Push byte onto stack. */
+	add		%r2, %r2, #1	/* Increment byte counter. */
+	cmp		%r2, %r6
+	bne		pushArgs
+.thumb_func
+call:
+	ldmia	%r5!, {%r0-%r3}		/* Load first 4 arguments for new call into r0-r3. */
+					
+					/* 'blx %r4' workaround for ARMv4t in THUMB: */
+	mov		%r6,  %r15	/* Load PC+2 instructions from here */
+	add		%r6,  #5	/* Increment by 2 instructions (Address of 'Epilog') and set bit 0 (THUMB) */
+	mov		%r14, %r6	/* Store in link register. */
+	bx		%r4		/* Branch and force THUMB-mode return (LR bit 0 set). */
+
+	/* Epilog. */
+	mov		%r13, %r7	/* Reset stack ptr. */
+	pop		{%r4-%r7, %r15}	/* Restore permanent registers and program counter. (Force a stay in THUMB in ARMv4, whether ARMv5 can return in ARM or THUMB depending on the bit 0. */
+
+
+
+/* Internally used to avoid compiler overwriting r0 and r1 in call stub */
+.globl dcCall_arm32_thumb_word
+
+.thumb_func
+dcCall_arm32_thumb_word:
+	b	dcCall_arm32_thumb
+
+
+.globl dcCall_arm32_thumb_dword
+
+.thumb_func
+dcCall_arm32_thumb_dword:
+	b	dcCall_arm32_thumb
+

data/dyncall/dyncall/dyncall_call_mips.h

@@ -0,0 +1,50 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_mips.h
+ Description: mips call-kernel C interfaces.
+ 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 MIPS call kernel C interface for all ABIs
+
+  REVISION
+  2010/06/03 initial
+
+*/
+
+
+#ifndef DYNCALL_CALL_MIPS_H
+#define DYNCALL_CALL_MIPS_H
+
+/* supported abi-specific call kernels: */
+
+#include "dyncall_call_mips_o32.h"
+#include "dyncall_call_mips_eabi.h"
+#include "dyncall_call_mips_n64.h"
+#include "dyncall_call_mips_n32.h"
+
+typedef void (*dcCall_mips_common) (DCpointer target, DCpointer regdata_abispecific, DCsize stacksize, DCpointer stackdata);
+
+#endif /* DYNCALL_CALL_MIPS_H */
+