remove old debug printf

[libfirm] / ir / be / ia32 / ia32_gen_decls.c

diff --git a/ir/be/ia32/ia32_gen_decls.c b/ir/be/ia32/ia32_gen_decls.c
index 26427e3..6f0da99 100644 (file)
--- a/ir/be/ia32/ia32_gen_decls.c
+++ b/ir/be/ia32/ia32_gen_decls.c
@@ -68,6 +68,20 @@ static void dump_arith_tarval(obstack_t *obst, tarval *tv, int bytes)
        case 12:
                break;
 
+       case 16:
+               obstack_printf(obst, "0x%02x%02x%02x%02x%02x%02x%02x%02x"
+                                              "%02x%02x%02x%02x%02x%02x%02x%02x",
+                       get_tarval_sub_bits(tv, 15), get_tarval_sub_bits(tv, 16),
+                       get_tarval_sub_bits(tv, 13), get_tarval_sub_bits(tv, 12),
+                       get_tarval_sub_bits(tv, 11), get_tarval_sub_bits(tv, 10),
+                       get_tarval_sub_bits(tv, 9), get_tarval_sub_bits(tv, 8),
+                       get_tarval_sub_bits(tv, 7), get_tarval_sub_bits(tv, 6),
+                       get_tarval_sub_bits(tv, 5), get_tarval_sub_bits(tv, 4),
+                       get_tarval_sub_bits(tv, 3), get_tarval_sub_bits(tv, 2),
+                       get_tarval_sub_bits(tv, 1), get_tarval_sub_bits(tv, 0));
+               break;
+
+
        default:
                fprintf(stderr, "Try to dump an tarval with %d bytes\n", bytes);
                assert(0);
@@ -227,6 +241,10 @@ static void dump_size_type(obstack_t *obst, int size) {
                /* handled in arith */
                break;
 
+       case 16:
+               obstack_printf(obst, "\t.octa\t");
+               break;
+
        default:
                fprintf(stderr, "Try to dump a type with %d bytes\n", size);
                assert(0);
@@ -519,7 +537,8 @@ static void dump_global(ia32_decl_env_t *env, ir_entity *ent)
        be_dbg_variable(env->main_env->db_handle, obst, ent);
 
        /* global or not global */
-       if(visibility == visibility_external_visible) {
+       if(visibility == visibility_external_visible
+                       && variability != variability_uninitialized) {
                obstack_printf(obst, ".global\t%s\n", ld_name);
        } else if(visibility == visibility_external_allocated) {
                obstack_printf(obst, ".global\t%s\n", ld_name);
@@ -527,14 +546,17 @@ static void dump_global(ia32_decl_env_t *env, ir_entity *ent)
                return;
        }
        /* alignment */
-       if(align > 1) {
+       if(align > 1 && variability != variability_uninitialized) {
                obstack_printf(obst, ".balign\t%d\n", align);
        }
 
-       obstack_printf(obst, "%s:\n", ld_name);
+       if(variability != variability_uninitialized) {
+               obstack_printf(obst, "%s:\n", ld_name);
+       }
 
        if (variability == variability_uninitialized) {
-               obstack_printf(obst, "\t.zero %d\n", get_type_size_bytes(type));
+               obstack_printf(obst, "\t.comm %s,%d,%d\n",
+                               ld_name, get_type_size_bytes(type), align);
        } else if (is_atomic_type(type)) {
                dump_atomic_init(obst, get_atomic_ent_value(ent));
        } else if (ent_is_string_const(ent)) {