rbdc 0.8.7 → 0.9.0

data/dyncall/dyncallback/dyncall_args_mips.c

@@ -6,8 +6,8 @@
  Description: Callback's Arguments VM - Implementation 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_args_mips.h"
 
 DCint dcbArgInt(DCArgs* p) 

data/dyncall/dyncallback/dyncall_args_mips.h

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

data/dyncall/dyncallback/dyncall_args_ppc32.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - Implementation for ppc32
  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_args_ppc32.h"
 
 DCint       dcbArgInt      (DCArgs* p) 

data/dyncall/dyncallback/dyncall_args_ppc32.h

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - Header for ppc32
  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
@@ -28,14 +28,16 @@
 
 #include "dyncall_args.h"
 
+/* Common Args iterator for Apple and System V ABI. */
+
 struct DCArgs
 {
-  int    ireg_data[8];
-  double freg_data[13];
-  unsigned char* stackptr;
-  int    ireg_count;
-  int    freg_count;
-};
+  int            ireg_data[8];		/* offset: 0   size: 4*8 = 32  */
+  double         freg_data[13];		/* offset: 32  size: 8*13= 104 */	
+  unsigned char* stackptr;		/* offset: 136 size:       4   */
+  int            ireg_count;            /* offset: 140 size:       4   */
+  int            freg_count;            /* offset: 144 size:       4   */
+};                                      /*       total size:       148 */
 
 #endif /* DYNCALLBACK_ARGS_PPC32_H */
 

data/dyncall/dyncallback/dyncall_args_ppc32_sysv.c

@@ -0,0 +1,95 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_ppc32_sysv.c
+ Description: Callback's Args Implementation for PowerPC 32-bit System V ABI
+ License:
+
+   Copyright (c) 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
+   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_ppc32.h"
+
+DCint       dcbArgInt      (DCArgs* p) 
+{
+  DCint value;
+  if (p->ireg_count < 8)
+    value = p->ireg_data[p->ireg_count++];
+  else {
+    value = *( (int*) p->stackptr );
+    p->stackptr += sizeof(int);
+  }
+  return value;
+}
+DCuint      dcbArgUInt     (DCArgs* p) { return (DCuint)  dcbArgInt(p);  }
+
+DCulonglong  dcbArgULongLong (DCArgs* p) 
+{
+  DCulonglong value;
+  if (p->ireg_count < 7)
+  {
+    /* next free integer register is even (r0, r2, r3) ? */
+    /* if not, skip one integer */
+    p->ireg_count = (p->ireg_count + 1) & -2;
+    value = * (unsigned long long*) ( & p->ireg_data[p->ireg_count] );
+    p->ireg_count += 2;
+  } else {
+    p->ireg_count = 8;
+    /* 64-bit values are naturally aligned on stack */
+    p->stackptr = (unsigned char*) ( ( ( (ptrdiff_t) (p->stackptr) ) + 7) & ( (ptrdiff_t) -8 ) );
+    value = * ( (unsigned long long*) p->stackptr );
+    p->stackptr += sizeof(unsigned long long);
+  }
+  return value;
+}
+DClonglong  dcbArgLongLong(DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
+
+DClong      dcbArgLong     (DCArgs* p) { return (DClong)  dcbArgUInt(p); }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong) dcbArgUInt(p); }
+DCchar      dcbArgChar     (DCArgs* p) { return (DCchar)  dcbArgUInt(p); }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar) dcbArgUInt(p); }
+DCshort     dcbArgShort    (DCArgs* p) { return (DCshort) dcbArgUInt(p); }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)dcbArgUInt(p); }
+DCbool      dcbArgBool     (DCArgs* p) { return (DCbool)  dcbArgUInt(p); }
+
+DCpointer   dcbArgPointer  (DCArgs* p) { return (DCpointer)dcbArgUInt(p); }
+
+DCdouble    dcbArgDouble   (DCArgs* p) 
+{ 
+  DCdouble result;
+  if (p->freg_count < 8) {
+    result = p->freg_data[p->freg_count++];
+  } else {
+    p->stackptr = (unsigned char*) ( ( ( (ptrdiff_t) (p->stackptr) ) + 7) & ( (ptrdiff_t) -8 ) );
+    result = * ( (double*) p->stackptr );
+    p->stackptr += sizeof(double);
+  }
+  return result;
+}
+DCfloat     dcbArgFloat    (DCArgs* p)
+{ 
+  DCfloat result;
+  if (p->freg_count < 8) {
+    result = (DCfloat) p->freg_data[p->freg_count++];
+  } else {
+    result = * ( (float*) p->stackptr );
+    p->stackptr += sizeof(float);
+  }
+  return result; 
+}
+

data/dyncall/dyncallback/dyncall_args_ppc64.c

