rbdc 0.8.7 → 0.9.0

data/dyncall/dyncall/dyncall_call_sparc.S

@@ -6,7 +6,7 @@
  Description: Call kernel for sparc processor architecture.
  License:
 
-   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2011-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
@@ -24,6 +24,7 @@
 
 
 
+
 /* --------------------------------------------------------------------------- 
 
 call kernel for sparc 32-bit

data/dyncall/dyncall/dyncall_call_sparc.h

@@ -6,7 +6,7 @@
  Description: 
  License:
 
-   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2011-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
@@ -23,6 +23,7 @@
 */
 
 
+
 #ifndef DYNCALL_CALL_SPARC_H
 #define DYNCALL_CALL_SPARC_H
 

data/dyncall/dyncall/dyncall_call_sparc64.S

@@ -6,7 +6,7 @@
  Description: Call kernel for sparc64 v9 ABI.
  License:
 
-   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2011-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
@@ -24,6 +24,7 @@
 
 
 
+
 /* --------------------------------------------------------------------------- 
 
 call kernel for sparc64 v9 abi

data/dyncall/dyncall/dyncall_call_sparc64.h

@@ -6,7 +6,7 @@
  Description: 
  License:
 
-   Copyright (c) 2011 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2011-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
@@ -23,6 +23,7 @@
 */
 
 
+
 #ifndef DYNCALL_CALL_SPARC64_H
 #define DYNCALL_CALL_SPARC64_H
 

data/dyncall/dyncall/dyncall_call_sparc_v9.S

@@ -1,3 +1,28 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_sparc_v9.S
+ Description: Call kernel for sparc64 v9 ABI.
+ License:
+
+   Copyright (c) 2011-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.
+
+*/
+
+
 #define BIAS 2047
 .global dcCall_v9
 	/* dcCall_sparc64( DCCallVM* , void * target ) */ 
@@ -171,29 +196,6 @@ Input:
   i1   size
   i2   data
 
-*/
-/*
-
- Package: dyncall
- Library: dyncall
- File: dyncall/dyncall_call_sparc64.S
- Description: Call kernel for sparc64 v9 ABI.
- License:
-
-   Copyright (c) 2011-2013 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.
-
 */
 
 #if 0

data/dyncall/dyncall/dyncall_call_sparc_v9.h

@@ -6,7 +6,7 @@
  Description: 
  License:
 
-   Copyright (c) 2011-2013 Daniel Adler <dadler@uni-goettingen.de>
+   Copyright (c) 2011-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
@@ -23,6 +23,7 @@
 */
 
 
+
 #ifndef DYNCALL_CALL_SPARC_V9_H
 #define DYNCALL_CALL_SPARC_V9_H
 

data/dyncall/dyncall/dyncall_call_x64-att.S

@@ -6,7 +6,7 @@
  Description: All x64 abi call kernel 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 "../portasm/portasm-x64-att.S"
 
 BEGIN_ASM

data/dyncall/dyncall/dyncall_call_x64.S

@@ -6,7 +6,7 @@
  Description: All x64 abi call kernel 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 "../portasm/portasm-x64.S"
 
 BEGIN_ASM

data/dyncall/dyncall/dyncall_call_x64.h

@@ -6,7 +6,7 @@
  Description: 
  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 @@
 */
 
 
+
 /*
 
   dyncall x64

data/dyncall/dyncall/dyncall_call_x86.S

@@ -6,7 +6,7 @@
  Description: All - except Plan9 - x86 abi call kernel 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 "../portasm/portasm-x86.S"
 BEGIN_ASM
 /* ============================================================================

data/dyncall/dyncall/dyncall_call_x86.h

@@ -6,7 +6,7 @@
  Description: heap memory management interface (header only)
  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 @@
 */
 
 
+
 /*
 
   dyncall 32bit Intel x86 family interface

data/dyncall/dyncall/dyncall_callf.c

@@ -6,7 +6,7 @@
  Description: formatted call C interface (extension module)
  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,81 +24,71 @@
 */
 
 
+
 #include "dyncall_callf.h"
 
