rbdc 0.9.0 → 1.0.0

data/dyncall/dyncall/{dyncall_call_sparc_v9.h → dyncall_callvm_mips_n32.h}

@@ -2,11 +2,12 @@
 
  Package: dyncall
  Library: dyncall
- File: dyncall/dyncall_call_sparc_v9.h
- Description: 
+ File: dyncall/dyncall_callvm_mips_n32.h
+ Description: mips64 "n32" ABI callvm C interface.
  License:
 
-   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2007-2018 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
@@ -24,20 +25,29 @@
 
 
 
-#ifndef DYNCALL_CALL_SPARC_V9_H
-#define DYNCALL_CALL_SPARC_V9_H
+#ifndef DYNCALL_CALLVM_MIPS_N32_H
+#define DYNCALL_CALLVM_MIPS_N32_H
 
-#include "dyncall_types.h"
+#include "dyncall_call_mips_n32.h"
+#include "dyncall_callvm.h"
+#include "dyncall_vector.h"
 
 #ifdef __cplusplus
 extern "C" {
 #endif
 
-void dcCall_v9 (DCCallVM* vm, DCpointer target);
+typedef struct
+{
+  DCCallVM                  mInterface;
+  DCint                     mRegCount;
+  struct DCRegData_mips_n32 mRegData;
+  DCVecHead                 mVecHead;
+} DCCallVM_mips_n32;
+/* @@@ this is the same as n64, combine code */
 
 #ifdef __cplusplus
 }
 #endif
 
-#endif /* DYNCALL_CALL_SPARC_v9_H */
+#endif /* DYNCALL_CALLVM_MIPS_N32_H */
 

data/dyncall/dyncall/dyncall_callvm_mips_n64.c

@@ -6,7 +6,7 @@
  Description: mips "n64" ABI callvm implementation
  License:
 
-   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 
+   Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -61,15 +61,6 @@ static void dc_callvm_reset_mips_n64(DCCallVM* in_self)
   self->mRegData.mUseDouble = 0LL;
 }
 
-static DCCallVM* dc_callvm_new_mips_n64(DCCallVM_vt* vt, DCsize size)
-{
-  DCCallVM_mips_n64* self = (DCCallVM_mips_n64*)dcAllocMem(sizeof(DCCallVM_mips_n64)+size);
-  dc_callvm_base_init(&self->mInterface, vt);
-  dcVecInit(&self->mVecHead, size);
-  dc_callvm_reset_mips_n64( (DCCallVM*) self );
-  return (DCCallVM*)self;
-}
-
 
 static void dc_callvm_free_mips_n64(DCCallVM* in_self)
 {
@@ -148,7 +139,7 @@ static void dc_callvm_argFloat_mips_n64(DCCallVM* in_self, DCfloat x)
 }
 
 
-/* Ellipsis calls: 
+/* Ellipsis calls:
    - float is promoted to double (due to ANSI C).
    - double is passed via integer register-file (due to MIPS ABI).
 */
@@ -170,14 +161,13 @@ void dc_callvm_call_mips_n64(DCCallVM* in_self, DCpointer target)
 {
   DCCallVM_mips_n64* self = (DCCallVM_mips_n64*)in_self;
   /* at minimum provide 16-bytes
-     which hold the first four integer register as spill area 
+     which hold the first four integer register as spill area
      and are automatically loaded to $4-$7
    */
   size_t size = DC_MAX(16, ( ( (unsigned) dcVecSize(&self->mVecHead) ) +7UL ) & (-8UL) );
   dcCall_mips_n64(target, &self->mRegData, size, dcVecData(&self->mVecHead));
 }
 
-/* Forward Declaration. */
 static void dc_callvm_mode_mips_n64(DCCallVM* in_self,DCint mode);
 
 DCCallVM_vt gVT_mips_n64 =
@@ -187,7 +177,7 @@ DCCallVM_vt gVT_mips_n64 =
 , &dc_callvm_mode_mips_n64
 , &dc_callvm_argBool_mips_n64
 , &dc_callvm_argChar_mips_n64
-, &dc_callvm_argShort_mips_n64 
+, &dc_callvm_argShort_mips_n64
 , &dc_callvm_argInt_mips_n64
 , &dc_callvm_argLong_mips_n64
 , &dc_callvm_argLongLong_mips_n64
@@ -236,34 +226,37 @@ DCCallVM_vt gVT_mips_n64_ellipsis =
 , NULL /* callStruct */
 };
 
