return res;
}
-static void ia32_dump_comm(obstack_t *obst, const char *name, visibility vis, int size, int align) {
+static void ia32_dump_comm(obstack_t *obst, const char *name, ir_visibility vis, int size, int align) {
switch (asm_flavour) {
case ASM_LINUX_GAS:
if (vis == visibility_local)
else
obstack_printf(obst, "\t.comm\t%s,%d\n", name, size);
break;
+ default:
+ break;
}
}
obstack_printf(obst, "\t.type\t%s,@object\n", name);
obstack_printf(obst, "\t.size\t%s,%d\n", name, size);
break;
+ default:
+ break;
}
}
* Dumps the initialization of global variables that are not
* "uninitialized".
*/
-static void dump_global(const arch_env_t *arch_env,
+static void dump_global(const be_main_env_t *main_env,
obstack_t *rdata_obstack, obstack_t *data_obstack,
obstack_t *comm_obstack, obstack_t *ctor_obstack,
entity *ent)
const char *ld_name = get_entity_ld_name(ent);
obstack_t *obst = data_obstack;
int align, h;
+ const arch_env_t *arch_env = main_env->arch_env;
/*
* FIXME: did NOT work for partly constant values
*/
if (! is_Method_type(ty)) {
- ent_variability variability = get_entity_variability(ent);
- visibility visibility = get_entity_visibility(ent);
+ ir_variability variability = get_entity_variability(ent);
+ ir_visibility visibility = get_entity_visibility(ent);
if (variability == variability_constant) {
/* a constant entity, put it on the rdata */
/* check, whether it is initialized, if yes create data */
if (variability != variability_uninitialized) {
+ be_dbg_global(main_env->db_handle, obst, ent);
+
if (visibility == visibility_external_visible) {
obstack_printf(obst, ".globl\t%s\n", ld_name);
}
obstack_printf(obst, "\n");
}
else if (visibility != visibility_external_allocated) {
+ be_dbg_global(main_env->db_handle, comm_obstack, ent);
+
/* uninitialized and NOT external */
if (get_entity_owner(ent) != get_tls_type()) {
/* calculate the alignment */
} else {
/* TLS */
if (visibility == visibility_external_visible) {
- obstack_printf(obst, ".globl\t%s\n", ld_name);
+ obstack_printf(comm_obstack, ".globl\t%s\n", ld_name);
}
dump_object_size(comm_obstack, ld_name, get_type_size_bytes(ty));
align = get_type_alignment_bytes(ty);
- ia32_dump_align(obst, align);
+ ia32_dump_align(comm_obstack, align);
obstack_printf(comm_obstack, "%s:\n\t.zero %d\n", ld_name, get_type_size_bytes(ty));
}
}
int i, n = get_compound_n_members(gt);
for (i = 0; i < n; i++)
- dump_global(env->main_env->arch_env, env->rodata_obst, env->data_obst, env->comm_obst, env->ctor_obst,
+ dump_global(env->main_env, env->rodata_obst, env->data_obst, env->comm_obst, env->ctor_obst,
get_compound_member(gt, i));
}