rbdc 0.8.7 → 0.9.0

data/dyncall/dyncall/dyncall_vector.c

@@ -6,7 +6,7 @@
  Description: Simple dynamic vector container type implementation
  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_vector.h"
 #include <string.h>
 

data/dyncall/dyncall/dyncall_vector.h

@@ -6,7 +6,7 @@
  Description: Simple dynamic vector container type header
  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 DC_VECTOR_H
 #define DC_VECTOR_H
 
@@ -44,6 +45,7 @@ typedef struct
 #define dcVecData(p)        ( (unsigned char*) (((DCVecHead*)(p))+1) )
 #define dcVecAt(p,index)    ( dcVecData(p)+index )
 #define dcVecSize(p)        ( (p)->mSize )
+#define dcVecAlign(p,align) (p)->mSize=( (p)->mSize + align-1 ) & -align
 
 /*
 #include <string.h>

data/dyncall/dyncallback/Makefile.generic

@@ -1,6 +1,6 @@
 LIBNAME = dyncallback
 OBJS = dyncall_alloc_wx.o dyncall_args.o dyncall_callback.o dyncall_callback_arch.o dyncall_thunk.o
-HEADERS = ${VPATH}/dyncall_thunk.h ${VPATH}/dyncall_thunk_x86.h ${VPATH}/dyncall_thunk_ppc32.h ${VPATH}/dyncall_thunk_x64.h ${VPATH}/dyncall_thunk_arm32_arm.h ${VPATH}/dyncall_thunk_arm32_thumb.h ${VPATH}/dyncall_args.h ${VPATH}/dyncall_callback.h
+HEADERS = ${VPATH}/dyncall_thunk.h ${VPATH}/dyncall_thunk_x86.h ${VPATH}/dyncall_thunk_ppc32.h ${VPATH}/dyncall_thunk_x64.h ${VPATH}/dyncall_thunk_arm32_arm.h ${VPATH}/dyncall_thunk_arm32_thumb.h ${VPATH}/dyncall_thunk_arm64.h ${VPATH}/dyncall_args.h ${VPATH}/dyncall_callback.h
 TOP = ${VPATH}/..
 CFLAGS += -I${TOP}/dyncall 
 

data/dyncall/dyncallback/dyncall_alloc_wx.c

@@ -6,7 +6,7 @@
  Description: Allocate write/executable memory - Implementation back-end selector (mmap or win32)
  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/dyncall_macros.h"
 
 #if defined(DC_WINDOWS)

data/dyncall/dyncallback/dyncall_alloc_wx.h

@@ -6,7 +6,7 @@
  Description: Allocate write/executable memory - 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
@@ -23,6 +23,7 @@
 
 */
 
+
 #ifndef DYNCALL_ALLOC_WX_HPP
 #define DYNCALL_ALLOC_WX_HPP
 

data/dyncall/dyncallback/dyncall_alloc_wx_malloc.c

@@ -6,7 +6,7 @@
  Description: Allocate write/executable memory - Fallback implementation based
  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_alloc_wx.h"
 
 #include <stdlib.h>

data/dyncall/dyncallback/dyncall_alloc_wx_mmap.c

@@ -6,7 +6,7 @@
  Description: Allocate write/executable memory - Implementation for posix
  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_alloc_wx.h"
 
 #include <sys/types.h>

data/dyncall/dyncallback/dyncall_alloc_wx_win32.c

@@ -6,7 +6,7 @@
  Description: Allocate write/executable memory  - Implementation for win32 platform
  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_alloc_wx.h"
 #include <windows.h>
 #include <assert.h>

data/dyncall/dyncallback/dyncall_args.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - Implementation back-end selector
  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
@@ -26,20 +26,32 @@
 #include "../dyncall/dyncall_macros.h"
 
 #if defined(DC__Arch_Intel_x86)
-#include "dyncall_args_x86.c"
+#  include "dyncall_args_x86.c"
 #elif defined (DC__Arch_AMD64)