-static void dc_callvm_mode_mips_n64(DCCallVM* self,DCint mode)
+static void dc_callvm_mode_mips_n64(DCCallVM* in_self, DCint mode)
 {
+  DCCallVM_mips_n64* self = (DCCallVM_mips_n64*)in_self;
+  DCCallVM_vt* vt;
+
   switch(mode) {
     case DC_CALL_C_DEFAULT:
-      self->mVTpointer = &gVT_mips_n64;
-      break;
+    case DC_CALL_C_MIPS64_N64:
     case DC_CALL_C_ELLIPSIS:
-      self->mVTpointer = &gVT_mips_n64_ellipsis;
+      vt = &gVT_mips_n64;
       break;
-    default:
-      self->mError = DC_ERROR_UNSUPPORTED_MODE;
+    case DC_CALL_C_ELLIPSIS_VARARGS:
+      vt = &gVT_mips_n64_ellipsis;
       break;
+    default:
+      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE;
+      return;
   }
+  dc_callvm_base_init(&self->mInterface, vt);
 }
 
-DCCallVM* dcNewCallVM_mips_n64(DCsize size) 
+/* Public API. */
+DCCallVM* dcNewCallVM(DCsize size)
 {
-  return dc_callvm_new_mips_n64(&gVT_mips_n64, size);
-}
+  DCCallVM_mips_n64* p = (DCCallVM_mips_n64*)dcAllocMem(sizeof(DCCallVM_mips_n64)+size);
 
-DCCallVM* dcNewCallVM_mips_n64_ellipsis(DCsize size) 
-{
-  return dc_callvm_new_mips_n64(&gVT_mips_n64_ellipsis, size);
-}
+  dc_callvm_mode_mips_n64((DCCallVM*)p, DC_CALL_C_DEFAULT);
 
+  dcVecInit(&p->mVecHead, size);
+  dc_callvm_reset_mips_n64((DCCallVM*)p);
 
-DCCallVM* dcNewCallVM(DCsize size)
-{
-  return dcNewCallVM_mips_n64(size);
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_mips_n64.h

@@ -6,7 +6,7 @@
  Description: mips "n64" ABI callvm C interface.
  License:
 
-   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 
+   Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -38,14 +38,12 @@ extern "C" {
 
 typedef struct
 {
-  DCCallVM  mInterface;
-  int mRegCount;
+  DCCallVM                  mInterface;
+  DCint                     mRegCount;
   struct DCRegData_mips_n64 mRegData;
-  DCVecHead mVecHead;
+  DCVecHead                 mVecHead;
 } DCCallVM_mips_n64;
 
-DCCallVM* dcNewCallVM_mips_n64(DCsize size);
-
 #ifdef __cplusplus
 }
 #endif

data/dyncall/dyncall/dyncall_callvm_mips_o32.c

@@ -6,7 +6,7 @@
  Description: mips "o32" ABI callvm implementation
  License:
 
-   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 
+   Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>, 
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -60,34 +60,12 @@ static void dc_callvm_reset_mips_o32(DCCallVM* in_self)
   self->mArgCount = 0;
 }
 
-static DCCallVM* dc_callvm_new_mips_o32(DCCallVM_vt* vt, DCsize size)
-{
-  DCCallVM_mips_o32* self = (DCCallVM_mips_o32*)dcAllocMem(sizeof(DCCallVM_mips_o32)+size);
-  dc_callvm_base_init(&self->mInterface, vt);
-  dcVecInit(&self->mVecHead, size);
-  dc_callvm_reset_mips_o32( (DCCallVM*) self );
-  return (DCCallVM*)self;
-}
-
 
 static void dc_callvm_free_mips_o32(DCCallVM* in_self)
 {
   dcFreeMem(in_self);
 }
 
-static void dc_callvm_mode_mips_o32(DCCallVM* self, DCint mode)
-{
-  switch(mode) {
-    case DC_CALL_C_DEFAULT:
-    case DC_CALL_C_ELLIPSIS:
-    case DC_CALL_C_MIPS32_O32:
-      break;
-    default:
-      self->mError = DC_ERROR_UNSUPPORTED_MODE;
-      break;
-  }
-}
-
 /* arg int -- fillup integer register file OR push on stack */
 
 static void dc_callvm_argInt_mips_o32(DCCallVM* in_self, DCint i)
