X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fbegnuas.c;h=10798241ece2bcc8221773f8d675873159d6522b;hb=5cb14f12bacb0c7d1c646112b4660d57e14236a2;hp=531e8684917550817f5894072af84e1492a4a90b;hpb=812b05b22c1c41e0f57c65b80feadecc439d8f32;p=libfirm

diff --git a/ir/be/begnuas.c b/ir/be/begnuas.c
index 531e86849..10798241e 100644
--- a/ir/be/begnuas.c
+++ b/ir/be/begnuas.c
@@ -249,31 +249,37 @@ static void dump_arith_tarval(tarval *tv, int bytes)
 		return;
 
 	case 12:
-		be_emit_irprintf("0x%02x%02x%02x%02x%02x%02x%02x%02x"
-		                   "%02x%02x%02x%02x", 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));
+		/* Beware: Mixed endian output!  One little endian number emitted as
+		 * three longs.  Each long initializer is written in big endian. */
+		be_emit_irprintf(
+			"\t.long\t0x%02x%02x%02x%02x\n"
+			"\t.long\t0x%02x%02x%02x%02x\n"
+			"\t.long\t0x%02x%02x%02x%02x",
+			get_tarval_sub_bits(tv,  3), get_tarval_sub_bits(tv,  2),
+			get_tarval_sub_bits(tv,  1), get_tarval_sub_bits(tv,  0),
+			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, 11), get_tarval_sub_bits(tv, 10),
+			get_tarval_sub_bits(tv,  9), get_tarval_sub_bits(tv,  8)
+		);
 		return;
 
 	case 16:
-		be_emit_irprintf("0x%02x%02x%02x%02x%02x%02x%02x%02x"
-				               "%02x%02x%02x%02x%02x%02x%02x%02x",
+		be_emit_irprintf(
+			"\t.long\t0x%02x%02x%02x%02x0x%02x%02x%02x%02x0x%02x%02x%02x%02x0x%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));
+			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)
+		);
 		return;
 	}
 
-	panic("Can't dump a tarval with %d bytes\n", bytes);
+	panic("Can't dump a tarval with %d bytes", bytes);
 }
 
 /**
@@ -495,7 +501,7 @@ static void dump_size_type(size_t size) {
 		break;
 
 	default:
-		panic("Try to dump a type with %u bytes\n", (unsigned) size);
+		panic("Try to dump a type with %u bytes", (unsigned)size);
 	}
 }
 
@@ -806,7 +812,7 @@ static void dump_bitfield(normal_or_bitfield *vals, size_t offset_bits,
 		panic("bitfield initializer is compound");
 	}
 	if (tv == NULL) {
-		panic("Couldn't get numeric value for bitfield initializer\n");
+		panic("Couldn't get numeric value for bitfield initializer");
 	}
 
 	/* normalize offset */
@@ -1050,7 +1056,7 @@ static void dump_compound_init(be_gas_decl_env_t *env, ir_entity *ent)
 			tarval *tv = get_atomic_init_tv(value);
 			unsigned char curr_bits, last_bits = 0;
 			if (tv == NULL) {
-				panic("Couldn't get numeric value for bitfield initializer '%s'\n",
+				panic("Couldn't get numeric value for bitfield initializer '%s'",
 				      get_entity_ld_name(ent));
 			}
 			/* normalize offset */