-#include "dyncall_args_x64.c"
-#elif defined (DC__Arch_PowerPC)
-#include "dyncall_args_ppc32.c"
+#  include "dyncall_args_x64.c"
+#elif defined (DC__Arch_PPC32)
+#  if defined (DC__OS_Darwin)
+#    include "dyncall_args_ppc32.c"
+#  else
+#    include "dyncall_args_ppc32_sysv.c"
+#  endif
+#elif defined (DC__Arch_PPC64)
+#  include "dyncall_args_ppc64.c"
 #elif defined (DC__Arch_ARM_ARM)
-#include "dyncall_args_arm32_arm.c"
+#  include "dyncall_args_arm32_arm.c"
 #elif defined (DC__Arch_ARM_THUMB)
-#include "dyncall_args_arm32_thumb.c"
+#  include "dyncall_args_arm32_thumb.c"
 #elif defined (DC__Arch_MIPS)
-#include "dyncall_args_mips.c"
+#  include "dyncall_args_mips.c"
 #elif defined (DC__Arch_Sparc)
-#include "dyncall_args_sparc32.c"
+#  include "dyncall_args_sparc32.c"
 #elif defined (DC__Arch_Sparcv9)
-#include "dyncall_args_sparc64.c"
+#  include "dyncall_args_sparc64.c"
+#elif defined (DC__Arch_ARM64)
+#  if defined (DC__OS_Darwin)
+#    include "dyncall_args_arm64_apple.c"
+#  else
+#    include "dyncall_args_arm64.c"
+#  endif
 #endif
 

data/dyncall/dyncallback/dyncall_args.h

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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
@@ -23,6 +23,7 @@
 
 */
 
+
 #ifndef DYNCALL_ARGS_H
 #define DYNCALL_ARGS_H
 

data/dyncall/dyncallback/dyncall_args_arm32_arm.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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_args_arm32_arm.h"
 
 
@@ -35,7 +36,7 @@ static void arm_align_64(DCArgs* args)
   /* @@@ check signature string */
 
   int sig =
-#if defined(DC__ABI_ARM_EABI)
+#if defined(DC__ABI_ARM_EABI) || defined(DC__ABI_ARM_HF)
     0; /* EABI */
 #else
     1; /* ATPCS */
@@ -57,6 +58,22 @@ static void* arm_word(DCArgs* args)
     return (void*)args->stack_ptr++;
 }
 
+static DCfloat arm_float(DCArgs* args)
+{
+#if defined(DC__ABI_ARM_HF)
+  DCfloat f;
+  if(args->freg_count < 16) {
+    f = args->f[args->freg_count++];
+
+    /* if freg_count was odd, sync with dreg_count */
+    if(!(args->freg_count & 1) && (args->freg_count < args->dreg_count))
+      args->freg_count = args->dreg_count;
+
+    return f;
+  }
+#endif
+  return *(DCfloat*)arm_word(args);
+}
 
 static DCdouble arm_double(DCArgs* args)
 {
@@ -64,13 +81,27 @@ static DCdouble arm_double(DCArgs* args)
     DCdouble d;
     DClong   l[2];
   } d;
+#if defined(DC__ABI_ARM_HF)
+  if(args->dreg_count < args->freg_count)
+    args->dreg_count = (args->freg_count+1)&0x1e; /* clear last bit, counter won't be higher than 16, anyways */
+
+  if(args->dreg_count < 16) {
+    d.d = *(DCdouble*)&args->f[args->dreg_count];
+    args->dreg_count += 2;
+
+    /* freg_count is either odd (pointing to a gap), or always the same as dreg_count */
+    if(!(args->freg_count & 1))
+      args->freg_count = args->dreg_count;
+    return d.d;
+  }
+  args->freg_count = 16; /* fp registers all full - need to use stack now: stop filling gaps for single precision, also */
+#endif
   arm_align_64(args);
   d.l[0] = *(DClong*)arm_word(args);
   d.l[1] = *(DClong*)arm_word(args);
   return d.d;
 }
 
