X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firmode.c;h=49c14ac13804881a01f05395b15f9302aacbbc74;hb=69d11aa49aa17358468bbb2f5506ef5f009514e9;hp=da2171c444ab818c8ad88ab51a1ab5b32fa15c26;hpb=64d71aea0b14b42c3016ef251cc4b6f48003b2f7;p=libfirm

diff --git a/ir/ir/irmode.c b/ir/ir/irmode.c
index da2171c44..49c14ac13 100644
--- a/ir/ir/irmode.c
+++ b/ir/ir/irmode.c
@@ -49,6 +49,22 @@ static int num_modes = 0;
 /** The list of all currently existing modes. */
 static ir_mode **mode_list;
 
+const char *get_mode_arithmetic_name(ir_mode_arithmetic ari)
+{
+#define X(a)    case a: return #a
+	switch (ari) {
+		X(irma_uninitialized);
+		X(irma_none);
+		X(irma_twos_complement);
+		X(irma_ones_complement);
+		X(irma_int_BCD);
+		X(irma_ieee754);
+		X(irma_float_BCD);
+		default: return "<unknown>";
+	}
+#undef X
+}
+
 /**
  * Compare modes that don't need to have their code field
  * correctly set
@@ -467,11 +483,8 @@ tarval *get_mode_NAN(ir_mode *mode) {
 	return get_tarval_nan(mode);
 }
 
-int is_mode(void *thing) {
-	if (get_kind(thing) == k_ir_mode)
-		return 1;
-	else
-		return 0;
+int is_mode(const void *thing) {
+	return get_kind(thing) == k_ir_mode;
 }
 
 int (mode_is_signed)(const ir_mode *mode) {
@@ -572,7 +585,7 @@ int smaller_mode(const ir_mode *sm, const ir_mode *lm) {
 		break;
 
 	case irms_reference:
-		/* do exist machines out there with different pointer lenghts ?*/
+		/* do exist machines out there with different pointer lengths ?*/
 		return 0;
 
 	case irms_internal_boolean:
@@ -745,7 +758,9 @@ void init_mode(void) {
 	newmode.name    = new_id_from_chars("E", 1);
 	newmode.code    = irm_E;
 	newmode.sign    = 1;
-	newmode.size    = 80;
+	/* note that the tarval module is calculating with 80 bits, but we use
+	 * 96 bits, as that is what will be stored to memory by most hardware */
+	newmode.size    = 96;
 
 	mode_E = register_mode(&newmode);