assert(res);
}
+static ir_entity *underscore_compilerlib_entity_creator(ident *id, ir_type *mt)
+{
+ ir_entity *entity = new_entity(get_glob_type(), id, mt);
+ ident *ldname = id_mangle3("_", id, "");
+
+ set_entity_visibility(entity, ir_visibility_external);
+ set_entity_ld_ident(entity, ldname);
+
+ return entity;
+}
+
+bool firm_is_unixish_os(const machine_triple_t *machine)
+{
+ const char *os = machine->operating_system;
+ return strstr(os, "linux") != NULL || strstr(os, "bsd") != NULL
+ || strstart(os, "solaris");
+}
+
+bool firm_is_darwin_os(const machine_triple_t *machine)
+{
+ const char *os = machine->operating_system;
+ return strstart(os, "darwin");
+}
+
+bool firm_is_windows_os(const machine_triple_t *machine)
+{
+ const char *os = machine->operating_system;
+ return strstart(os, "mingw") || streq(os, "win32");
+}
+
/**
* Initialize firm codegeneration for a specific operating system.
* The argument is the operating system part of a target-triple
*/
-static bool setup_os_support(const char *os)
+static bool setup_os_support(const machine_triple_t *machine)
{
- if (strstr(os, "linux") != NULL || strstr(os, "bsd") != NULL
- || streq(os, "solaris")) {
+ if (firm_is_unixish_os(machine)) {
set_be_option("ia32-gasmode=elf");
- } else if (streq(os, "darwin")) {
+ } else if (firm_is_darwin_os(machine)) {
set_be_option("ia32-gasmode=macho");
set_be_option("ia32-stackalign=4");
set_be_option("pic=true");
- } else if (strstr(os, "mingw") != NULL || streq(os, "win32")) {
+ set_compilerlib_entity_creator(underscore_compilerlib_entity_creator);
+ } else if (firm_is_windows_os(machine)) {
set_be_option("ia32-gasmode=mingw");
+ set_compilerlib_entity_creator(underscore_compilerlib_entity_creator);
} else {
return false;
}
}
/* process operating system */
- if (!setup_os_support(machine->operating_system)) {
+ if (!setup_os_support(machine)) {
fprintf(stderr, "Unknown operating system '%s' in target-triple\n", machine->operating_system);
return false;
}
machine_triple_t *triple = XMALLOCZ(machine_triple_t);
- size_t cpu_type_len = manufacturer-cpu+1;
+ size_t cpu_type_len = manufacturer-cpu;
triple->cpu_type = XMALLOCN(char, cpu_type_len);
memcpy(triple->cpu_type, cpu, cpu_type_len-1);
triple->cpu_type[cpu_type_len-1] = '\0';
triple->manufacturer = xstrdup("unknown");
os = manufacturer;
} else {
- size_t manufacturer_len = os-manufacturer+1;
+ size_t manufacturer_len = os-manufacturer;
triple->manufacturer = XMALLOCN(char, manufacturer_len);
memcpy(triple->manufacturer, manufacturer, manufacturer_len-1);
triple->manufacturer[manufacturer_len-1] = '\0';