rbdc 0.9.0 → 1.0.0

data/dyncall/dyncall/dyncall_call_x86.h

@@ -6,7 +6,7 @@
  Description: heap memory management interface (header only)
  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_call_x86_nasm.asm

@@ -226,9 +226,9 @@ EXPORT_C dcCall_x86_win32_fast
 
 	ret    
 
-; Stack markings for ELF/GNU to specify no executable stack */
-
-%ifidn __OUTPUT_FORMAT__,elf
-section .note.GNU-stack noalloc noexec nowrite progbits
-%endif
+;; Stack markings for ELF/GNU to specify no executable stack */
+;
+;%ifidn __OUTPUT_FORMAT__,elf
+;section .note.GNU-stack noalloc noexec nowrite progbits
+;%endif
 

data/dyncall/dyncall/dyncall_callf.c

@@ -6,7 +6,7 @@
  Description: formatted call C interface (extension module)
  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
@@ -28,7 +28,7 @@
 #include "dyncall_callf.h"
 
 
-// Shareable implementation for argument binding used in ArgF and CallF  below.
+/* Shareable implementation for argument binding used in ArgF and CallF below. */
 static void dcArgF_impl(DCCallVM* vm, const DCsigchar** sigptr, va_list args)
 {
   DCsigchar ch;
@@ -73,22 +73,22 @@ void dcVCallF(DCCallVM* vm, DCValue* result, DCpointer funcptr, const DCsigchar*
   dcArgF_impl(vm, &ptr, args);
 
   switch(*ptr) {
-    case DC_SIGCHAR_VOID:                   dcCallVoid         (vm,funcptr); break;
-    case DC_SIGCHAR_BOOL:       result->B = dcCallBool         (vm,funcptr); break;
-    case DC_SIGCHAR_CHAR:       result->c = dcCallChar         (vm,funcptr); break;
-    case DC_SIGCHAR_UCHAR:      result->C = (DCuchar)dcCallChar(vm,funcptr); break;
-    case DC_SIGCHAR_SHORT:      result->s = dcCallShort        (vm,funcptr); break;
-    case DC_SIGCHAR_USHORT:     result->S = dcCallShort        (vm,funcptr); break;
-    case DC_SIGCHAR_INT:        result->i = dcCallInt          (vm,funcptr); break;
-    case DC_SIGCHAR_UINT:       result->I = dcCallInt          (vm,funcptr); break;
-    case DC_SIGCHAR_LONG:       result->j = dcCallLong         (vm,funcptr); break;
-    case DC_SIGCHAR_ULONG:      result->J = dcCallLong         (vm,funcptr); break;
-    case DC_SIGCHAR_LONGLONG:   result->l = dcCallLongLong     (vm,funcptr); break;
-    case DC_SIGCHAR_ULONGLONG:  result->L = dcCallLongLong     (vm,funcptr); break;
-    case DC_SIGCHAR_FLOAT:      result->f = dcCallFloat        (vm,funcptr); break;
-    case DC_SIGCHAR_DOUBLE:     result->d = dcCallDouble       (vm,funcptr); break;
-    case DC_SIGCHAR_POINTER:    result->p = dcCallPointer      (vm,funcptr); break;
-    case DC_SIGCHAR_STRING:     result->Z = dcCallPointer      (vm,funcptr); break;
+    case DC_SIGCHAR_VOID:                   dcCallVoid             (vm,funcptr); break;
+    case DC_SIGCHAR_BOOL:       result->B = dcCallBool             (vm,funcptr); break;
+    case DC_SIGCHAR_CHAR:       result->c = dcCallChar             (vm,funcptr); break;
+    case DC_SIGCHAR_UCHAR:      result->C = (DCuchar)dcCallChar    (vm,funcptr); break;
+    case DC_SIGCHAR_SHORT:      result->s = dcCallShort            (vm,funcptr); break;
+    case DC_SIGCHAR_USHORT:     result->S = dcCallShort            (vm,funcptr); break;
+    case DC_SIGCHAR_INT:        result->i = dcCallInt              (vm,funcptr); break;
+    case DC_SIGCHAR_UINT:       result->I = dcCallInt              (vm,funcptr); break;
+    case DC_SIGCHAR_LONG:       result->j = dcCallLong             (vm,funcptr); break;
+    case DC_SIGCHAR_ULONG:      result->J = dcCallLong             (vm,funcptr); break;
+    case DC_SIGCHAR_LONGLONG:   result->l = dcCallLongLong         (vm,funcptr); break;
+    case DC_SIGCHAR_ULONGLONG:  result->L = dcCallLongLong         (vm,funcptr); break;
+    case DC_SIGCHAR_FLOAT:      result->f = dcCallFloat            (vm,funcptr); break;
+    case DC_SIGCHAR_DOUBLE:     result->d = dcCallDouble           (vm,funcptr); break;
+    case DC_SIGCHAR_POINTER:    result->p = dcCallPointer          (vm,funcptr); break;
+    case DC_SIGCHAR_STRING:     result->Z = (DCstring)dcCallPointer(vm,funcptr); break;
   }
 }
 

data/dyncall/dyncall/dyncall_callf.h

@@ -6,7 +6,7 @@
  Description: formatted call interface to dyncall
  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.c

@@ -6,7 +6,7 @@
  Description: auto-select default callvm (includes other C sources).
  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
@@ -67,8 +67,8 @@
 #  endif
 #elif defined(DC__Arch_Sparc)
 #  include "dyncall_callvm_sparc.c"
-#elif defined(DC__Arch_Sparcv9)
-#  include "dyncall_callvm_sparc_v9.c"
+#elif defined(DC__Arch_Sparc64)
+#  include "dyncall_callvm_sparc64.c"
 #elif defined(DC__Arch_RiscV)
 #  include "dyncall_callvm_riscv.c"
 #else

data/dyncall/dyncall/dyncall_callvm.h

@@ -6,7 +6,7 @@
  Description: Common call vm binary 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

data/dyncall/dyncall/dyncall_callvm_arm32_arm.c

@@ -6,7 +6,7 @@
  Description: ARM 32-bit "arm" 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
@@ -41,18 +41,6 @@
 #include "dyncall_callvm_arm32_arm.h"
 #include "dyncall_alloc.h"
 
-static void dc_callvm_mode_arm32_arm(DCCallVM* in_self,DCint mode);
-
-static DCCallVM* dc_callvm_new_arm32_arm(DCCallVM_vt* vt, DCsize size)
-{
-  /* Store at least 16 bytes (4 words) for internal spill area. Assembly code depends on it. */
-  DCCallVM_arm32_arm* self = (DCCallVM_arm32_arm*)dcAllocMem(sizeof(DCCallVM_arm32_arm)+size+16);
-  dc_callvm_base_init(&self->mInterface, vt);
-  dcVecInit(&self->mVecHead, size);
-  return (DCCallVM*)self;
-}
-
-
 static void dc_callvm_free_arm32_arm(DCCallVM* in_self)
 {
   dcFreeMem(in_self);
@@ -152,6 +140,7 @@ void dc_callvm_call_arm32_arm(DCCallVM* in_self, DCpointer target)
   dcCall_arm32_arm(target, dcVecData(&self->mVecHead), dcVecSize(&self->mVecHead));
 }
 
+static void dc_callvm_mode_arm32_arm(DCCallVM* in_self, DCint mode);
 
 DCCallVM_vt gVT_arm32_arm =
 {
@@ -181,7 +170,6 @@ DCCallVM_vt gVT_arm32_arm =
 , NULL /* callStruct */
 };
 
-
 DCCallVM_vt gVT_arm32_arm_eabi =
 {
   &dc_callvm_free_arm32_arm
@@ -210,42 +198,39 @@ DCCallVM_vt gVT_arm32_arm_eabi =
 , NULL /* callStruct */
 };
 
-
-DCCallVM* dcNewCallVM_arm32_arm(DCsize size) 
-{
-/* Check OS if we need EABI as default. */
-#if defined(DC__ABI_ARM_EABI)
-  return dc_callvm_new_arm32_arm(&gVT_arm32_arm_eabi, size);
-#else
-  return dc_callvm_new_arm32_arm(&gVT_arm32_arm, size);
-#endif
-}
-
-
-DCCallVM* dcNewCallVM(DCsize size)
+static void dc_callvm_mode_arm32_arm(DCCallVM* in_self, DCint mode)
 {
-  return dcNewCallVM_arm32_arm(size);
-}
+  DCCallVM_arm32_arm* self = (DCCallVM_arm32_arm*)in_self;
+  DCCallVM_vt* vt;
 
-static void dc_callvm_mode_arm32_arm(DCCallVM* in_self,DCint mode)
-{
-  DCCallVM_arm32_arm* self = (DCCallVM_arm32_arm*) in_self;
-  DCCallVM_vt*  vt;
   switch(mode) {
-/* Check OS if we need EABI as default. */
     case DC_CALL_C_ELLIPSIS:
     case DC_CALL_C_ELLIPSIS_VARARGS:
+/* Check OS if we need EABI as default. */
 #if defined(DC__ABI_ARM_EABI)
-    case DC_CALL_C_DEFAULT:          vt = &gVT_arm32_arm_eabi; break;
+    case DC_CALL_C_DEFAULT:       vt = &gVT_arm32_arm_eabi; break;
 #else
-    case DC_CALL_C_DEFAULT:          vt = &gVT_arm32_arm;      break;
+    case DC_CALL_C_DEFAULT:       vt = &gVT_arm32_arm;      break;
 #endif
-    case DC_CALL_C_ARM_ARM:          vt = &gVT_arm32_arm;      break;
-    case DC_CALL_C_ARM_ARM_EABI:     vt = &gVT_arm32_arm_eabi; break;
+    case DC_CALL_C_ARM_ARM:       vt = &gVT_arm32_arm;      break;
+    case DC_CALL_C_ARM_ARM_EABI:  vt = &gVT_arm32_arm_eabi; 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)
+{
+  /* Store at least 16 bytes (4 words) for internal spill area. Assembly code depends on it. */
+  DCCallVM_arm32_arm* p = (DCCallVM_arm32_arm*)dcAllocMem(sizeof(DCCallVM_arm32_arm)+size+16);
+
+  dc_callvm_mode_arm32_arm((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_arm32_arm.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_arm;
 
-DCCallVM* dcNewCallVM_arm32_arm(DCsize size);
-
-
 #endif /* DYNCALL_CALLVM_ARM32_ARM_H */
 

data/dyncall/dyncall/dyncall_callvm_arm32_arm_armhf.c

@@ -6,7 +6,7 @@
  Description: ARM 'armhf' ABI 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
@@ -28,20 +28,6 @@
 #include "dyncall_alloc.h"
 
 
-static DCCallVM* dc_callvm_new_arm32_armhf(DCCallVM_vt* vt, DCsize size)
-{
-  /* Store at least 16 bytes (4 words for first 4 int args) for internal spill area. Assembly code depends on it. */
-  DCCallVM_arm32_armhf* p = (DCCallVM_arm32_armhf*)dcAllocMem(sizeof(DCCallVM_arm32_armhf)+size+16);
-  dc_callvm_base_init(&p->mInterface, vt);
-  dcVecInit(&p->mVecHead, size);
-  p->i = 0;
-  p->s = 0;
-  p->d = 0;
-  return (DCCallVM*)p;
-}
-
-static void mode(DCCallVM* in_self,DCint mode);
-
 static void deinit(DCCallVM* in_self)
 {
   dcFreeMem(in_self);
@@ -114,7 +100,7 @@ static void a_double(DCCallVM* in_p, DCdouble x)
 
   DCCallVM_arm32_armhf* p = (DCCallVM_arm32_armhf*)in_p;
   if (p->d < 16) {
-    * (double*) &p->S[p->d] = x;
+    * (DCdouble*) &p->S[p->d] = x;
     p->d += 2;
     if (!(p->s & 1)) {
       /* if s is even it always equals d. otherwise, s points to an odd float register. */
@@ -145,6 +131,8 @@ void call(DCCallVM* in_p, DCpointer target)
   dcCall_arm32_armhf(target, dcVecData(&p->mVecHead), dcVecSize(&p->mVecHead), &p->S[0]);
 }
 
+static void mode(DCCallVM* in_self,DCint mode);
+
 DCCallVM_vt vt_armhf =
 {
   &deinit
@@ -201,34 +189,38 @@ DCCallVM_vt vt_armhf_ellipsis =
 , NULL /* callStruct */
 };
 
-DCCallVM* dcNewCallVM(DCsize size)
+static void mode(DCCallVM* in_self, DCint mode)
 {
-#if defined(DC__ABI_ARM_EABI)
-  return dc_callvm_new_arm32_arm(&eabi, size);
-#elif defined(DC__ABI_ARM_HF)
-  return dc_callvm_new_arm32_armhf(&vt_armhf, size);
-#elif defined(DC__ABI_ARM_OABI)
-  return dc_callvm_new_arm32_arm(&oabi, size);
-#else
-#error unknown ARM abi
-#endif
-}
+  DCCallVM_arm32_armhf* self = (DCCallVM_arm32_armhf*)in_self;
+  DCCallVM_vt* vt;
 
-static void mode(DCCallVM* in_self,DCint mode)
-{
-  DCCallVM_arm32_armhf* self = (DCCallVM_arm32_armhf*) in_self;
   switch(mode) {
     case DC_CALL_C_DEFAULT:
     case DC_CALL_C_ARM_ARMHF:
-      self->mInterface.mVTpointer = &vt_armhf;
+      vt = &vt_armhf;
       break;
     case DC_CALL_C_ELLIPSIS:
     case DC_CALL_C_ELLIPSIS_VARARGS:
-      self->mInterface.mVTpointer = &vt_armhf_ellipsis;
+      vt = &vt_armhf_ellipsis;
       break;
     default:
-      in_self->mError = DC_ERROR_UNSUPPORTED_MODE;
+      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; 
       return;
   }
+  dc_callvm_base_init(&self->mInterface, vt);
+}
+
+/* Public API. */
+DCCallVM* dcNewCallVM(DCsize size)
+{
+  /* Store at least 16 bytes (4 words for first 4 int args) for internal spill area. Assembly code depends on it. */
+  DCCallVM_arm32_armhf* p = (DCCallVM_arm32_armhf*)dcAllocMem(sizeof(DCCallVM_arm32_armhf)+size+16);
+
+  mode((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead, size);
+  reset((DCCallVM*)p);
+
+  return (DCCallVM*)p;
 }
 

data/dyncall/dyncall/dyncall_callvm_arm32_arm_armhf.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;
@@ -57,8 +56,5 @@ typedef struct
   DCVecHead    mVecHead;
 } DCCallVM_arm32_armhf;
 
-DCCallVM* dcNewCallVM_arm32_armhf(DCsize size);
-
-
 #endif /* DYNCALL_CALLVM_ARM32_ARM_H */
 

data/dyncall/dyncall/dyncall_callvm_arm32_thumb.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
@@ -43,16 +43,6 @@
 
 static void dc_callvm_mode_arm32_thumb(DCCallVM* in_self,DCint mode);
 
-static DCCallVM* dc_callvm_new_arm32_thumb(DCCallVM_vt* vt, DCsize size)
-{
-  /* Store at least 16 bytes (4 words) for internal spill area. Assembly code depends on it. */
-  DCCallVM_arm32_thumb* self = (DCCallVM_arm32_thumb*)dcAllocMem(sizeof(DCCallVM_arm32_thumb)+size+16);
-  dc_callvm_base_init(&self->mInterface, vt);
-  dcVecInit(&self->mVecHead, size);
-  return (DCCallVM*)self;
-}
-
-
 static void dc_callvm_free_arm32_thumb(DCCallVM* in_self)
 {
   dcFreeMem(in_self);
@@ -181,7 +171,6 @@ DCCallVM_vt gVT_arm32_thumb =
 , NULL /* callStruct */
 };
 
-
 DCCallVM_vt gVT_arm32_thumb_eabi =
 {
   &dc_callvm_free_arm32_thumb
@@ -210,40 +199,39 @@ DCCallVM_vt gVT_arm32_thumb_eabi =
 , NULL /* callStruct */
 };
 
-
-DCCallVM* dcNewCallVM_arm32_thumb(DCsize size) 
+static void dc_callvm_mode_arm32_thumb(DCCallVM* in_self, DCint mode)
 {
+  DCCallVM_arm32_thumb* self = (DCCallVM_arm32_thumb*)in_self;
+  DCCallVM_vt* vt;
+
+  switch(mode) {
+    case DC_CALL_C_ELLIPSIS:
+    case DC_CALL_C_ELLIPSIS_VARARGS:
 /* Check OS if we need EABI as default. */
 #if defined(DC__ABI_ARM_EABI)
-  return dc_callvm_new_arm32_thumb(&gVT_arm32_thumb_eabi, size);
+    case DC_CALL_C_DEFAULT:        vt = &gVT_arm32_thumb_eabi; break;
 #else
-  return dc_callvm_new_arm32_thumb(&gVT_arm32_thumb, size);
+    case DC_CALL_C_DEFAULT:        vt = &gVT_arm32_thumb;      break;
 #endif
+    case DC_CALL_C_ARM_THUMB:      vt = &gVT_arm32_thumb;      break;
+    case DC_CALL_C_ARM_THUMB_EABI: vt = &gVT_arm32_thumb_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_arm32_thumb(size);
-}
+  /* Store at least 16 bytes (4 words) for internal spill area. Assembly code depends on it. */
+  DCCallVM_arm32_thumb* p = (DCCallVM_arm32_thumb*)dcAllocMem(sizeof(DCCallVM_arm32_thumb)+size+16);
 
+  dc_callvm_mode_arm32_thumb((DCCallVM*)p, DC_CALL_C_DEFAULT);
 
-static void dc_callvm_mode_arm32_thumb(DCCallVM* in_self,DCint mode)
-{
-  DCCallVM_arm32_thumb* self = (DCCallVM_arm32_thumb*) in_self;
-  DCCallVM_vt*  vt;
-  switch(mode) {
-/* Check OS if we need EABI as default. */
-    case DC_CALL_C_ELLIPSIS:
-#if defined(DC__ABI_ARM_EABI)
-    case DC_CALL_C_DEFAULT:          vt = &gVT_arm32_thumb_eabi; break;
-#else
-    case DC_CALL_C_DEFAULT:          vt = &gVT_arm32_thumb;      break;
-#endif
-    case DC_CALL_C_ARM_THUMB:        vt = &gVT_arm32_thumb;      break;
-    case DC_CALL_C_ARM_THUMB_EABI:   vt = &gVT_arm32_thumb_eabi; break;
-    default: self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; return;
-  }
-  self->mInterface.mVTpointer = vt;
+  dcVecInit(&p->mVecHead, size);
+
+  return (DCCallVM*)p;
 }