-void dcVCallF(DCCallVM* vm, DCValue* result, DCpointer funcptr, const DCsigchar* signature, va_list args)
+
+// Shareable implementation for argument binding used in ArgF and CallF  below.
+static void dcArgF_impl(DCCallVM* vm, const DCsigchar** sigptr, va_list args)
 {
-  const DCsigchar* ptr = signature;
   DCsigchar ch;
   dcReset(vm);
-  while ( (ch=*ptr++) != '\0' && ch != DC_SIGCHAR_ENDARG) {
-
+  while((ch=*(*sigptr)++) != '\0' && ch != DC_SIGCHAR_ENDARG) {
     switch(ch) {
-      case DC_SIGCHAR_BOOL: 
-        dcArgBool      (vm, (DCbool)       va_arg( args, DCint  ) ); 
-        break;
-      case DC_SIGCHAR_CHAR:
-        dcArgChar      (vm, (DCchar)       va_arg( args, DCint  ) );
-        break;
-      case DC_SIGCHAR_UCHAR:
-        dcArgChar      (vm, (DCchar) (DCuchar)      va_arg( args, DCint  ) );
-        break;
-      case DC_SIGCHAR_SHORT:
-        dcArgShort     (vm, (DCshort)      va_arg( args, DCint  ) );
-        break;
-      case DC_SIGCHAR_USHORT:
-        dcArgShort     (vm, (DCshort) (DCushort)     va_arg( args, DCint  ) );
-        break;
-      case DC_SIGCHAR_INT:
-        dcArgInt       (vm, (DCint)        va_arg( args, DCint  ) );
-        break;
-      case DC_SIGCHAR_UINT:
-        dcArgInt       (vm, (DCint) (DCuint)       va_arg( args, DCint  ) );
-        break;
-      case DC_SIGCHAR_LONG:
-        dcArgLong      (vm, (DClong)       va_arg( args, DClong ) );
-        break;
-      case DC_SIGCHAR_ULONG:
-        dcArgLong      (vm, (DCulong)      va_arg( args, DClong ) );
-        break;
-      case DC_SIGCHAR_LONGLONG:
-        dcArgLongLong  (vm, (DClonglong)   va_arg( args, DClonglong ) );
-        break;
-      case DC_SIGCHAR_ULONGLONG:
-        dcArgLongLong  (vm, (DCulonglong)  va_arg( args, DClonglong ) );
-        break;
-      case DC_SIGCHAR_FLOAT:
-        dcArgFloat     (vm, (DCfloat)      va_arg( args, DCdouble ) );
-        break;
-      case DC_SIGCHAR_DOUBLE:
-        dcArgDouble    (vm, (DCdouble)     va_arg( args, DCdouble ) );
-        break;
-      case DC_SIGCHAR_POINTER:
-        dcArgPointer   (vm, (DCpointer)    va_arg( args, DCpointer ) );
-        break;
-      case DC_SIGCHAR_STRING:
-        dcArgPointer   (vm, (DCpointer)    va_arg( args, DCpointer ) );
-        break;
+      case DC_SIGCHAR_BOOL:      dcArgBool    (vm, (DCbool)           va_arg(args, DCint     )); break;
+      case DC_SIGCHAR_CHAR:      dcArgChar    (vm, (DCchar)           va_arg(args, DCint     )); break;
+      case DC_SIGCHAR_UCHAR:     dcArgChar    (vm, (DCchar)(DCuchar)  va_arg(args, DCint     )); break;
+      case DC_SIGCHAR_SHORT:     dcArgShort   (vm, (DCshort)          va_arg(args, DCint     )); break;
+      case DC_SIGCHAR_USHORT:    dcArgShort   (vm, (DCshort)(DCushort)va_arg(args, DCint     )); break;
+      case DC_SIGCHAR_INT:       dcArgInt     (vm, (DCint)            va_arg(args, DCint     )); break;
+      case DC_SIGCHAR_UINT:      dcArgInt     (vm, (DCint)(DCuint)    va_arg(args, DCint     )); break;
+      case DC_SIGCHAR_LONG:      dcArgLong    (vm, (DClong)           va_arg(args, DClong    )); break;
+      case DC_SIGCHAR_ULONG:     dcArgLong    (vm, (DCulong)          va_arg(args, DClong    )); break;
+      case DC_SIGCHAR_LONGLONG:  dcArgLongLong(vm, (DClonglong)       va_arg(args, DClonglong)); break;
+      case DC_SIGCHAR_ULONGLONG: dcArgLongLong(vm, (DCulonglong)      va_arg(args, DClonglong)); break;
+      case DC_SIGCHAR_FLOAT:     dcArgFloat   (vm, (DCfloat)          va_arg(args, DCdouble  )); break;
+      case DC_SIGCHAR_DOUBLE:    dcArgDouble  (vm, (DCdouble)         va_arg(args, DCdouble  )); break;
+      case DC_SIGCHAR_POINTER:   dcArgPointer (vm, (DCpointer)        va_arg(args, DCpointer )); break;
+      case DC_SIGCHAR_STRING:    dcArgPointer (vm, (DCpointer)        va_arg(args, DCpointer )); break;
     }
   }
+}
+
+void dcVArgF(DCCallVM* vm, const DCsigchar* signature, va_list args)
+{
+  dcArgF_impl(vm, &signature, args);
+}
+
+void dcArgF(DCCallVM* vm, const DCsigchar* signature, ...)
+{
+  va_list va;
+  va_start(va, signature);
+  dcVArgF(vm,signature,va);
+  va_end(va);
+}
+
+void dcVCallF(DCCallVM* vm, DCValue* result, DCpointer funcptr, const DCsigchar* signature, va_list args)
+{
+  const DCsigchar* ptr = signature;
+  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 = dcCallPointer      (vm,funcptr); break;
   }
 }
 

