rbdc 0.9.0 → 1.0.0

data/dyncall/dyncall/dyncall_callvm_arm32_thumb.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
@@ -45,7 +45,6 @@
 #include "dyncall_callvm.h"
 #include "dyncall_vector.h"
 
-
 typedef struct
 {
   DCCallVM  mInterface;
@@ -53,8 +52,5 @@ typedef struct
   DCVecHead mVecHead;
 } DCCallVM_arm32_thumb;
 
-DCCallVM* dcNewCallVM_arm32_thumb(DCsize size);
-
-
 #endif /* DYNCALL_CALLVM_ARM32_THUMB_H */
 

data/dyncall/dyncall/dyncall_callvm_arm64.c

@@ -6,8 +6,8 @@
  Description: ARM 64-bit ABI implementation
  License:
 
-   Copyright (c) 2015 Daniel Adler <dadler@uni-goettingen.de>, 
-                      Tassilo Philipp <tphilipp@potion-studios.com>
+   Copyright (c) 2015-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
@@ -27,19 +27,6 @@
 #include "dyncall_callvm_arm64.h"
 #include "dyncall_alloc.h"
 
-static DCCallVM* dc_callvm_new_arm64(DCCallVM_vt* vt, DCsize size)
-{
-  DCCallVM_arm64* p = (DCCallVM_arm64*) dcAllocMem(size);
-
-  dc_callvm_base_init(&p->mInterface, vt);
-
-  dcVecInit(&p->mVecHead, size);
-
-  p->i = 0;
-  p->f = 0;
-
-  return (DCCallVM*)p;
-}
 
 static void reset(DCCallVM* in_p)
 {
@@ -50,8 +37,6 @@ static void reset(DCCallVM* in_p)
 }
 
 
-static void mode(DCCallVM* in_self,DCint mode);
-
 static void deinit(DCCallVM* in_self)
 {
   dcFreeMem(in_self);
@@ -112,6 +97,8 @@ void call(DCCallVM* in_p, DCpointer target)
   dcCall_arm64(target, dcVecData(&p->mVecHead), ( dcVecSize(&p->mVecHead) + 15 ) & -16, &p->u.S[0]);
 }
 
+static void mode(DCCallVM* in_self, DCint mode);
+
 DCCallVM_vt vt_arm64 =
 {
   &deinit
@@ -140,26 +127,35 @@ DCCallVM_vt vt_arm64 =
 , NULL /* callStruct */
 };
 
-DCCallVM* dcNewCallVM(DCsize size) 
+static void mode(DCCallVM* in_self, DCint mode)
 {
-  return dc_callvm_new_arm64(&vt_arm64, size);
-}
+  DCCallVM_arm64* self = (DCCallVM_arm64*)in_self;
+  DCCallVM_vt* vt;
 