-
 static DClonglong arm_longlong(DCArgs* args)
 {
   union {
@@ -108,5 +139,5 @@ DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong)dcbArgLongLong(p);
 DCpointer   dcbArgPointer  (DCArgs* p) { return (DCpointer)  dcbArgLong(p); }
 
 DCdouble    dcbArgDouble   (DCArgs* p) { return arm_double(p); }
-DCfloat     dcbArgFloat    (DCArgs* p) { return *(DCfloat*)  arm_word(p); }
+DCfloat     dcbArgFloat    (DCArgs* p) { return arm_float(p); }
 

data/dyncall/dyncallback/dyncall_args_arm32_arm.h

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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 DYNCALLBACK_ARGS_ARM32_ARM_H
 #define DYNCALLBACK_ARGS_ARM32_ARM_H
 
@@ -34,6 +35,11 @@ struct DCArgs
 	long  reg_data[4];
 	int   reg_count;
 	long* stack_ptr;
+#if defined(DC__ABI_ARM_HF)
+	DCfloat f[16];
+	int     freg_count;
+	int     dreg_count;
+#endif
 };
 
 #endif /* DYNCALLBACK_ARGS_ARM32_ARM_H */

data/dyncall/dyncallback/dyncall_args_arm32_thumb.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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_args_arm32_thumb.h"
 #include "dyncall_args_arm32_arm.c"	/* Uses same code as ARM mode. */
 

data/dyncall/dyncallback/dyncall_args_arm32_thumb.h

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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
@@ -23,6 +23,7 @@
 
 */
 
+
 #ifndef DYNCALLBACK_ARGS_ARM32_THUMB_H
 #define DYNCALLBACK_ARGS_ARM32_THUMB_H
 

data/dyncall/dyncallback/dyncall_args_arm64.c

@@ -0,0 +1,77 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_arm64.c
+ Description: Callback's Arguments VM - 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_args.h"
+
+#include <stdint.h>
+
+typedef union {
+  struct { double value; } d;
+  struct { float  value; } f;
+} DCFPU_t;
+
+struct DCArgs
+{
+  /* buffers and stack-pointer: */
+
+  uint64_t  I[8];
+  DCFPU_t   F[8];
+  uint64_t* sp;
+  
+  /* counters: */
+  int i;
+  int f;
+  int s;
+  int reserved;
+};
+
+DClonglong dcbArgLongLong (DCArgs* p) 
+{
+  if (p->i < 8) {
+    return p->I[p->i++];
+  } else {
+    return *(p->sp)++;
+  }
+}
+DCdouble  dcbArgDouble (DCArgs* p) {
+  return (p->f < 8) ? p->F[p->f++].d.value : * ( (double*) (p->sp++) );
+}
+DCfloat   dcbArgFloat  (DCArgs* p) {
+  return (p->f < 8) ? p->F[p->f++].f.value : * ( (float*)  (p->sp++) );
+}
+
+
+DClong    dcbArgLong   (DCArgs* p) { return (DClong)  dcbArgLongLong(p); }
+DCint     dcbArgInt    (DCArgs* p) { return (DCint)   dcbArgLongLong(p); }
+DCshort   dcbArgShort  (DCArgs* p) { return (DCshort) dcbArgLongLong(p); }
+DCchar    dcbArgChar   (DCArgs* p) { return (DCchar)  dcbArgLongLong(p); }
+DCbool    dcbArgBool   (DCArgs* p) { return dcbArgLongLong(p) & 0x1; }
+DCpointer dcbArgPointer(DCArgs* p) { return (DCpointer) dcbArgLongLong(p); }
+
+DCuint      dcbArgUInt     (DCArgs* p) { return (DCuint)      dcbArgInt(p);      }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar)     dcbArgChar(p);     }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)    dcbArgShort(p);    }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong)     dcbArgLong(p);     }
+DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
+

data/dyncall/dyncallback/dyncall_args_arm64_apple.c

