".section\t.bss",
".section\t.tbss,\"awT\",@nobits",
".section\t.ctors,\"aw\",@progbits",
+ ".section\t.dtors,\"aw\",@progbits",
NULL, /* no cstring section */
NULL,
NULL
".section\t.bss",
".section\t.tbss,\"awT\",@nobits",
".section\t.ctors,\"aw\",@progbits",
+ ".section\t.dtors,\"aw\",@progbits",
NULL,
NULL,
NULL
".section\t.bss",
".section\t.tbss,\"awT\",@nobits",
".section\t.ctors,\"aw\",@progbits",
+ ".section\t.dtors,\"aw\",@progbits",
NULL,
NULL,
NULL
".data",
NULL, /* TLS is not supported on Mach-O */
".mod_init_func",
+ NULL, /* TODO: how is this called? */
".cstring",
".section\t__IMPORT,__jump_table,symbol_stubs,self_modifying_code+pure_instructions,5",
".section\t__IMPORT,__pointers,non_lazy_symbol_pointers"
/**
* Return the label prefix for labeled blocks.
*/
-const char *be_gas_label_prefix(void) {
+const char *be_gas_block_label_prefix(void) {
return ".LG";
}
+/**
+ * Return the label prefix for labeled instructions.
+ */
+const char *be_gas_insn_label_prefix(void) {
+ return ".LE";
+}
+
/**
* Dump a label.
*/
static void dump_label(ir_label_t label) {
- be_emit_irprintf("%s%ld", be_gas_label_prefix(), label);
+ be_emit_irprintf("%s%lu", be_gas_block_label_prefix(), label);
}
/**
return;
case iro_Add:
+ if (!mode_is_int(mode) && !mode_is_reference(mode)) {
+ panic("Constant must be int or pointer for '+' to work");
+ }
do_dump_atomic_init(env, get_Add_left(init));
be_emit_cstring(" + ");
do_dump_atomic_init(env, get_Add_right(init));
return;
case iro_Sub:
+ if (!mode_is_int(mode) && !mode_is_reference(mode)) {
+ panic("Constant must be int or pointer for '-' to work");
+ }
do_dump_atomic_init(env, get_Sub_left(init));
be_emit_cstring(" - ");
do_dump_atomic_init(env, get_Sub_right(init));
return;
case iro_Mul:
+ if (!mode_is_int(mode) && !mode_is_reference(mode)) {
+ panic("Constant must be int or pointer for '*' to work");
+ }
do_dump_atomic_init(env, get_Mul_left(init));
be_emit_cstring(" * ");
do_dump_atomic_init(env, get_Mul_right(init));
/* now write values sorted */
for (k = 0; k < size; ) {
- int space = 0, skip = 0;
+ int space = 0;
+ int elem_size = 1;
if (vals[k].kind == NORMAL) {
if(vals[k].v.value != NULL) {
dump_atomic_init(env, vals[k].v.value);
- skip = get_mode_size_bytes(get_irn_mode(vals[k].v.value)) - 1;
+ elem_size = get_mode_size_bytes(get_irn_mode(vals[k].v.value));
} else {
- space = 1;
+ elem_size = 0;
}
} else if(vals[k].kind == TARVAL) {
tarval *tv = vals[k].v.tarval;
assert(tv != NULL);
- skip = size - 1;
+ elem_size = size;
dump_size_type(size);
dump_arith_tarval(tv, size);
be_emit_char('\n');
be_emit_write_line();
}
- ++k;
+ k += elem_size;
while (k < size && vals[k].kind == NORMAL && vals[k].v.value == NULL) {
++space;
++k;
}
- space -= skip;
- assert(space >= 0);
/* a gap */
if (space > 0) {
be_gas_dump_globals(get_glob_type(), &env, only_emit_marked_entities);
env.section = GAS_SECTION_TLS;
be_gas_dump_globals(get_tls_type(), &env, only_emit_marked_entities);
- env.section = GAS_SECTION_CTOR;
- be_gas_dump_globals(get_constructors_type(), &env,
+ env.section = GAS_SECTION_CONSTRUCTORS;
+ be_gas_dump_globals(get_segment_type(IR_SEGMENT_CONSTRUCTORS), &env,
+ only_emit_marked_entities);
+ env.section = GAS_SECTION_DESTRUCTORS;
+ be_gas_dump_globals(get_segment_type(IR_SEGMENT_DESTRUCTORS), &env,
only_emit_marked_entities);
+
env.section = GAS_SECTION_PIC_SYMBOLS;
be_gas_dump_globals(main_env->pic_symbols_type, &env,
only_emit_marked_entities);