Access routine to tarval

[r423]

diff --git a/ir/tv/tv.c b/ir/tv/tv.c
index a69f45d..e0b825f 100644 (file)
--- a/ir/tv/tv.c
+++ b/ir/tv/tv.c
@@ -1779,9 +1779,20 @@ get_tv_mode (tarval *tv)
   return tv->mode;
 }
 
-
-entity *get_tv_entity(tarval *tv)
-{
-  /*assert(??? && "not a pointer to an entity");*/
-  return tv->u.p.ent;
+/* Returns the entity if the tv is a pointer to an entity, else
+   returns NULL; */
+entity *get_tv_entity(tarval *tv) {
+  entity *ent = NULL;
+
+  if (tv->mode == mode_p) {
+    if (tv->u.p.xname) {
+      assert(0);
+      /* not an entity */
+    } else if (tv->u.p.ent) {
+      ent = tv->u.p.ent;
+    } else {
+      /* not an entity */
+    }
+  }
+  return ent;
 }

diff --git a/ir/tv/tv.h b/ir/tv/tv.h
index b38bdf3..3b17160 100644 (file)
--- a/ir/tv/tv.h
+++ b/ir/tv/tv.h
@@ -208,6 +208,9 @@ void tarval_stats (void);
 #endif
 
 ir_mode *get_tv_mode (tarval *tv);
+/* Returns the entity if the tv is a pointer to an entity, else
+   returns NULL; */
 entity *get_tv_entity(tarval *tv);
 
+
 #endif