rbdc 0.8.7 → 0.9.0

data/dyncall/dyncallback/dyncall_callback_ppc64.h

@@ -0,0 +1,56 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_callback_ppc64.h
+ Description: Callback - Header for ppc64
+ License:
+
+   Copyright (c) 2014-2015 Masanori Mitsugi <mitsugi@linux.vnet.ibm.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_CALLBACK_PPC64_H
+#define DYNCALL_CALLBACK_PPC64_H
+
+#include "dyncall_callback.h"
+
+#include "dyncall_thunk.h"
+#include "dyncall_args_ppc64.h"
+
+/*
+  ELF v2
+  thunk           : offset 0,  size 48
+  handler         : offset 48, size  8
+  stack_cleanup   : offset 56, size  8
+  userdata        : offset 64, size  8
+
+  ELF v1
+  thunk           : offset 0,  size 64
+  handler         : offset 64, size  8
+  stack_cleanup   : offset 72, size  8
+  userdata        : offset 80, size  8
+*/
+
+struct DCCallback
+{
+  DCThunk            thunk;
+  DCCallbackHandler* handler;
+  size_t             stack_cleanup;
+  void*              userdata;
+};
+
+#endif /* DYNCALL_CALLBACK_PPC64_H */
+

data/dyncall/dyncallback/dyncall_callback_sparc32.c

@@ -6,7 +6,7 @@
  Description: Callback - Implementation for sparc32 (TODO: not implemented yet)
  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
@@ -23,6 +23,7 @@
 
 */
 
+
 #include "dyncall_callback.h"
 #include "dyncall_callback_sparc32.h"
 

data/dyncall/dyncallback/dyncall_callback_sparc32.h

@@ -6,7 +6,7 @@
  Description: Callback - Header for sparc32
  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
@@ -23,6 +23,7 @@
 
 */
 
+
 #ifndef DYNCALL_CALLBACK_SPARC32_H
 #define DYNCALL_CALLBACK_SPARC32_H
 

data/dyncall/dyncallback/dyncall_callback_sparc32.s

@@ -23,7 +23,7 @@
 
 */
 
-	.globl dcCallbackThunkEntry
+.globl dcCallbackThunkEntry
 dcCallbackThunkEntry:
         jmpl %i7 + 8, %g0			/* Return from proc. */
 	 nop

data/dyncall/dyncallback/dyncall_callback_sparc64.c

@@ -6,7 +6,7 @@
  Description: Callback - Implementation for sparc64 (TODO: not implemented yet)
  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
@@ -23,6 +23,7 @@
 
 */
 
+
 #include "dyncall_callback.h"
 #include "dyncall_callback_sparc32.h"
 

data/dyncall/dyncallback/dyncall_callback_sparc64.s

@@ -23,7 +23,7 @@
 
 */
 
-	.globl dcCallbackThunkEntry
+.globl dcCallbackThunkEntry
 dcCallbackThunkEntry:
         jmpl %i7 + 8, %g0			/* Return from proc. */
 	 nop

data/dyncall/dyncallback/dyncall_callback_x64.S

@@ -6,7 +6,7 @@
  Description: Callback Thunk entry for x64 (portasm version)
  License:
 
-   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
 
    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 "../portasm/portasm-x64-att.S"
 
 /* structure sizes */
@@ -107,24 +108,15 @@ BEGIN_PROC(dcCallback_x64_sysv)
 	PUSH(LIT(0))				/* align to 16 bytes */
 	CALL_REG(QWORD(RAX,CTX_handler))
 
-	/* pass return type via registers */
-	/* distinguish two basic classes 'integer' and 'float' */
+	/* pass return type via registers, handle ints and floats */
 	
-	MOVB(AL,DL)
 	MOV(QWORD(RBP,FRAME_DCValue_sysv),RAX)
-
-	CMP(LIT(ASCII_f),DL)
-	JE(LOCAL(return_f64))
-	CMP(LIT(ASCII_d),DL)
-	JNE(LOCAL(return_i64))
-
-LOCAL(return_f64):
 	MOVD(RAX,XMM0)
 
