-#include "irprog.h"
-#include "firm_common_t.h"
-
-
-/** ir_prog */
-struct ir_prog {
- firm_kind kind;
- ir_graph *main_irg; /**< entry point to the compiled program
- or a list, in case we compile a library or the like? */
- ir_graph **graphs; /**< all graphs in the ir */
- type *glob_type; /**< global type. Must be a class as it can
- have fields and procedures. */
- type **types; /**< all types in the ir */
- ir_graph *const_code_irg; /**< This ir graph gives the proper environment
- to allocate nodes the represent values
- of constant entities. It is not meant as
- a procedure. */
- /*struct obstack *obst; * @@@ Should we place all types and
- entities on an obstack, too? */
-
-#ifdef DEBUG_libfirm
- long max_node_nr; /**< to generate unique numbers for nodes. */
-#endif
-};
+#include "array.h"
+
+/* Inline functions. */
+#define get_irp_n_irgs() get_irp_n_irgs_()
+#define get_irp_irg(pos) get_irp_irg_(pos)
+#define get_irp_n_types() get_irp_n_types_()
+#define get_irp_type(pos) get_irp_type_(pos)
+#define get_const_code_irg() get_const_code_irg_()
+#define get_segment_type(s) get_segment_type_(s)
+#define get_glob_type() get_glob_type_()
+#define get_tls_type() get_tls_type_()
+#define get_irp_next_label_nr() get_irp_next_label_nr_()
+
+/* inline functions */
+static inline ir_type *get_segment_type_(ir_segment_t segment)
+{
+ assert(segment <= IR_SEGMENT_LAST);
+ return irp->segment_types[segment];
+}
+
+static inline ir_type *get_glob_type_(void)
+{
+ return get_segment_type_(IR_SEGMENT_GLOBAL);
+}
+
+static inline ir_type *get_tls_type_(void)
+{
+ return get_segment_type_(IR_SEGMENT_THREAD_LOCAL);
+}
+
+static inline size_t get_irp_n_irgs_(void)
+{
+ return ARR_LEN(irp->graphs);
+}
+
+static inline ir_graph *get_irp_irg_(size_t pos)
+{
+ assert(pos < ARR_LEN(irp->graphs));
+ return irp->graphs[pos];
+}
+
+static inline size_t get_irp_n_types_(void)
+{
+ return ARR_LEN(irp->types);
+}