/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
-** All rights reserved.
-**
-** Authors: Martin Trapp, Christian Schaefer
-**
-**
+* All rights reserved.
+*
+* Authors: Martin Trapp, Christian Schaefer
+*
+*
*/
/* $Id$ */
current_ir_graph = res;
add_irp_irg(res); /* remember this graph global. */
- /** Internal information for graph construction either held in the graph or
- *** initialized for each graph. **/
+/**
+ * initialized for each graph. **/
#if PRECISE_EXC_CONTEXT
res->n_loc = n_loc + 1 + 1; /* number of local variables that are never
dereferenced in this graph plus one for
res->ent = ent;
set_entity_irg(ent, res);
- /** A type that represents the stack frame. A class type so that it can
+/**
contain "inner" methods as in Pascal. **/
res->frame_type = new_type_class(mangle(get_entity_ident(ent),
id_from_str(FRAME_TP_SUFFIX, strlen(FRAME_TP_SUFFIX))));
/* Proj results of start node */
projX = new_Proj (res->start, mode_X, pns_initial_exec);
set_store (new_Proj (res->start, mode_M, pns_global_store));
- res->frame = new_Proj (res->start, mode_p, pns_frame_base);
- res->globals = new_Proj (res->start, mode_p, pns_globals);
+ res->frame = new_Proj (res->start, mode_P, pns_frame_base);
+ res->globals = new_Proj (res->start, mode_P, pns_globals);
res->args = new_Proj (res->start, mode_T, pns_args);
add_in_edge(res->start_block, projX);
#endif
res->obst = (struct obstack *) xmalloc (sizeof (struct obstack));
obstack_init (res->obst);
+ res->phase_state = phase_building;
res->pinned = pinned;
res->value_table = new_identities (); /* value table for global value
numbering for optimizing use in
#endif
}
-irg_phase_state get_irg_phase_state (ir_graph *irg) {
+irg_phase_state
+get_irg_phase_state (ir_graph *irg) {
return irg->phase_state;
}
-void set_irg_phase_low(ir_graph *irg) {
+void
+set_irg_phase_low(ir_graph *irg) {
irg->phase_state = phase_low;
}
return irg->pinned;
}
-irg_outs_state get_irg_outs_state(ir_graph *irg) {
+irg_outs_state
+get_irg_outs_state(ir_graph *irg) {
return irg->outs_state;
}
-void set_irg_outs_inconsistent(ir_graph *irg) {
+void
+set_irg_outs_inconsistent(ir_graph *irg) {
irg->outs_state = outs_inconsistent;
}
-irg_dom_state get_irg_dom_state(ir_graph *irg) {
+irg_dom_state
+get_irg_dom_state(ir_graph *irg) {
return irg->dom_state;
}
-void set_irg_dom_inconsistent(ir_graph *irg) {
+void
+set_irg_dom_inconsistent(ir_graph *irg) {
irg->dom_state = dom_inconsistent;
}