@@ -138,7 +116,7 @@ static void dc_callvm_argFloat_mips_o32(DCCallVM* in_self, DCfloat x)
 
   dcVecAppend(&self->mVecHead, &x, sizeof(DCfloat) );
   if (self->mArgCount < 2) {
-#if defined(__MIPSEL__)
+#if defined(DC__Endian_LITTLE)
     self->mRegData.u[self->mArgCount].f[0] = x;
 #else
     self->mRegData.u[self->mArgCount].f[1] = x;
@@ -158,7 +136,7 @@ static void dc_callvm_argFloat_mips_o32(DCCallVM* in_self, DCfloat x)
 	lwc1	$f14, 8($5)      <--- byte offset 12 
 	lwc1	$f15, 12($5)
 
-#if defined(__MIPSEL__)
+#if defined(DC__Endian_LITTLE)
     /* index 0 and 2 */
     self->mRegData.floats[self->mArgCount*2] = x;
 #else
@@ -195,6 +173,8 @@ void dc_callvm_call_mips_o32(DCCallVM* in_self, DCpointer target)
   dcCall_mips_o32(target, &self->mRegData, size, dcVecData(&self->mVecHead));
 }
 
+static void dc_callvm_mode_mips_o32(DCCallVM* in_self, DCint mode);
+
 DCCallVM_vt gVT_mips_o32 =
 {
   &dc_callvm_free_mips_o32
@@ -223,14 +203,36 @@ DCCallVM_vt gVT_mips_o32 =
 , NULL /* callStruct */
 };
 
-DCCallVM* dcNewCallVM_mips_o32(DCsize size) 
+/* mode: only a single mode available currently. */
+static void dc_callvm_mode_mips_o32(DCCallVM* in_self, DCint mode)
 {
-  return dc_callvm_new_mips_o32(&gVT_mips_o32, size);
-}
+  DCCallVM_mips_o32* self = (DCCallVM_mips_o32*)in_self;
+  DCCallVM_vt* vt;
 
+  switch(mode) {
+    case DC_CALL_C_DEFAULT:
+    case DC_CALL_C_MIPS32_O32:
+    case DC_CALL_C_ELLIPSIS:
+    case DC_CALL_C_ELLIPSIS_VARARGS:
+      vt = &gVT_mips_o32;
+      break;
+    default:
+      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; 
+      return;
+  }
+  dc_callvm_base_init(&self->mInterface, vt);
+}
 