-static void mode(DCCallVM* in_self,DCint mode)
-{
-  DCCallVM_arm64* self = (DCCallVM_arm64*) in_self;
-  DCCallVM_vt*  vt;
   switch(mode) {
     case DC_CALL_C_DEFAULT:        
+    case DC_CALL_C_ARM64:        
     case DC_CALL_C_ELLIPSIS:
     case DC_CALL_C_ELLIPSIS_VARARGS:
-    case DC_CALL_C_ARM64:        
       vt = &vt_arm64;
       break;
     default: 
-      in_self->mError = DC_ERROR_UNSUPPORTED_MODE;
+      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; 
       return;
   }
-  self->mInterface.mVTpointer = vt;
+  dc_callvm_base_init(&self->mInterface, vt);
+}
+
+/* Public API. */
+DCCallVM* dcNewCallVM(DCsize size) 
+{
+  DCCallVM_arm64* p = (DCCallVM_arm64*)dcAllocMem(sizeof(DCCallVM_arm64)+size);
+
+  mode((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+  reset((DCCallVM*)p);
+
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_arm64.h

@@ -6,8 +6,8 @@
  Description: 
  License:
 
-   Copyright (c) 2015 Daniel Adler <dadler@uni-goettingen.de>, 
-                      Tassilo Philipp <tphilipp@potion-studios.com>
+   Copyright (c) 2015-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
@@ -30,7 +30,6 @@
 #include "dyncall_callvm.h"
 #include "dyncall_vector.h"
 
-
 typedef struct
 {
   DCCallVM mInterface;
@@ -44,8 +43,5 @@ typedef struct
   DCVecHead mVecHead;	/* argument buffer head */
 } DCCallVM_arm64;
 
-DCCallVM* dcNewCallVM_arm64(DCsize size);
-
-
 #endif /* DYNCALL_CALLVM_ARM64_DEBIAN_H */
 

data/dyncall/dyncall/dyncall_callvm_arm64_apple.c

@@ -6,8 +6,8 @@
  Description: ARM 64-bit Apple ABI implementation
  License:
 
-   Copyright (c) 2015 Daniel Adler <dadler@uni-goettingen.de>, 
-                      Tassilo Philipp <tphilipp@potion-studios.com>
+   Copyright (c) 2015-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
@@ -27,19 +27,6 @@
 #include "dyncall_callvm_arm64.h"
 #include "dyncall_alloc.h"
 
-static DCCallVM* dc_callvm_new_arm64(DCCallVM_vt* vt, DCsize size)
-{
-  DCCallVM_arm64* p = (DCCallVM_arm64*) dcAllocMem(size);
-
-  dc_callvm_base_init(&p->mInterface, vt);
-
-  dcVecInit(&p->mVecHead, size);
-
-  p->i = 0;
-  p->f = 0;
-
-  return (DCCallVM*)p;
-}
 
 static void reset(DCCallVM* in_p)
 {
@@ -50,8 +37,6 @@ static void reset(DCCallVM* in_p)
 }
 
 
-static void mode(DCCallVM* in_p,DCint mode);
-
 static void deinit(DCCallVM* in_p)
 {
   dcFreeMem(in_p);
@@ -186,6 +171,8 @@ void call(DCCallVM* in_p, DCpointer target)
   dcCall_arm64(target, dcVecData(&p->mVecHead), ( dcVecSize(&p->mVecHead) + 15 ) & -16, &p->u.S[0]);
 }
 
+static void mode(DCCallVM* in_p,DCint mode);
+
 DCCallVM_vt vt_arm64 =
 {
   &deinit
@@ -242,21 +229,14 @@ DCCallVM_vt vt_arm64_variadic =
 , NULL /* callStruct */
 };
 
-
-DCCallVM* dcNewCallVM(DCsize size) 
+static void mode(DCCallVM* in_self, DCint mode)
 {
-  return dc_callvm_new_arm64(&vt_arm64, size);
-}
+  DCCallVM_arm64* self = (DCCallVM_arm64*)in_self;
+  DCCallVM_vt* vt;
 
-static void mode(DCCallVM* in_self,DCint mode)
-{
-  DCCallVM_arm64* self = (DCCallVM_arm64*) in_self;
-  DCCallVM_vt*  vt;
   switch(mode) {
     case DC_CALL_C_DEFAULT:        
-    case DC_CALL_C_ARM64:        
-      vt = &vt_arm64;
-      break;
+    case DC_CALL_C_ARM64:
     case DC_CALL_C_ELLIPSIS:
       vt = &vt_arm64;
       break;
@@ -264,9 +244,22 @@ static void mode(DCCallVM* in_self,DCint mode)
       vt = &vt_arm64_variadic;
       break;
     default: 
-      in_self->mError = DC_ERROR_UNSUPPORTED_MODE;
+      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; 
       return;
   }
-  self->mInterface.mVTpointer = vt;
+  dc_callvm_base_init(&self->mInterface, vt);
+}
+
+/* Public API. */
+DCCallVM* dcNewCallVM(DCsize size) 
+{
+  DCCallVM_arm64* p = (DCCallVM_arm64*)dcAllocMem(sizeof(DCCallVM_arm64)+size);
+
+  mode((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+  reset((DCCallVM*)p);
+
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_base.c

@@ -6,7 +6,7 @@
  Description: ARM 32-bit "thumb" 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

data/dyncall/dyncall/dyncall_callvm_mips.c

@@ -6,7 +6,7 @@
  Description: ARM 32-bit "thumb" 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

data/dyncall/dyncall/dyncall_callvm_mips.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

data/dyncall/dyncall/dyncall_callvm_mips_eabi.c

@@ -6,7 +6,7 @@
  Description: Implementation of Call VM for mips "eabi" abi.
  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
@@ -36,34 +36,11 @@ static void dc_callvm_reset_mips_eabi(DCCallVM* in_self)
   self->mSingleRegs = 0;
 }
 
-static DCCallVM* dc_callvm_new_mips_eabi(DCCallVM_vt* vt, DCsize size)
-{
-  /* Store at least 16 bytes (4 words) for internal spill area. Assembly code depends on it. */
-  DCCallVM_mips_eabi* self = (DCCallVM_mips_eabi*)dcAllocMem(sizeof(DCCallVM_mips_eabi)+size+16);
-  dc_callvm_base_init(&self->mInterface, vt);
-  dcVecInit(&self->mVecHead, size);
-  dc_callvm_reset_mips_eabi( (DCCallVM*) self );
-  return (DCCallVM*)self;
-}
-
-
 static void dc_callvm_free_mips_eabi(DCCallVM* in_self)
 {
   dcFreeMem(in_self);
 }
 
-static void dc_callvm_mode_mips_eabi(DCCallVM* in_self,DCint mode)
-{
-  switch(mode) {
-    case DC_CALL_C_DEFAULT:
-    case DC_CALL_C_ELLIPSIS:
-    case DC_CALL_C_MIPS32_EABI:
-      break;
-    default:
-      in_self->mError = DC_ERROR_UNSUPPORTED_MODE; return;
-  }
-}
-
 /* arg int -- fillup integer register file OR push on stack */
 
 static void dc_callvm_argInt_mips_eabi(DCCallVM* in_self, DCint i)
@@ -142,6 +119,8 @@ void dc_callvm_call_mips_eabi(DCCallVM* in_self, DCpointer target)
   dcCall_mips_eabi(target, &self->mRegData, dcVecSize(&self->mVecHead), dcVecData(&self->mVecHead));
 }
 
+static void dc_callvm_mode_mips_eabi(DCCallVM* in_self, DCint mode);
+
 DCCallVM_vt gVT_mips_eabi =
 {
   &dc_callvm_free_mips_eabi
@@ -170,13 +149,37 @@ DCCallVM_vt gVT_mips_eabi =
 , NULL /* callStruct */
 };
 
-DCCallVM* dcNewCallVM_mips_eabi(DCsize size) 
+/* mode: only a single mode available currently. */
+static void dc_callvm_mode_mips_eabi(DCCallVM* in_self, DCint mode)
 {
-  return dc_callvm_new_mips_eabi(&gVT_mips_eabi, size);
+  DCCallVM_mips_eabi* self = (DCCallVM_mips_eabi*)in_self;
+  DCCallVM_vt* vt;
+
+  switch(mode) {
+    case DC_CALL_C_DEFAULT:
+    case DC_CALL_C_MIPS32_EABI:
+    case DC_CALL_C_ELLIPSIS:
+    case DC_CALL_C_ELLIPSIS_VARARGS:
+      vt = &gVT_mips_eabi;
+      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_eabi(size);
+  /* Store at least 16 bytes (4 words) for internal spill area. Assembly code depends on it. */
+  DCCallVM_mips_eabi* p = (DCCallVM_mips_eabi*)dcAllocMem(sizeof(DCCallVM_mips_eabi)+size+16);
+
+  dc_callvm_mode_mips_eabi((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+  dc_callvm_reset_mips_eabi((DCCallVM*)p);
+
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_mips_eabi.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
@@ -45,7 +45,6 @@
 #include "dyncall_callvm.h"
 #include "dyncall_vector.h"
 
-
 typedef struct
 {
   DCCallVM  mInterface;
@@ -55,8 +54,5 @@ typedef struct
   DCVecHead mVecHead;
 } DCCallVM_mips_eabi;
 
-DCCallVM* dcNewCallVM_mips_eabi(DCsize size);
-
-
 #endif /* DYNCALL_CALLVM_MIPS_EABI_H */
 

data/dyncall/dyncall/dyncall_callvm_mips_n32.c

@@ -3,10 +3,10 @@
  Package: dyncall
  Library: dyncall
  File: dyncall/dyncall_callvm_mips_n32.c
- Description: mips "n32" ABI callvm implementation
+ Description: mips64 "n32" 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_n32(DCCallVM* in_self)
   self->mRegData.mUseDouble = 0LL;
 }
 
-static DCCallVM* dc_callvm_new_mips_n32(DCCallVM_vt* vt, DCsize size)
-{
-  DCCallVM_mips_n32* self = (DCCallVM_mips_n32*)dcAllocMem(sizeof(DCCallVM_mips_n32)+size);
-  dc_callvm_base_init(&self->mInterface, vt);
-  dcVecInit(&self->mVecHead, size);
-  dc_callvm_reset_mips_n32( (DCCallVM*) self );
-  return (DCCallVM*)self;
-}
-
 
 static void dc_callvm_free_mips_n32(DCCallVM* in_self)
 {
@@ -148,7 +139,7 @@ static void dc_callvm_argFloat_mips_n32(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,7 +161,7 @@ void dc_callvm_call_mips_n32(DCCallVM* in_self, DCpointer target)
 {
   DCCallVM_mips_n32* self = (DCCallVM_mips_n32*)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) );
@@ -187,7 +178,7 @@ DCCallVM_vt gVT_mips_n32 =
 , &dc_callvm_mode_mips_n32
 , &dc_callvm_argBool_mips_n32
 , &dc_callvm_argChar_mips_n32
-, &dc_callvm_argShort_mips_n32 
+, &dc_callvm_argShort_mips_n32
 , &dc_callvm_argInt_mips_n32
 , &dc_callvm_argLong_mips_n32
 , &dc_callvm_argLongLong_mips_n32
@@ -236,34 +227,37 @@ DCCallVM_vt gVT_mips_n32_ellipsis =
 , NULL /* callStruct */
 };
 
-static void dc_callvm_mode_mips_n32(DCCallVM* self,DCint mode)
+static void dc_callvm_mode_mips_n32(DCCallVM* in_self, DCint mode)
 {
+  DCCallVM_mips_n32* self = (DCCallVM_mips_n32*)in_self;
+  DCCallVM_vt* vt;
+
   switch(mode) {
     case DC_CALL_C_DEFAULT:
-      self->mVTpointer = &gVT_mips_n32;
-      break;
+    case DC_CALL_C_MIPS64_N32:
     case DC_CALL_C_ELLIPSIS:
-      self->mVTpointer = &gVT_mips_n32_ellipsis;
+      vt = &gVT_mips_n32;
       break;
-    default:
-      self->mError = DC_ERROR_UNSUPPORTED_MODE;
+    case DC_CALL_C_ELLIPSIS_VARARGS:
+      vt = &gVT_mips_n32_ellipsis;
       break;
+    default:
+      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE;
+      return;
   }
+  dc_callvm_base_init(&self->mInterface, vt);
 }
 
-DCCallVM* dcNewCallVM_mips_n32(DCsize size) 
+/* Public API. */
+DCCallVM* dcNewCallVM(DCsize size)
 {
-  return dc_callvm_new_mips_n32(&gVT_mips_n32, size);
-}
+  DCCallVM_mips_n32* p = (DCCallVM_mips_n32*)dcAllocMem(sizeof(DCCallVM_mips_n32)+size);
 
-DCCallVM* dcNewCallVM_mips_n32_ellipsis(DCsize size) 
-{
-  return dc_callvm_new_mips_n32(&gVT_mips_n32_ellipsis, size);
-}
+  dc_callvm_mode_mips_n32((DCCallVM*)p, DC_CALL_C_DEFAULT);
 
+  dcVecInit(&p->mVecHead, size);
+  dc_callvm_reset_mips_n32((DCCallVM*)p);
 
-DCCallVM* dcNewCallVM(DCsize size)
-{
-  return dcNewCallVM_mips_n32(size);
+  return (DCCallVM*)p;
 }