-LOCAL(return_i64):
 	MOV(RBP,RSP)
 	POP(RBP)
 	RET()
+
 END_PROC(dcCallback_x64_sysv)
 
 GLOBAL(dcCallback_x64_win64)
@@ -173,6 +165,7 @@ BEGIN_PROC(dcCallback_x64_win64)
 	SUB(LIT(4*8),RSP)                      /* make room for spill area and call */
 	CALL_REG(QWORD(RAX,CTX_handler))
 
+	/* pass return type via registers, handle ints and floats */
 	
 	MOV(QWORD(RBP,FRAME_DCValue_win64),RAX)
 	MOVD(RAX,XMM0)

data/dyncall/dyncallback/dyncall_callback_x64.c

@@ -6,7 +6,7 @@
  Description: Callback - Implementation for x64
  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_x64.h"
 #include "dyncall_args_x64.h"
 #include "dyncall_alloc_wx.h"

data/dyncall/dyncallback/dyncall_callback_x64.h

@@ -6,7 +6,7 @@
  Description: Callback - Header for x64
  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_X64_H_
 #define DYNCALL_CALLBACK_X64_H_
 

data/dyncall/dyncallback/dyncall_callback_x64_masm.asm

@@ -45,15 +45,8 @@ OPTION PROLOGUE:NONE, EPILOGUE:NONE
  mov RDX,RSP
  push 0
  call qword ptr [RAX+CTX_handler]
- mov DL,AL
  mov RAX,qword ptr [RBP+FRAME_DCValue_sysv]
- cmp DL,102
- je return_f64
- cmp DL,100
- jne return_i64
-return_f64:
  movd XMM0,RAX
-return_i64:
  mov RSP,RBP
  pop RBP
  ret

data/dyncall/dyncallback/dyncall_callback_x86.S

@@ -6,7 +6,7 @@
  Description: Callback Thunk entry for x86
  License:
 
-   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
 
    Permission to use, copy, modify, and distribute this software for any
    purpose with or without fee is hereby granted, provided that the above
@@ -22,6 +22,7 @@
 
 */
 
+
 #include "../portasm/portasm-x86.S"
 BEGIN_ASM
 DCThunk_size		= 16
@@ -84,21 +85,13 @@ BEGIN_PROC(dcCallbackThunkEntry)
 	LEA(DWORD(EBP,frame_DCValue), EDX)
 	MOVL(DWORD(EBP,0), EBP)			/* EBP = parent frame */
 	/* handle return value */
-	CMP(LIT(ASCII_v),AL)
-	JE(LOCAL(return_void))
-	CMP(LIT(ASCII_d),AL)
-	JE(LOCAL(return_f64))
+	
 	CMP(LIT(ASCII_f),AL)
 	JE(LOCAL(return_f32))
-	CMP(LIT(ASCII_l),AL)
-	JE(LOCAL(return_i64))
-	CMP(LIT(ASCII_L),AL)
-	JE(LOCAL(return_i64))
+	CMP(LIT(ASCII_d),AL)
+	JE(LOCAL(return_f64))
 	
 	/* All int cases <= 32 bits (+ pointer & string cases) fall in the 32 bits int case*/
-LOCAL(return_i32):
-	MOVL(DWORD(EDX,0),EAX)
-	RET()
 LOCAL(return_i64):
 	MOVL(DWORD(EDX,0),EAX)
 	MOVL(DWORD(EDX,4),EDX)

data/dyncall/dyncallback/dyncall_callback_x86.c

@@ -6,7 +6,7 @@
  Description: Callback - Implementation for x86
  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_x86.h"
 #include "dyncall_args_x86.h"
 

data/dyncall/dyncallback/dyncall_callback_x86.h

@@ -6,7 +6,7 @@
  Description: Callback - Header for x86
  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_X86_H_
 #define DYNCALL_CALLBACK_X86_H_
 

data/dyncall/dyncallback/dyncall_callback_x86_masm.asm

@@ -46,19 +46,10 @@ OPTION PROLOGUE:NONE, EPILOGUE:NONE
  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
