File tree Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -26,12 +26,12 @@ class QAST::Compiler is HLL::Compiler {
26
26
}
27
27
28
28
# create our labels
29
- my $ startlabel := self . ' post_new' (' Label' , : result($ prefix ~ ' start' ));
30
- my $ donelabel := self . ' post_new' (' Label' , : result($ prefix ~ ' done' ));
31
- my $ restartlabel := self . ' post_new' (' Label' , : result($ prefix ~ ' restart' ));
32
- my $ faillabel := self . ' post_new' (' Label' , : result($ prefix ~ ' fail' ));
33
- my $ jumplabel := self . ' post_new' (' Label' , : result($ prefix ~ ' jump' ));
34
- my $ cutlabel := self . ' post_new' (' Label' , : result($ prefix ~ ' cut' ));
29
+ my $ startlabel := self . post_new(' Label' , : result($ prefix ~ ' start' ));
30
+ my $ donelabel := self . post_new(' Label' , : result($ prefix ~ ' done' ));
31
+ my $ restartlabel := self . post_new(' Label' , : result($ prefix ~ ' restart' ));
32
+ my $ faillabel := self . post_new(' Label' , : result($ prefix ~ ' fail' ));
33
+ my $ jumplabel := self . post_new(' Label' , : result($ prefix ~ ' jump' ));
34
+ my $ cutlabel := self . post_new(' Label' , : result($ prefix ~ ' cut' ));
35
35
% * REG <fail > := $ faillabel ;
36
36
37
37
# common prologue
You can’t perform that action at this time.
0 commit comments