From: Michael Beck <beck@ipd.info.uni-karlsruhe.de>
Date: Tue, 31 Jul 2007 15:19:38 +0000 (+0000)
Subject: fixed new_tarval_from_long() (added missing sign extend), classify_tarval(), unsigned... 
X-Git-Url: http://nsz.repo.hu/git/?a=commitdiff_plain;ds=sidebyside;h=1bdd3d86e40fa61360df9ecd05983b38a77d7f99;hp=aaa1f103ece7240b243d740b98f23cc81d3f8a35;p=libfirm

fixed new_tarval_from_long() (added missing sign extend), classify_tarval(), unsigned integer modes have minus_one_tarval()

[r15391]
---

diff --git a/ir/tv/tv.c b/ir/tv/tv.c
index 2daab3ace..ca2165b2c 100644
--- a/ir/tv/tv.c
+++ b/ir/tv/tv.c
@@ -315,6 +315,7 @@ tarval *new_tarval_from_long(long l, ir_mode *mode) {
 		/* same as integer modes */
 	case irms_int_number:
 		sc_val_from_long(l, NULL);
+		sign_extend(sc_get_buffer(), mode);
 		return get_tarval(sc_get_buffer(), sc_get_buffer_length(), mode);
 
 	case irms_float_number:
@@ -574,7 +575,7 @@ tarval *get_tarval_minus_one(ir_mode *mode) {
 		return mode_is_signed(mode) ? new_tarval_from_double(-1.0, mode) : tarval_bad;
 
 	case irms_int_number:
-		return mode_is_signed(mode) ? new_tarval_from_long(-1l, mode) : tarval_bad;
+		return new_tarval_from_long(-1l, mode);
 	}
 	return tarval_bad;
 }
@@ -1528,7 +1529,7 @@ tarval_classification_t classify_tarval(tarval *tv) {
 	else if (tv == get_mode_one(tv->mode))
 		return TV_CLASSIFY_ONE;
 	else if ((get_mode_sort(tv->mode) == irms_int_number)
-		&& (tv == new_tarval_from_long(-1, tv->mode)))
+		&& (tv == get_mode_minus_one(tv->mode)))
 		return TV_CLASSIFY_ALL_ONE;
 
 	return TV_CLASSIFY_OTHER;