Correction to freshcoderef.

jnthn · jnthn · commit 1fd7f29664c0 · 2013-04-25T16:20:28.000+02:00
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -2694,6 +2694,7 @@ public static SixModelObject freshcoderef(SixModelObject code, ThreadContext tc)
             throw ExceptionHandling.dieInternal(tc, "freshcoderef must be used on a CodeRef");
         CodeRef clone = (CodeRef)code.clone(tc);
         clone.staticInfo = clone.staticInfo.clone();
+        clone.staticInfo.staticCode = clone;
         return clone;
     }
     public static SixModelObject markcodestatic(SixModelObject code, ThreadContext tc) {

Original file line number	Diff line number	Diff line change
`@@ -2694,6 +2694,7 @@ public static SixModelObject freshcoderef(SixModelObject code, ThreadContext tc)`
`2694`	`2694`	`throw ExceptionHandling.dieInternal(tc, "freshcoderef must be used on a CodeRef");`
`2695`	`2695`	`CodeRef clone = (CodeRef)code.clone(tc);`
`2696`	`2696`	`clone.staticInfo = clone.staticInfo.clone();`
	`2697`	`+ clone.staticInfo.staticCode = clone;`
`2697`	`2698`	`return clone;`
`2698`	`2699`	`}`
`2699`	`2700`	`public static SixModelObject markcodestatic(SixModelObject code, ThreadContext tc) {`