mirror of
https://github.com/darlinghq/darling-libobjc2.git
synced 2024-12-18 09:36:43 +00:00
144 lines
3.7 KiB
C
144 lines
3.7 KiB
C
#include "visibility.h"
|
|
#include "objc/runtime.h"
|
|
#include "module.h"
|
|
#include "gc_ops.h"
|
|
#include <assert.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
/**
|
|
* The smallest ABI version number of loaded modules.
|
|
*/
|
|
static unsigned long min_loaded_version;
|
|
/**
|
|
* The largest ABI version number of loaded modules.
|
|
*/
|
|
static unsigned long max_loaded_version;
|
|
|
|
/**
|
|
* Structure defining the compatibility between Objective-C ABI versions.
|
|
*/
|
|
struct objc_abi_version
|
|
{
|
|
/** Version of this ABI. */
|
|
unsigned long version;
|
|
/** Lowest ABI version that this is compatible with. */
|
|
unsigned long min_compatible_version;
|
|
/** Highest ABI version compatible with this. */
|
|
unsigned long max_compatible_version;
|
|
/** Size of the module structure for this ABI version. */
|
|
unsigned long module_size;
|
|
};
|
|
|
|
enum
|
|
{
|
|
gcc_abi = 8,
|
|
gnustep_abi = 9,
|
|
gc_abi = 10
|
|
};
|
|
|
|
/**
|
|
* List of supported ABIs.
|
|
*/
|
|
static struct objc_abi_version known_abis[] =
|
|
{
|
|
/* GCC ABI. */
|
|
{gcc_abi, gcc_abi, gnustep_abi, sizeof(struct objc_module_abi_8)},
|
|
/* Non-fragile ABI. */
|
|
{gnustep_abi, gcc_abi, gc_abi, sizeof(struct objc_module_abi_8)},
|
|
/* GC ABI. Adds a field describing the GC mode. */
|
|
{gc_abi, gcc_abi, gc_abi, sizeof(struct objc_module_abi_10)}
|
|
};
|
|
|
|
static int known_abi_count =
|
|
(sizeof(known_abis) / sizeof(struct objc_abi_version));
|
|
|
|
#define FAIL_IF(x, msg) do {\
|
|
if (x)\
|
|
{\
|
|
fprintf(stderr, "Objective-C ABI Error: %s while loading %s\n", msg, module->name);\
|
|
return NO;\
|
|
}\
|
|
} while(0)
|
|
|
|
PRIVATE enum objc_gc_mode current_gc_mode = GC_Optional;
|
|
|
|
static BOOL endsWith(const char *string, const char *suffix)
|
|
{
|
|
if (NULL == string) { return NO; }
|
|
char *interior = strstr(string, suffix);
|
|
return (interior && (strlen(suffix) == strlen(interior)));
|
|
}
|
|
|
|
PRIVATE BOOL objc_check_abi_version(struct objc_module_abi_8 *module)
|
|
{
|
|
static int runtime_modules = 5;
|
|
// As a quick and ugly hack, skip these three tests for the .m files in the
|
|
// runtime. They should (in theory, at least) be aware of the GC mode and
|
|
// behave accordingly.
|
|
if (runtime_modules > 0)
|
|
{
|
|
if (endsWith(module->name, "properties.m") ||
|
|
endsWith(module->name, "associate.m") ||
|
|
endsWith(module->name, "arc.m") ||
|
|
endsWith(module->name, "blocks_runtime.m") ||
|
|
endsWith(module->name, "Protocol2.m"))
|
|
{
|
|
runtime_modules--;
|
|
return YES;
|
|
}
|
|
}
|
|
unsigned long version = module->version;
|
|
unsigned long module_size = module->size;
|
|
enum objc_gc_mode gc_mode = (version < gc_abi) ? GC_None
|
|
: ((struct objc_module_abi_10*)module)->gc_mode;
|
|
struct objc_abi_version *v = NULL;
|
|
for (int i=0 ; i<known_abi_count ; i++)
|
|
{
|
|
if (known_abis[i].version == version)
|
|
{
|
|
v = &known_abis[i];
|
|
break;
|
|
}
|
|
}
|
|
FAIL_IF(NULL == v, "Unknown ABI version");
|
|
FAIL_IF((v->module_size != module_size), "Incorrect module size");
|
|
// Only check for ABI compatibility if
|
|
if (min_loaded_version > 0)
|
|
{
|
|
FAIL_IF((v->min_compatible_version > min_loaded_version),
|
|
"Loading modules from incompatible ABIs");
|
|
FAIL_IF((v->max_compatible_version < max_loaded_version),
|
|
"Loading modules from incompatible ABIs");
|
|
if (min_loaded_version > version)
|
|
{
|
|
min_loaded_version = version;
|
|
}
|
|
if (max_loaded_version < version)
|
|
{
|
|
max_loaded_version = version;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
min_loaded_version = version;
|
|
max_loaded_version = version;
|
|
}
|
|
|
|
// If we're currently in GC-optional mode, then fall to one side or the
|
|
// other if this module requires / doesn't support GC
|
|
if (current_gc_mode == GC_Optional)
|
|
{
|
|
current_gc_mode = gc_mode;
|
|
if (gc_mode == GC_Required)
|
|
{
|
|
enableGC(NO);
|
|
}
|
|
}
|
|
// We can't mix GC_None and GC_Required code, but we can mix any other
|
|
// combination
|
|
FAIL_IF((gc_mode == GC_Required) && (gc_mode != current_gc_mode),
|
|
"Attempting to mix GC and non-GC code!");
|
|
return YES;
|
|
}
|