-/* initializes ir_prog. Calles the constructor for an ir_prog. */
-void init_irprog(void) {
- new_ir_prog ();
-}
-
-void remove_irp_type_from_list (type *typ) {
- int i;
- assert(typ);
-#if 0
- for (i = 0; i < (ARR_LEN (irp->types)); i++) {
-#else
- for (i = ARR_LEN (irp->types) -1; i >= 0; i--) {
-#endif
- if (irp->types[i] == typ) {
- for(; i < (ARR_LEN (irp->types)) - 1; i++) {
- irp->types[i] = irp->types[i+1];
- }
- ARR_SETLEN(type*, irp->types, (ARR_LEN(irp->types)) - 1);
- break;
- }
- }
-}
-
-/* Create a new ir prog. Automatically called by init_firm through
- init_irprog. */
-ir_prog *new_ir_prog (void) {