-/* 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 {{{ */
#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
+#else
+#error need to configure for long long
+#endif
namespace sig {
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;
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;
return &ffi_type_pointer;
}
+#ifdef CY_OBJECTIVEC
ffi_type *Meta::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 */
return ffi;
}
+#ifdef CY_OBJECTIVEC
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
_assert(!overlap);
+ _assert(signature.count != _not(size_t));
ffi_type *ffi(new(pool) ffi_type());
ffi->size = 0;
ffi->alignment = 0;
ffi->type = FFI_TYPE_STRUCT;
- 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;
+ 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;
}
_assert(false);
}
+#ifdef CY_OBJECTIVEC
ffi_type *Block::GetFFI(CYPool &pool) const {
return &ffi_type_pointer;
}
+#endif
void sig_ffi_cif(CYPool &pool, size_t variadic, const Signature &signature, ffi_cif *cif) {
_assert(signature.count != 0);