Embed core libraries for node.js in libcycript.db.

[cycript.git] / sig / ffi_type.cpp

diff --git a/sig/ffi_type.cpp b/sig/ffi_type.cpp
index 73b3912dcc10038cb473dd30357f25f5c89c2df2..2b6c0d3de61c4d24e701c39fa1dc139716c0096d 100644 (file)
--- a/sig/ffi_type.cpp
+++ b/sig/ffi_type.cpp
@@ -1,5 +1,5 @@
-/* Cycript - Optimizing JavaScript Compiler/Runtime
- * Copyright (C) 2009-2015  Jay Freeman (saurik)
+/* Cycript - The Truly Universal Scripting Language
+ * Copyright (C) 2009-2016  Jay Freeman (saurik)

 */
 
 /* GNU Affero General Public License, Version 3 {{{ */
 */
 
 /* GNU Affero General Public License, Version 3 {{{ */


@@ -24,23 +24,15 @@
 #include "sig/ffi_type.hpp"
 #include "sig/types.hpp"
 
 #include "sig/ffi_type.hpp"
 #include "sig/types.hpp"
 

+#if FFI_LONG_LONG_MAX == 9223372036854775807LL

 #define ffi_type_slonglong ffi_type_sint64
 #define ffi_type_ulonglong ffi_type_uint64
 #define ffi_type_slonglong ffi_type_sint64
 #define ffi_type_ulonglong ffi_type_uint64

+#else
+#error need to configure for long long
+#endif

 
 namespace sig {
 
 
 namespace sig {
 

-void sig_ffi_types(
-    CYPool &pool,
-    const struct Signature *signature,
-    ffi_type **types,
-    size_t skip = 0,
-    size_t offset = 0
-) {
-    _assert(signature->count >= skip);
-    for (size_t index = skip; index != signature->count; ++index)
-        types[index - skip + offset] = signature->elements[index].type->GetFFI(pool);
-}
-

 template <>
 ffi_type *Primitive<bool>::GetFFI(CYPool &pool) const {
     return &ffi_type_uchar;
 template <>
 ffi_type *Primitive<bool>::GetFFI(CYPool &pool) const {
     return &ffi_type_uchar;


@@ -71,6 +63,13 @@ ffi_type *Primitive<signed int>::GetFFI(CYPool &pool) const {
     return &ffi_type_sint;
 }
 
     return &ffi_type_sint;
 }
 

+#ifdef __SIZEOF_INT128__
+template <>
+ffi_type *Primitive<signed __int128>::GetFFI(CYPool &pool) const {
+    _assert(false);
+}
+#endif
+

 template <>
 ffi_type *Primitive<signed long int>::GetFFI(CYPool &pool) const {
     return &ffi_type_slong;
 template <>
 ffi_type *Primitive<signed long int>::GetFFI(CYPool &pool) const {
     return &ffi_type_slong;


@@ -96,6 +95,13 @@ ffi_type *Primitive<unsigned int>::GetFFI(CYPool &pool) const {
     return &ffi_type_uint;
 }
 
     return &ffi_type_uint;
 }
 

+#ifdef __SIZEOF_INT128__
+template <>
+ffi_type *Primitive<unsigned __int128>::GetFFI(CYPool &pool) const {
+    _assert(false);
+}
+#endif
+

 template <>
 ffi_type *Primitive<unsigned long int>::GetFFI(CYPool &pool) const {
     return &ffi_type_ulong;
 template <>
 ffi_type *Primitive<unsigned long int>::GetFFI(CYPool &pool) const {
     return &ffi_type_ulong;


@@ -123,6 +129,7 @@ ffi_type *String::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }
 
     return &ffi_type_pointer;
 }
 

+#ifdef CY_OBJECTIVEC

 ffi_type *Meta::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }
 ffi_type *Meta::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }


@@ -130,6 +137,7 @@ ffi_type *Meta::GetFFI(CYPool &pool) const {
 ffi_type *Selector::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }
 ffi_type *Selector::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }

+#endif

 
 ffi_type *Bits::GetFFI(CYPool &pool) const {
     /* XXX: we can totally make this work */
 
 ffi_type *Bits::GetFFI(CYPool &pool) const {
     /* XXX: we can totally make this work */


@@ -157,9 +165,15 @@ ffi_type *Array::GetFFI(CYPool &pool) const {
     return ffi;
 }
 
     return ffi;
 }
 

+#ifdef CY_OBJECTIVEC

 ffi_type *Object::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }
 ffi_type *Object::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }

+#endif
+
+ffi_type *Enum::GetFFI(CYPool &pool) const {
+    return type.GetFFI(pool);
+}

 
 ffi_type *Aggregate::GetFFI(CYPool &pool) const {
     // XXX: we can totally make overlap work
 
 ffi_type *Aggregate::GetFFI(CYPool &pool) const {
     // XXX: we can totally make overlap work


@@ -170,9 +184,17 @@ ffi_type *Aggregate::GetFFI(CYPool &pool) const {
     ffi->alignment = 0;
     ffi->type = FFI_TYPE_STRUCT;
 
     ffi->alignment = 0;
     ffi->type = FFI_TYPE_STRUCT;
 

-    ffi->elements = new(pool) ffi_type *[signature.count + 1];
-    sig_ffi_types(pool, &signature, ffi->elements);
-    ffi->elements[signature.count] = NULL;
+    if (signature.count == 0) {
+        // https://gcc.gnu.org/ml/gcc-patches/2015-01/msg01286.html
+        ffi->elements = new(pool) ffi_type *[2];
+        ffi->elements[0] = &ffi_type_void;
+        ffi->elements[1] = NULL;
+    } else {
+        ffi->elements = new(pool) ffi_type *[signature.count + 1];
+        for (size_t index(0); index != signature.count; ++index)
+            ffi->elements[index] = signature.elements[index].type->GetFFI(pool);
+        ffi->elements[signature.count] = NULL;
+    }

 
     return ffi;
 }
 
     return ffi;
 }


@@ -181,23 +203,30 @@ ffi_type *Function::GetFFI(CYPool &pool) const {
     _assert(false);
 }
 
     _assert(false);
 }
 

+#ifdef CY_OBJECTIVEC

 ffi_type *Block::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }
 ffi_type *Block::GetFFI(CYPool &pool) const {
     return &ffi_type_pointer;
 }

-
-void sig_ffi_cif(
-    CYPool &pool,
-    struct Signature *signature,
-    ffi_cif *cif,
-    size_t skip,
-    ffi_type **types,
-    size_t offset
-) {
-    if (types == NULL)
-        types = new(pool) ffi_type *[signature->count - 1];
-    ffi_type *type = signature->elements[0].type->GetFFI(pool);
-    sig_ffi_types(pool, signature, types, 1 + skip, offset);
-    ffi_status status = ffi_prep_cif(cif, FFI_DEFAULT_ABI, signature->count - 1 - skip + offset, type, types);
+#endif
+
+void sig_ffi_cif(CYPool &pool, size_t variadic, const Signature &signature, ffi_cif *cif) {
+    _assert(signature.count != 0);
+    size_t count(signature.count - 1);
+    ffi_type *type(signature.elements[0].type->GetFFI(pool));
+
+    ffi_type **types(new(pool) ffi_type *[count]);
+    for (size_t index(0); index != count; ++index)
+        types[index] = signature.elements[index + 1].type->GetFFI(pool);
+
+    ffi_status status;
+#ifdef HAVE_FFI_PREP_CIF_VAR
+    if (variadic == 0)
+#endif
+        status = ffi_prep_cif(cif, FFI_DEFAULT_ABI, count, type, types);
+#ifdef HAVE_FFI_PREP_CIF_VAR
+    else
+        status = ffi_prep_cif_var(cif, FFI_DEFAULT_ABI, variadic - 1, count, type, types);
+#endif

     _assert(status == FFI_OK);
 }
 
     _assert(status == FFI_OK);
 }