From 1e1770d41dd5b5fdbdcc65d44d3fd6c5b05c8fc9 Mon Sep 17 00:00:00 2001
From: Michael Beck <beck@ipd.info.uni-karlsruhe.de>
Date: Thu, 27 Nov 2003 15:35:51 +0000
Subject: [PATCH] Added tarval_is_one function

[r2129]
---
 ir/tv/tv.c | 10 ++++++++++
 ir/tv/tv.h |  7 +++++++
 2 files changed, 17 insertions(+)

diff --git a/ir/tv/tv.c b/ir/tv/tv.c
index d7eaea1fb..641d967f3 100644
--- a/ir/tv/tv.c
+++ b/ir/tv/tv.c
@@ -719,6 +719,16 @@ int tarval_is_null(tarval *a)
   return a == get_tarval_null(m);
 }
 
+/*
+ * test if one, 1 means 'yes'
+ */
+int tarval_is_one(tarval *a)
+{
+  ir_mode *m = get_tarval_mode(a);
+
+  return a == get_tarval_one(m);
+}
+
 /*
  * comparison
  */
diff --git a/ir/tv/tv.h b/ir/tv/tv.h
index a90f1826d..d56ab44bd 100644
--- a/ir/tv/tv.h
+++ b/ir/tv/tv.h
@@ -276,6 +276,13 @@ int tarval_is_negative(tarval *a);
  */
 int tarval_is_null(tarval *a);
 
+/**
+ * Returns 1 if tv is the "one"
+ *
+ * @param a	the tarval
+ */
+int tarval_is_one(tarval *a);
+
 /** The 'bad' tarval. */
 extern tarval *tarval_bad;
 /** Returns the 'bad tarval. */
-- 
2.20.1