From: Michael Beck <beck@ipd.info.uni-karlsruhe.de>
Date: Tue, 1 Apr 2003 16:04:31 +0000 (+0000)
Subject: Fixed tarval_is_negative()
X-Git-Url: http://nsz.repo.hu/git/?a=commitdiff_plain;h=50d4d09309af342606d9adabe079ba79aa2cd138;p=libfirm

Fixed tarval_is_negative()

[r1019]
---

diff --git a/ir/tv/tv.c b/ir/tv/tv.c
index 5b816465d..0eab0eaa9 100644
--- a/ir/tv/tv.c
+++ b/ir/tv/tv.c
@@ -537,10 +537,11 @@ int tarval_is_negative(tarval *a)
   {
     case int_number:
       if (!mode_is_signed(a->mode)) return 0;
-      else return sc_comp(a->value, get_mode_null(a->mode)->value);
+      else
+	return sc_comp(a->value, get_mode_null(a->mode)->value) == -1 ? 1 : 0;
 
     case float_number:
-      return fc_comp(a->value, get_mode_null(a->mode)->value);
+      return fc_comp(a->value, get_mode_null(a->mode)->value) == -1 ? 1 : 0;
 
     default:
       assert(0 && "not implemented");