From: Michael Beck <beck@ipd.info.uni-karlsruhe.de>
Date: Mon, 1 Aug 2005 09:43:19 +0000 (+0000)
Subject: used new new_type_frame() to generate frame types
X-Git-Url: http://nsz.repo.hu/git/?a=commitdiff_plain;h=edbfa5108fb77e85068f0f9d1aba275d7b43419b;p=libfirm

used new new_type_frame() to generate frame types
moved is_frame_type() to type.c

[r6330]
---

diff --git a/ir/ir/irgraph.c b/ir/ir/irgraph.c
index 750fac10b..ca056754b 100644
--- a/ir/ir/irgraph.c
+++ b/ir/ir/irgraph.c
@@ -191,10 +191,7 @@ new_r_ir_graph (entity *ent, int n_loc)
   set_entity_irg(ent, res);
 
   /*--  a class type so that it can contain "inner" methods as in Pascal. --*/
-  res->frame_type = new_type_class(mangle(get_entity_ident(ent), frame_type_suffix));
-
-  /* Remove type from type list.  Must be treated differently than other types. */
-  remove_irp_type_from_list(res->frame_type);
+  res->frame_type = new_type_frame(mangle(get_entity_ident(ent), frame_type_suffix));
 
   /*-- Nodes needed in every graph --*/
   res->end_block  = new_immBlock();
@@ -541,20 +538,6 @@ void
   _set_irg_frame_type(irg, ftp);
 }
 
-
-/* To test for a frame type */
-int
-is_frame_type(const type *ftp) {
-  int i;
-  if (is_Class_type(ftp)) {
-    for (i = 0; i < get_irp_n_irgs(); i++) {
-      const type *frame_tp = get_irg_frame_type(get_irp_irg(i));
-      if (ftp == frame_tp) return true;
-    }
-  }
-  return false;
-}
-
 int
 get_irg_n_locs (ir_graph *irg)
 {