+INLINE void remove_irp_type_from_list (type *typ);
+
+static INLINE type *
+__get_glob_type(void) {
+ assert(irp);
+ return irp->glob_type = skip_tid(irp->glob_type);
+}
+
+static INLINE int
+__get_irp_n_irgs(void) {
+ assert (irp && irp->graphs);
+ if (get_visit_pseudo_irgs()) return get_irp_n_allirgs();
+ return (ARR_LEN((irp)->graphs));
+}
+
+static INLINE ir_graph *
+__get_irp_irg(int pos){
+ if (get_visit_pseudo_irgs()) return get_irp_allirg(pos);
+ assert(0 <= pos && pos <= get_irp_n_irgs());
+ return irp->graphs[pos];
+}
+
+
+static INLINE int
+__get_irp_n_types (void) {
+ assert (irp && irp->types);
+ return (ARR_LEN((irp)->types));
+}
+
+static INLINE type *
+__get_irp_type(int pos) {
+ assert (irp && irp->types);
+ /* Don't set the skip_tid result so that no double entries are generated. */
+ return skip_tid(irp->types[pos]);
+}
+
+#ifdef DEBUG_libfirm
+/** Returns a new, unique number to number nodes or the like. */
+int get_irp_new_node_nr(void);
+#endif
+
+static INLINE ir_graph *
+__get_const_code_irg(void)
+{
+ return irp->const_code_irg;
+}
+
+void set_irp_ip_outedges(ir_node ** ip_outedges);
+ir_node** get_irp_ip_outedges(void);
+
+/** initializes ir_prog. Calls the constructor for an ir_prog. */
+void init_irprog(void);
+
+#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_glob_type() __get_glob_type()
+