+ cmp AL,100
+ je return_f64
 return_i64:
  mov EAX,dword ptr [EDX+0]
  mov EDX,dword ptr [EDX+4]

data/dyncall/dyncallback/dyncall_thunk.c

@@ -6,7 +6,7 @@
  Description: Thunk - Implementation Back-end selection
  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
@@ -31,8 +31,14 @@
 # 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_PPC32)
+# if defined(DC__OS_Darwin)
+#   include "dyncall_thunk_ppc32.c"
+# else
+#   include "dyncall_thunk_ppc32_sysv.c"
+# endif
+#elif defined(DC__Arch_PPC64)
+# include "dyncall_thunk_ppc64.c"
 #elif defined(DC__Arch_ARM_ARM)
 #include "dyncall_thunk_arm32_arm.c"
 #elif defined(DC__Arch_ARM_THUMB)
@@ -43,5 +49,7 @@
 #include "dyncall_thunk_sparc32.c"
 #elif defined(DC__Arch_Sparcv9)
 #include "dyncall_thunk_sparc64.c"
+#elif defined(DC__Arch_ARM64)
+#include "dyncall_thunk_arm64.c"
 #endif
 

data/dyncall/dyncallback/dyncall_thunk.h

@@ -6,7 +6,7 @@
  Description: Thunk - 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
@@ -45,6 +45,8 @@
  ** x86:  eax
  ** x64:  rax
  ** ppc:   r2
+ ** arm:  r12
+ ** arm64: x9
  **
  **/
 
@@ -62,8 +64,10 @@ void   dcbInitThunk(DCThunk* p, void (*entry)());
 #include "dyncall_thunk_x86.h"
 #elif defined (DC__Arch_AMD64)
 #include "dyncall_thunk_x64.h"
-#elif defined (DC__Arch_PowerPC)
+#elif defined (DC__Arch_PPC32)
 #include "dyncall_thunk_ppc32.h"
+#elif defined (DC__Arch_PPC64)
+#include "dyncall_thunk_ppc64.h"
 #elif defined (DC__Arch_ARM_ARM)
 #include "dyncall_thunk_arm32_arm.h"
 #elif defined (DC__Arch_ARM_THUMB)
@@ -74,6 +78,8 @@ void   dcbInitThunk(DCThunk* p, void (*entry)());
 #include "dyncall_thunk_sparc32.h"
 #elif defined (DC__Arch_Sparcv9)
 #include "dyncall_thunk_sparc64.h"
+#elif defined (DC__Arch_ARM64)
+#include "dyncall_thunk_arm64.h"
 #endif
 
 #ifdef __cplusplus

data/dyncall/dyncallback/dyncall_thunk_arm32_arm.c

@@ -6,7 +6,7 @@
  Description: Thunk - 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
@@ -23,6 +23,7 @@
 
 */
 
+
 #include "dyncall_thunk.h"
 
 void dcbInitThunk(DCThunk* p, void (*entry)())
@@ -34,12 +35,11 @@ void dcbInitThunk(DCThunk* p, void (*entry)())
       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.                                      */
+  /* This code stores a ptr to DCCallback in r12 (equals ptr to thunk,     */
+  /* which is PC (r15) minus 8, as PC points to current instruction+8.     */
+  /* Then it loads the callback 'entry' into PC. The -4 is needed, also bc */
+  /* of the PC pointing ahead.                                             */
   p->code[0]  = 0xe24fc008UL;  /* sub %r12, %r15, #8 */
   p->code[1]  = 0xe51ff004UL;  /* ldr %r15, [%r15, #-4] */
-  p->entry = entry/*+8*/;
+  p->entry = entry;
 }

data/dyncall/dyncallback/dyncall_thunk_arm32_arm.h

@@ -6,7 +6,7 @@
  Description: Thunk - 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
@@ -23,6 +23,7 @@
 
 */
 
+
 #ifndef DYNCALL_THUNK_ARM32_ARM_H
 #define DYNCALL_THUNK_ARM32_ARM_H