From: Götz Lindenmaier <goetz@ipd.info.uni-karlsruhe.de>
Date: Thu, 22 May 2003 07:13:00 +0000 (+0000)
Subject: new mode class questioning methods
X-Git-Url: http://nsz.repo.hu/git/?a=commitdiff_plain;h=24489bec611e34019b10ec03b24a12b9fc9b98c6;p=libfirm

new mode class questioning methods

[r1247]
---

diff --git a/ir/ir/irmode.c b/ir/ir/irmode.c
index 0225b0a4d..2a1ca2353 100644
--- a/ir/ir/irmode.c
+++ b/ir/ir/irmode.c
@@ -206,7 +206,7 @@ static ir_mode *register_mode(ir_mode* new_mode)
  */
 ir_mode *new_ir_mode(const char *name, mode_sort sort, int bit_size, int align, int sign)
 {
-  ir_mode mode_tmpl, *res;
+  ir_mode mode_tmpl;
 
   mode_tmpl.name    = new_id_from_str(name);
   mode_tmpl.sort    = sort;
@@ -411,6 +411,20 @@ mode_is_int (ir_mode *mode)
   return (get_mode_sort(mode) == irms_int_number);
 }
 
+int mode_is_character (ir_mode *mode)
+{
+  ANNOUNCE();
+  assert(mode);
+  return (get_mode_sort(mode) == irms_character);
+}
+
+int mode_is_reference (ir_mode *mode)
+{
+  ANNOUNCE();
+  assert(mode);
+  return (get_mode_sort(mode) == irms_reference);
+}
+
 int
 mode_is_num (ir_mode *mode)
 {