X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firgraph.c;h=ab3ad64e71ecb7aa4a5a4b394cb2d9f560df9a01;hb=f9d25133f86594ca2b1f33fb0b41a591ecc9b914;hp=68cf7830e4f2543e487139be80ddf7b9e8113d69;hpb=d8ee88d9906a7df2fbc987c8e2097f479d23f1d3;p=libfirm

diff --git a/ir/ir/irgraph.c b/ir/ir/irgraph.c
index 68cf7830e..ab3ad64e7 100644
--- a/ir/ir/irgraph.c
+++ b/ir/ir/irgraph.c
@@ -79,10 +79,24 @@ void (set_interprocedural_view)(int state) {
 /** contains the suffix for frame type names */
 static ident *frame_type_suffix = NULL;
 
+/** The default firm calling convention mask. */
+static unsigned firm_default_cc_mask = 0;
+
 /* initialize the IR graph module */
-void init_irgraph(void) {
+void firm_init_irgraph(unsigned default_cc_mask) {
   frame_type_suffix = new_id_from_str(FRAME_TP_SUFFIX);
-	forbid_new_data = 1;
+	forbid_new_data   = 1;
+  firm_default_cc_mask = default_cc_mask;
+}
+
+/* Gets the default calling convention for new constructed graphs. */
+unsigned get_firm_default_calling_convention(void) {
+  return firm_default_cc_mask;
+}
+
+/* Sets the default calling convention for new constructed graphs. */
+void set_firm_default_calling_convention(unsigned cc_mask) {
+  firm_default_cc_mask = cc_mask;
 }
 
 /**
@@ -176,25 +190,28 @@ new_r_ir_graph (entity *ent, int n_loc)
                        iropt.c */
   res->outs = NULL;
 
-  res->phase_state      = phase_building;
+  res->inline_property       = irg_inline_any;
+  res->additional_properties = 0;
+
+  res->phase_state         = phase_building;
   res->op_pin_state_pinned = op_pin_state_pinned;
-  res->outs_state       = outs_none;
-  res->dom_state        = dom_none;
-  res->typeinfo_state   = ir_typeinfo_none;
+  res->outs_state          = outs_none;
+  res->dom_state           = dom_none;
+  res->typeinfo_state      = ir_typeinfo_none;
   set_irp_typeinfo_inconsistent();           /* there is a new graph with typeinfo_none. */
-  res->loopinfo_state   = loopinfo_none;
-  res->class_cast_state = ir_class_casts_transitive;
-  res->extblk_state     = ir_extblk_info_none;
+  res->callee_info_state   = irg_callee_info_none;
+  res->loopinfo_state      = loopinfo_none;
+  res->execfreq_state      = exec_freq_none;
+  res->class_cast_state    = ir_class_casts_transitive;
+  res->extblk_state        = ir_extblk_info_none;
+  res->calling_conv        = get_firm_default_calling_convention();
 
   /*-- Type information for the procedure of the graph --*/
   res->ent = ent;
   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();
@@ -209,8 +226,8 @@ new_r_ir_graph (entity *ent, int n_loc)
 
   /* Proj results of start node */
   projX            = new_Proj (res->start, mode_X, pn_Start_X_initial_exec);
-  res->frame       = new_Proj (res->start, mode_P_mach, pn_Start_P_frame_base);
-  res->globals     = new_Proj (res->start, mode_P_mach, pn_Start_P_globals);
+  res->frame       = new_Proj (res->start, mode_P_data, pn_Start_P_frame_base);
+  res->globals     = new_Proj (res->start, mode_P_data, pn_Start_P_globals);
   res->initial_mem = new_Proj (res->start, mode_M, pn_Start_M);
   res->args        = new_Proj (res->start, mode_T, pn_Start_T_args);
 #ifdef DEBUG_libfirm
@@ -327,7 +344,7 @@ void free_ir_graph (ir_graph *irg) {
   assert(is_ir_graph(irg));
 
   hook_free_graph(irg);
-  if (irg->outs_state != outs_none) free_outs(irg);
+  if (irg->outs_state != outs_none) free_irg_outs(irg);
   if (irg->frame_type)  free_type(irg->frame_type);
   if (irg->value_table) del_identities(irg->value_table);
   if (irg->ent) {
@@ -532,7 +549,7 @@ void
 }
 
 type *
-(get_irg_frame_type)(const ir_graph *irg) {
+(get_irg_frame_type)(ir_graph *irg) {
   return _get_irg_frame_type(irg);
 }
 
@@ -541,20 +558,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)
 {
@@ -652,6 +655,15 @@ void
   _set_irg_loopinfo_inconsistent(irg);
 }
 
+void set_irp_loopinfo_inconsistent(void) {
+  int i, n_irgs = get_irp_n_irgs();
+  for (i = 0; i < n_irgs; ++i) {
+    set_irg_loopinfo_inconsistent(get_irp_irg(i));
+  }
+}
+
+
+
 void
 (set_irg_pinned)(ir_graph *irg, op_pin_state p) {
   _set_irg_pinned(irg, p);
@@ -677,6 +689,33 @@ void
   _set_irg_inline_property(irg, s);
 }
 
+unsigned
+(get_irg_additional_properties)(const ir_graph *irg) {
+  return _get_irg_additional_properties(irg);
+}
+
+void
+(set_irg_additional_properties)(ir_graph *irg, unsigned property_mask) {
+  _set_irg_additional_properties(irg, property_mask);
+}
+
+void
+(set_irg_additional_property)(ir_graph *irg, irg_additional_property flag) {
+  _set_irg_additional_property(irg, flag);
+}
+
+/* Returns the calling convention of a graph. */
+unsigned
+(get_irg_calling_convention)(const ir_graph *irg) {
+  return _get_irg_calling_convention(irg);
+}
+
+/* Sets the calling convention of a graph. */
+void
+(set_irg_calling_convention)(ir_graph *irg, unsigned cc_mask) {
+  _set_irg_calling_convention(irg, cc_mask);
+}
+
 void
 (set_irg_link)(ir_graph *irg, void *thing) {
   _set_irg_link(irg, thing);