data/dyncall/dyncall/dyncall_callf.h

@@ -6,7 +6,7 @@
  Description: formatted call interface to dyncall
  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 @@
 */
 
 
+
 /*
 
   dyncall formatted calls C API
@@ -45,6 +46,9 @@
 
 #include <stdarg.h>
 
+void dcArgF (DCCallVM* vm, const DCsigchar* signature, ...);
+void dcVArgF(DCCallVM* vm, const DCsigchar* signature, va_list args);
+
 void dcCallF (DCCallVM* vm, DCValue* result, DCpointer funcptr, const DCsigchar* signature, ...);
 void dcVCallF(DCCallVM* vm, DCValue* result, DCpointer funcptr, const DCsigchar* signature, va_list args);
 

data/dyncall/dyncall/dyncall_callvm.c

@@ -6,7 +6,7 @@
  Description: auto-select default callvm (includes other C sources).
  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,13 +24,14 @@
 */
 
 
+
 #include "dyncall_macros.h"
 
 #if defined(DC__Arch_Intel_x86)
 #  include "dyncall_callvm_x86.c"
 #elif defined(DC__Arch_AMD64)
 #  include "dyncall_callvm_x64.c"
-#elif defined(DC__Arch_PowerPC)
+#elif defined(DC__Arch_PPC32)
 #  include "dyncall_callvm_ppc32.c"
 #elif defined(DC__Arch_PPC64)
 #  include "dyncall_callvm_ppc64.c"
@@ -58,10 +59,18 @@
 #  else
 #    include "dyncall_callvm_arm32_thumb.c"
 #  endif
+#elif defined(DC__Arch_ARM64)
+#  if defined(DC__OS_Darwin)
+#    include "dyncall_callvm_arm64_apple.c"
+#  else
+#    include "dyncall_callvm_arm64.c"
+#  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_RiscV)
+#  include "dyncall_callvm_riscv.c"
 #else
 #  error unsupported platform
 #endif

data/dyncall/dyncall/dyncall_callvm.h

@@ -6,7 +6,7 @@
  Description: Common call vm binary 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
@@ -24,6 +24,7 @@
 */
 
 
+
 #ifndef DYNCALL_CALLVM_H
 #define DYNCALL_CALLVM_H