File tree Expand file tree Collapse file tree 1 file changed +8
-1
lines changed
src/vm/jvm/runtime/org/perl6/nqp/runtime Expand file tree Collapse file tree 1 file changed +8
-1
lines changed Original file line number Diff line number Diff line change @@ -73,6 +73,11 @@ public class CallFrame implements Cloneable {
73
73
*/
74
74
public SerializationContext sc ;
75
75
76
+ /**
77
+ * This this invocation do the initial setup of state vars?
78
+ */
79
+ public boolean stateInit ;
80
+
76
81
// Empty constructor for things that want to fake one up.
77
82
public CallFrame ()
78
83
{
@@ -122,8 +127,10 @@ public CallFrame(ThreadContext tc, CodeRef cr) {
122
127
this .oLex [i ] = sci .oLexStatic [i ].clone (tc );
123
128
break ;
124
129
case 2 :
125
- if (cr .oLexState == null )
130
+ if (cr .oLexState == null ) {
126
131
cr .oLexState = new SixModelObject [sci .oLexStatic .length ];
132
+ this .stateInit = true ;
133
+ }
127
134
if (cr .oLexState [i ] == null )
128
135
this .oLex [i ] = cr .oLexState [i ] = sci .oLexStatic [i ].clone (tc );
129
136
else
You can’t perform that action at this time.
0 commit comments