@@ -0,0 +1,160 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_arm64_apple.c
+ Description: Callback's Arguments VM - Implementation for Apple's 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_args.h"
+
+#include <stdint.h>
+
+typedef union {
+  struct { double value; } d;
+  struct { float  value; } f;
+} DCFPU_t;
+
+struct DCArgs
+{
+  /* buffers and stack-pointer: */
+
+  uint64_t  I[8];
+  DCFPU_t   F[8];
+  uint8_t*  sp;
+  
+  /* counters: */
+  int i;
+  int f;
+  int s;
+  int reserved;
+};
+
+static inline uint8_t* align(uint8_t* p, size_t v)
+{
+  return (uint8_t*) ( ( ( (ptrdiff_t) p ) + v - 1) & (ptrdiff_t) -v );
+}
+
+
+DClonglong dcbArgLongLong (DCArgs* p) 
+{
+  if (p->i < 8) {
+    return p->I[p->i++];
+  } else {
+    DClonglong value;
+    p->sp = align(p->sp,sizeof(DClonglong));
+    value =  * ( (DClonglong*) p->sp );
+    p->sp += sizeof(DClonglong);
+    return value;
+  }
+}
+DCdouble  dcbArgDouble (DCArgs* p) {
+  if (p->f < 8) { 
+    return p->F[p->f++].d.value;
+  } else {
+    DCdouble value;
+    p->sp = align(p->sp,sizeof(DCdouble));
+    value =  * ( (DCdouble*) p->sp );
+    p->sp += sizeof(DCdouble);
+    return value;
+  }
+}
+DCfloat   dcbArgFloat  (DCArgs* p) {
+  if (p->f < 8) {
+    return p->F[p->f++].f.value;
+  } else {
+    DCfloat value;
+    p->sp = align(p->sp,sizeof(DCfloat));
+    value =  * ( (DCfloat*) p->sp );
+    p->sp += sizeof(DCfloat);
+    return value;
+  }
+}
+
+DClong    dcbArgLong   (DCArgs* p) { 
+  if (p->i < 8) {
+    return (DClong) p->I[p->i++];
+  } else {
+    DClong value;
+    p->sp = align(p->sp,sizeof(DClong));
+    value =  * ( (DClong*) p->sp );
+    p->sp += sizeof(DClong);
+    return value;
+  }
+}
+
+DCint     dcbArgInt    (DCArgs* p) { 
+  if (p->i < 8) {
+    return (DCint) p->I[p->i++];
+  } else {
+    DCint value;
+    p->sp = align(p->sp,sizeof(DCint));
+    value =  * ( (DCint*) p->sp );
+    p->sp += sizeof(DCint);
+    return value;
+  }
+}
+
+DCshort   dcbArgShort  (DCArgs* p) { 
+  if (p->i < 8) {
+    return (DCshort) p->I[p->i++];
+  } else {
+    DCshort value;
+    p->sp = align(p->sp,sizeof(DCshort));
+    value =  * ( (DCshort*) p->sp );
+    p->sp += sizeof(DCshort);
+    return value;
+  }
+}
+
+DCchar    dcbArgChar   (DCArgs* p) { 
+  if (p->i < 8) {
+    return (DCchar) p->I[p->i++];
+  } else {
+    DCchar value;
+    p->sp = align(p->sp,sizeof(DCchar));
+    value =  * ( (DCchar*) p->sp );
+    p->sp += sizeof(DCchar);
+    return value;
+  }
+}
+
+DCbool    dcbArgBool   (DCArgs* p) { 
+  if (p->i < 8) {
+    return (DCbool) p->I[p->i++];
+  } else {
+    DCbool value;
+    p->sp = align(p->sp,sizeof(DCbool));
+    value =  * ( (DCbool*) p->sp );
+    p->sp += sizeof(DCbool);
+    return value;
+  }
+}
+
+DCpointer dcbArgPointer(DCArgs* p) { 
+  return (DCpointer) dcbArgLongLong(p); 
+}
+
+DCuint      dcbArgUInt     (DCArgs* p) { return (DCuint)      dcbArgInt(p);      }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar)     dcbArgChar(p);     }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)    dcbArgShort(p);    }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong)     dcbArgLong(p);     }
+DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
+