+/* Public API. */
 DCCallVM* dcNewCallVM(DCsize size)
 {
-  return dcNewCallVM_mips_o32(size);
+  DCCallVM_mips_o32* p = (DCCallVM_mips_o32*)dcAllocMem(sizeof(DCCallVM_mips_o32)+size);
+
+  dc_callvm_mode_mips_o32((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+  dc_callvm_reset_mips_o32((DCCallVM*)p);
+
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_mips_o32.h

@@ -6,7 +6,7 @@
  Description: mips "o32" ABI callvm C interface.
  License:
 
-   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 
+   Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>, 
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -40,7 +40,5 @@ typedef struct
   DCVecHead          mVecHead;
 } DCCallVM_mips_o32;
 
-DCCallVM* dcNewCallVM_mips_o32(DCsize size);
-
 #endif /* DYNCALL_CALLVM_MIPS_O32_H */
 

data/dyncall/dyncall/dyncall_callvm_ppc32.c

@@ -6,7 +6,7 @@
  Description: 
  License:
 
-   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 
+   Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>, 
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -50,12 +50,14 @@
 
 /* Support for Mac OS X (Darwin) and Systen V ABI for Power PC 32-bit */
 
-#if defined(DC__OS_Darwin)
-#define DC__ABI_Darwin
-#elif defined(DC__OS_Linux) || defined(DC__OS_FreeBSD) || defined(DC__OS_OpenBSD) || defined(DC__OS_NetBSD) || defined(DC__OS_DragonFlyBSD) || defined(DC__OS_SunOS)
-#define DC__ABI_SysV
+#if defined(DC_UNIX)
+#  if defined(DC__OS_Darwin)
+#    define DC__ABI_Darwin
+#  else
+#    define DC__ABI_SysV
+#  endif
 #else
-#error Unsupported OS for ppc32 architecture.
+#  error Unsupported OS for ppc32 architecture.
 #endif
 
 static void dc_callvm_free_ppc32(DCCallVM* in_self)
@@ -364,29 +366,26 @@ DCCallVM_vt gVT_ppc32_syscall =
 
 void dc_callvm_mode_ppc32(DCCallVM* in_self, DCint mode)
 {
-  DCCallVM_ppc32* self = (DCCallVM_ppc32*) in_self;
+  DCCallVM_ppc32* self = (DCCallVM_ppc32*)in_self;
   DCCallVM_vt* vt;
-  switch(mode) {
 
-    case DC_CALL_C_PPC32_OSX:  
+  switch(mode) {
 
 #if defined(DC__ABI_Darwin)
     case DC_CALL_C_DEFAULT:
     case DC_CALL_C_ELLIPSIS:
     case DC_CALL_C_ELLIPSIS_VARARGS:
 #endif
-
+    case DC_CALL_C_PPC32_OSX:  
       vt = &gVT_ppc32_darwin; 
       break;
 
-    case DC_CALL_C_PPC32_SYSV: 
-
 #if defined(DC__ABI_SysV)
     case DC_CALL_C_DEFAULT:
     case DC_CALL_C_ELLIPSIS:
     case DC_CALL_C_ELLIPSIS_VARARGS:
 #endif
-
+    case DC_CALL_C_PPC32_SYSV: 
       vt = &gVT_ppc32_sysv;
       break;
 
@@ -399,17 +398,20 @@ void dc_callvm_mode_ppc32(DCCallVM* in_self, DCint mode)
       self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; 
       return;
   }
-  
+
   dc_callvm_base_init(&self->mInterface, vt);
 }
 
+/* Public API. */
 DCCallVM* dcNewCallVM(DCsize size)
 {
-  DCCallVM_ppc32* self = (DCCallVM_ppc32*)dcAllocMem(sizeof(DCCallVM_ppc32)+size);
-  dcVecInit(&self->mVecHead, size);
-  self->mIntRegs              = 0;
-  self->mFloatRegs            = 0;
-  dc_callvm_mode_ppc32( (DCCallVM*) self, DC_CALL_C_DEFAULT );
-  return (DCCallVM*)self;
+  DCCallVM_ppc32* p = (DCCallVM_ppc32*)dcAllocMem(sizeof(DCCallVM_ppc32)+size);
+
+  dc_callvm_mode_ppc32((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+  dc_callvm_reset_ppc32((DCCallVM*)p);
+
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_ppc32.h

@@ -6,7 +6,7 @@
  Description: 
  License:
 
-   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 
+   Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>, 
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -56,7 +56,5 @@ struct DCCallVM_ppc32_
   DCVecHead mVecHead;
 };
 
-DCCallVM* dcNewCallVM_ppc32(DCsize size);
-
 #endif /* DYNCALL_CALLVM_PPC32_H */
 

data/dyncall/dyncall/dyncall_callvm_ppc64.c

@@ -74,7 +74,7 @@ static void dc_callvm_argDouble_ppc64(DCCallVM* in_self, DCdouble d)
 {
   DCCallVM_ppc64* self = (DCCallVM_ppc64*)in_self;
 
-  if (self->mFloatRegs < 13) { 
+  if (self->mFloatRegs < 13) {
     self->mRegData.mFloatData[self->mFloatRegs++] = d;
     if (self->mIntRegs < 8) {
       self->mRegData.mIntData[self->mIntRegs++] = *( (DClonglong*) &d );
@@ -82,7 +82,7 @@ static void dc_callvm_argDouble_ppc64(DCCallVM* in_self, DCdouble d)
       return;
 #endif
     }
-  } 
+  }
 
 #if DC__ABI_PPC64_ELF_V == 2
   if (dcVecSize(&self->mVecHead) == 0) {
@@ -99,10 +99,10 @@ static void dc_callvm_argDouble_ppc64_ellipsis(DCCallVM* in_self, DCdouble d)
 {
   DCCallVM_ppc64* self = (DCCallVM_ppc64*)in_self;
 
-  if (dcVecSize(&self->mVecHead) == 0) 
+  if (dcVecSize(&self->mVecHead) == 0)
     dcVecSkip(&self->mVecHead,(sizeof(DClonglong))*(self->mIntRegs));
 
-  if (self->mFloatRegs < 13) { 
+  if (self->mFloatRegs < 13) {
     self->mRegData.mFloatData[self->mFloatRegs++] = d;
     if (self->mIntRegs < 8) {
       self->mRegData.mIntData[self->mIntRegs++] = *( (DClonglong*) &d );
@@ -116,19 +116,55 @@ static void dc_callvm_argDouble_ppc64_ellipsis(DCCallVM* in_self, DCdouble d)
 
 
 /* Floating-point */
-  
+
 static void dc_callvm_argFloat_ppc64(DCCallVM* in_self, DCfloat f)
+{
+  DCCallVM_ppc64* self = (DCCallVM_ppc64*)in_self;
+
+  DCdouble d;
+#if defined(DC__Endian_BIG)
+  struct { DCfloat f_pad; DCfloat f; } sf;
+#else /* Endian_LITTLE */
+  struct { DCfloat f; DCfloat f_pad; } sf;
+#endif
+
+  if (self->mFloatRegs < 13) {
+    d = (DCdouble)f;
+    self->mRegData.mFloatData[self->mFloatRegs++] = d;
+    if (self->mIntRegs < 8) {
+      self->mRegData.mIntData[self->mIntRegs++] = *( (DClonglong*) &d );
+#if DC__ABI_PPC64_ELF_V == 2
+      return;
+#endif
+    }
+  }
+
+#if DC__ABI_PPC64_ELF_V == 2
+  if (dcVecSize(&self->mVecHead) == 0) {
+    dcVecSkip(&self->mVecHead,sizeof(DClonglong)*8);
+  }
+#endif
+
+  /* push on stack */
+  sf.f = f;
+  dcVecAppend(&self->mVecHead,(DCpointer) &sf,sizeof(DCdouble));
+}
+
+#if DC__ABI_PPC64_ELF_V == 2
+static void dc_callvm_argFloat_ppc64_ellipsis(DCCallVM* in_self, DCfloat f)
 {
   /* promote to double */
   dcArgDouble(in_self, (DCdouble) f );
 }
+#endif
+
 
 /* long long integer */
 
 static void dc_callvm_argLongLong_ppc64(DCCallVM* in_self, DClonglong L)
 {
   DCCallVM_ppc64* self = (DCCallVM_ppc64*)in_self;
-  
+
   /* fillup integer register file */
   if (self->mIntRegs < 8) {
     self->mRegData.mIntData[self->mIntRegs++] = L;
@@ -259,7 +295,7 @@ DCCallVM_vt gVT_ppc64_ellipsis =
 , &dc_callvm_argInt_ppc64
 , &dc_callvm_argLong_ppc64
 , &dc_callvm_argLongLong_ppc64_ellipsis
-, &dc_callvm_argFloat_ppc64
+, &dc_callvm_argFloat_ppc64_ellipsis
 , &dc_callvm_argDouble_ppc64_ellipsis
 , &dc_callvm_argPointer_ppc64
 , NULL /* argStruct */
@@ -309,10 +345,10 @@ void dc_callvm_mode_ppc64(DCCallVM* in_self, DCint mode)
 {
   DCCallVM_ppc64* self = (DCCallVM_ppc64*) in_self;
   DCCallVM_vt* vt;
-  switch(mode) {
 
-    case DC_CALL_C_PPC64: 
+  switch(mode) {
     case DC_CALL_C_DEFAULT:
+    case DC_CALL_C_PPC64: 
     case DC_CALL_C_ELLIPSIS:
 #if DC__ABI_PPC64_ELF_V == 2
       vt = &gVT_ppc64;
@@ -339,13 +375,16 @@ void dc_callvm_mode_ppc64(DCCallVM* in_self, DCint mode)
   dc_callvm_base_init(&self->mInterface, vt);
 }
 
+/* Public API. */
 DCCallVM* dcNewCallVM(DCsize size)
 {
-  DCCallVM_ppc64* self = (DCCallVM_ppc64*)dcAllocMem(sizeof(DCCallVM_ppc64)+size);
-  dcVecInit(&self->mVecHead, size);
-  self->mIntRegs              = 0;
-  self->mFloatRegs            = 0;
-  dc_callvm_mode_ppc64( (DCCallVM*) self, DC_CALL_C_DEFAULT );
-  return (DCCallVM*)self;
+  DCCallVM_ppc64* p = (DCCallVM_ppc64*)dcAllocMem(sizeof(DCCallVM_ppc64)+size);
+
+  dc_callvm_mode_ppc64((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+  dc_callvm_reset_ppc64((DCCallVM*)p);
+
+  return (DCCallVM*)p;
 }