@@ -0,0 +1,71 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_ppc64.c
+ Description: Callback's Arguments VM - Implementation 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.
+
+*/
+
+#include "dyncall_args_ppc64.h"
+
+DCint       dcbArgInt      (DCArgs* p) { return (DCint)       dcbArgLongLong(p); }
+DCuint      dcbArgUInt     (DCArgs* p) { return (DCuint)      dcbArgLongLong(p); }
+DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
+
+DClonglong  dcbArgLongLong(DCArgs* p)
+{
+  DClonglong value;
+  if (p->ireg_count < 8) {
+    value = p->ireg_data[p->ireg_count++];
+  } else {
+    value = *( (long long*) p->stackptr );
+  }
+  p->stackptr += sizeof(long long);
+  return value;
+}
+
+DClong      dcbArgLong     (DCArgs* p) { return (DClong)  dcbArgLongLong(p); }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong) dcbArgLongLong(p); }
+DCchar      dcbArgChar     (DCArgs* p) { return (DCchar)  dcbArgLongLong(p); }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar) dcbArgLongLong(p); }
+DCshort     dcbArgShort    (DCArgs* p) { return (DCshort) dcbArgLongLong(p); }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)dcbArgLongLong(p); }
+DCbool      dcbArgBool     (DCArgs* p) { return (DCbool)  dcbArgLongLong(p); }
+
+DCpointer   dcbArgPointer  (DCArgs* p) { return (DCpointer)dcbArgLongLong(p); }
+
+DCdouble    dcbArgDouble   (DCArgs* p) 
+{ 
+  DCdouble result;
+
+  if (p->freg_count < 13) {
+    result = p->freg_data[p->freg_count++];
+    if (p->ireg_count < 8) {
+      p->ireg_count++;
+    }
+  } else {
+    result = * ( (double*) p->stackptr );
+  }
+
+  p->stackptr += sizeof(double);
+  return result;
+}
+
+DCfloat     dcbArgFloat    (DCArgs* p) { return (DCfloat)dcbArgDouble(p); }
+

data/dyncall/dyncallback/dyncall_args_ppc64.h

@@ -0,0 +1,40 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_ppc64.h
+ Description: Callback's Arguments VM - 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 DYNCALLBACK_ARGS_PPC64_H
+#define DYNCALLBACK_ARGS_PPC64_H
+
+#include "dyncall_args.h"
+
+struct DCArgs
+{
+  long long      ireg_data[8];
+  double         freg_data[13];
+  unsigned char* stackptr;
+  int            ireg_count;
+  int            freg_count;
+};
+
+#endif /* DYNCALLBACK_ARGS_PPC64_H */
+

data/dyncall/dyncallback/dyncall_args_sparc32.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - Implementation for sparc32 - not 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_args_sparc32.h"
 
 DCint       dcbArgInt      (DCArgs* p) { return 0; }

data/dyncall/dyncallback/dyncall_args_sparc32.h

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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 DYNCALLBACK_ARGS_SPARC32_H
 #define DYNCALLBACK_ARGS_SPARC32_H
 

data/dyncall/dyncallback/dyncall_args_sparc64.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - Implementation for sparc64 - not 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_args_sparc64.h"
 
 DCint       dcbArgInt      (DCArgs* p) { return 0; }

data/dyncall/dyncallback/dyncall_args_sparc64.h

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - Header for sparc32 - not 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 @@
 
 */
 
+
 #ifndef DYNCALLBACK_ARGS_SPARC64_H
 #define DYNCALLBACK_ARGS_SPARC64_H
 

data/dyncall/dyncallback/dyncall_args_x64.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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_args_x64.h"
 
 

data/dyncall/dyncallback/dyncall_args_x64.h

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

data/dyncall/dyncallback/dyncall_args_x86.c

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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
@@ -23,6 +23,7 @@
 
 */
 
+
 #include "dyncall_args_x86.h"
 
 /* ---------------------------------------------------------------------------- */

data/dyncall/dyncallback/dyncall_args_x86.h

@@ -6,7 +6,7 @@
  Description: Callback's Arguments VM - 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_ARGS_X86_H_
 #define DYNCALL_ARGS_X86_H_
 

data/dyncall/dyncallback/dyncall_callback.c

@@ -6,7 +6,7 @@
  Description: Callback - 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
@@ -23,14 +23,17 @@
 
 */
 
+
 #include "../dyncall/dyncall_macros.h"
 
 #if defined(DC__Arch_Intel_x86)
 #include "dyncall_callback_x86.c"
 #elif defined (DC__Arch_AMD64)
 #include "dyncall_callback_x64.c"
-#elif defined (DC__Arch_PowerPC)
+#elif defined (DC__Arch_PPC32)
 #include "dyncall_callback_ppc32.c"
+#elif defined (DC__Arch_PPC64)
+#include "dyncall_callback_ppc64.c"
 #elif defined (DC__Arch_ARM_ARM)
 #include "dyncall_callback_arm32_arm.c"
 #elif defined (DC__Arch_ARM_THUMB)
@@ -41,5 +44,7 @@
 #include "dyncall_callback_sparc32.c"
 #elif defined (DC__Arch_Sparcv9)
 #include "dyncall_callback_sparc64.c"
+#elif defined (DC__Arch_ARM64)
+#include "dyncall_callback_arm64.c"
 #endif