X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firprog.c;h=47e063121590b8febbf0707fc76b2d6bbc6ac69f;hb=fefcae4fca6f882e5475238a4aa64fab4b2a4469;hp=b13e4bbc37e9f73fb1934e6eeb76a7ae3c309c7c;hpb=1a26f4853c07d1ecd68a097409dd602edfe29eff;p=libfirm

diff --git a/ir/ir/irprog.c b/ir/ir/irprog.c
index b13e4bbc3..47e063121 100644
--- a/ir/ir/irprog.c
+++ b/ir/ir/irprog.c
@@ -44,6 +44,10 @@
 /* A variable from where everything in the ir can be accessed. */
 ir_prog *irp;
 ir_prog *get_irp(void) { return irp; }
+void set_irp(ir_prog *new_irp)
+{
+	irp = new_irp;
+}
 
 /**
  *  Create a new incomplete ir_prog.