Browse files

Update bootstrap files with concat_s_s remmoval

  • Loading branch information...
1 parent e920607 commit 01081a8ba6593a541fd0cad5d188ff05a2ac70d6 @bacek bacek committed Dec 25, 2010
Showing with 1,914 additions and 2,130 deletions.
  1. +372 −417 src/stage0/HLL-s0.pir
  2. +989 −1,103 src/stage0/NQP-s0.pir
  3. +537 −594 src/stage0/P6Regex-s0.pir
  4. +16 −16 src/stage0/Regex-s0.pir
View
789 src/stage0/HLL-s0.pir
@@ -993,7 +993,7 @@ An operator precedence parser.
### .include 'gen/hllgrammar-grammar.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1289761103.76016")
+.sub "_block11" :anon :subid("10_1293311615.94217")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Grammar"], "_block13"
capture_lex $P14
@@ -1010,15 +1010,15 @@ An operator precedence parser.
$P332 = $P14()
.annotate 'line', 1
.return ($P332)
- .const 'Sub' $P334 = "106_1289761103.76016"
+ .const 'Sub' $P334 = "106_1293311615.94217"
.return ($P334)
.end
.namespace []
-.sub "" :load :init :subid("post107") :outer("10_1289761103.76016")
+.sub "" :load :init :subid("post107") :outer("10_1293311615.94217")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1289761103.76016"
+ .const 'Sub' $P12 = "10_1293311615.94217"
.local pmc block
set block, $P12
$P337 = get_root_global ["parrot"], "P6metaclass"
@@ -1027,83 +1027,83 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "_block13" :subid("11_1289761103.76016") :outer("10_1289761103.76016")
+.sub "_block13" :subid("11_1293311615.94217") :outer("10_1293311615.94217")
.annotate 'line', 5
- .const 'Sub' $P319 = "103_1289761103.76016"
+ .const 'Sub' $P319 = "103_1293311615.94217"
capture_lex $P319
- .const 'Sub' $P313 = "101_1289761103.76016"
+ .const 'Sub' $P313 = "101_1293311615.94217"
capture_lex $P313
- .const 'Sub' $P300 = "98_1289761103.76016"
+ .const 'Sub' $P300 = "98_1293311615.94217"
capture_lex $P300
- .const 'Sub' $P268 = "93_1289761103.76016"
+ .const 'Sub' $P268 = "93_1293311615.94217"
capture_lex $P268
- .const 'Sub' $P262 = "91_1289761103.76016"
+ .const 'Sub' $P262 = "91_1293311615.94217"
capture_lex $P262
- .const 'Sub' $P257 = "89_1289761103.76016"
+ .const 'Sub' $P257 = "89_1293311615.94217"
capture_lex $P257
- .const 'Sub' $P251 = "87_1289761103.76016"
+ .const 'Sub' $P251 = "87_1293311615.94217"
capture_lex $P251
- .const 'Sub' $P245 = "85_1289761103.76016"
+ .const 'Sub' $P245 = "85_1293311615.94217"
capture_lex $P245
- .const 'Sub' $P240 = "83_1289761103.76016"
+ .const 'Sub' $P240 = "83_1293311615.94217"
capture_lex $P240
- .const 'Sub' $P235 = "81_1289761103.76016"
+ .const 'Sub' $P235 = "81_1293311615.94217"
capture_lex $P235
- .const 'Sub' $P230 = "79_1289761103.76016"
+ .const 'Sub' $P230 = "79_1293311615.94217"
capture_lex $P230
- .const 'Sub' $P225 = "77_1289761103.76016"
+ .const 'Sub' $P225 = "77_1293311615.94217"
capture_lex $P225
- .const 'Sub' $P220 = "75_1289761103.76016"
+ .const 'Sub' $P220 = "75_1293311615.94217"
capture_lex $P220
- .const 'Sub' $P215 = "73_1289761103.76016"
+ .const 'Sub' $P215 = "73_1293311615.94217"
capture_lex $P215
- .const 'Sub' $P210 = "71_1289761103.76016"
+ .const 'Sub' $P210 = "71_1293311615.94217"
capture_lex $P210
- .const 'Sub' $P205 = "69_1289761103.76016"
+ .const 'Sub' $P205 = "69_1293311615.94217"
capture_lex $P205
- .const 'Sub' $P195 = "65_1289761103.76016"
+ .const 'Sub' $P195 = "65_1293311615.94217"
capture_lex $P195
- .const 'Sub' $P182 = "63_1289761103.76016"
+ .const 'Sub' $P182 = "63_1293311615.94217"
capture_lex $P182
- .const 'Sub' $P170 = "61_1289761103.76016"
+ .const 'Sub' $P170 = "61_1293311615.94217"
capture_lex $P170
- .const 'Sub' $P164 = "59_1289761103.76016"
+ .const 'Sub' $P164 = "59_1293311615.94217"
capture_lex $P164
- .const 'Sub' $P157 = "57_1289761103.76016"
+ .const 'Sub' $P157 = "57_1293311615.94217"
capture_lex $P157
- .const 'Sub' $P151 = "55_1289761103.76016"
+ .const 'Sub' $P151 = "55_1293311615.94217"
capture_lex $P151
- .const 'Sub' $P144 = "53_1289761103.76016"
+ .const 'Sub' $P144 = "53_1293311615.94217"
capture_lex $P144
- .const 'Sub' $P138 = "51_1289761103.76016"
+ .const 'Sub' $P138 = "51_1293311615.94217"
capture_lex $P138
- .const 'Sub' $P131 = "49_1289761103.76016"
+ .const 'Sub' $P131 = "49_1293311615.94217"
capture_lex $P131
- .const 'Sub' $P125 = "47_1289761103.76016"
+ .const 'Sub' $P125 = "47_1293311615.94217"
capture_lex $P125
- .const 'Sub' $P119 = "45_1289761103.76016"
+ .const 'Sub' $P119 = "45_1293311615.94217"
capture_lex $P119
- .const 'Sub' $P110 = "43_1289761103.76016"
+ .const 'Sub' $P110 = "43_1293311615.94217"
capture_lex $P110
- .const 'Sub' $P102 = "41_1289761103.76016"
+ .const 'Sub' $P102 = "41_1293311615.94217"
capture_lex $P102
- .const 'Sub' $P92 = "40_1289761103.76016"
+ .const 'Sub' $P92 = "40_1293311615.94217"
capture_lex $P92
- .const 'Sub' $P86 = "38_1289761103.76016"
+ .const 'Sub' $P86 = "38_1293311615.94217"
capture_lex $P86
- .const 'Sub' $P81 = "36_1289761103.76016"
+ .const 'Sub' $P81 = "36_1293311615.94217"
capture_lex $P81
- .const 'Sub' $P73 = "34_1289761103.76016"
+ .const 'Sub' $P73 = "34_1293311615.94217"
capture_lex $P73
- .const 'Sub' $P67 = "32_1289761103.76016"
+ .const 'Sub' $P67 = "32_1293311615.94217"
capture_lex $P67
- .const 'Sub' $P61 = "30_1289761103.76016"
+ .const 'Sub' $P61 = "30_1293311615.94217"
capture_lex $P61
- .const 'Sub' $P55 = "28_1289761103.76016"
+ .const 'Sub' $P55 = "28_1293311615.94217"
capture_lex $P55
- .const 'Sub' $P22 = "14_1289761103.76016"
+ .const 'Sub' $P22 = "14_1293311615.94217"
capture_lex $P22
- .const 'Sub' $P15 = "12_1289761103.76016"
+ .const 'Sub' $P15 = "12_1293311615.94217"
capture_lex $P15
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
@@ -1112,17 +1112,17 @@ An operator precedence parser.
$P0."ctxsave"()
ctxsave_done:
.annotate 'line', 33
- .const 'Sub' $P319 = "103_1289761103.76016"
+ .const 'Sub' $P319 = "103_1293311615.94217"
capture_lex $P319
.annotate 'line', 5
.return ($P319)
- .const 'Sub' $P329 = "105_1289761103.76016"
+ .const 'Sub' $P329 = "105_1293311615.94217"
.return ($P329)
.end
.namespace ["HLL";"Grammar"]
-.sub "ws" :subid("12_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "ws" :subid("12_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx16_tgt
.local int rx16_pos
@@ -1222,7 +1222,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__ws" :subid("13_1289761103.76016") :method
+.sub "!PREFIX__ws" :subid("13_1293311615.94217") :method
.annotate 'line', 5
new $P18, "ResizablePMCArray"
push $P18, ""
@@ -1231,7 +1231,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "termish" :subid("14_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "termish" :subid("14_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx23_tgt
.local int rx23_pos
@@ -1241,7 +1241,7 @@ An operator precedence parser.
.local pmc rx23_cur
.local pmc rx23_debug
(rx23_cur, rx23_pos, rx23_tgt, $I10) = self."!cursor_start"()
- rx23_cur."!cursor_caparray"("postfixish", "prefixish")
+ rx23_cur."!cursor_caparray"("prefixish", "postfixish")
getattribute rx23_debug, rx23_cur, "$!debug"
.lex unicode:"$\x{a2}", rx23_cur
.local pmc match
@@ -1353,7 +1353,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__termish" :subid("15_1289761103.76016") :method
+.sub "!PREFIX__termish" :subid("15_1293311615.94217") :method
.annotate 'line', 5
new $P25, "ResizablePMCArray"
push $P25, ""
@@ -1362,103 +1362,103 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "term" :subid("16_1289761103.76016") :method
+.sub "term" :subid("16_1293311615.94217") :method
.annotate 'line', 13
$P32 = self."!protoregex"("term")
.return ($P32)
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__term" :subid("17_1289761103.76016") :method
+.sub "!PREFIX__term" :subid("17_1293311615.94217") :method
.annotate 'line', 13
$P34 = self."!PREFIX__!protoregex"("term")
.return ($P34)
.end
.namespace ["HLL";"Grammar"]
-.sub "infix" :subid("18_1289761103.76016") :method
+.sub "infix" :subid("18_1293311615.94217") :method
.annotate 'line', 14
$P36 = self."!protoregex"("infix")
.return ($P36)
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__infix" :subid("19_1289761103.76016") :method
+.sub "!PREFIX__infix" :subid("19_1293311615.94217") :method
.annotate 'line', 14
$P38 = self."!PREFIX__!protoregex"("infix")
.return ($P38)
.end
.namespace ["HLL";"Grammar"]
-.sub "prefix" :subid("20_1289761103.76016") :method
+.sub "prefix" :subid("20_1293311615.94217") :method
.annotate 'line', 15
$P40 = self."!protoregex"("prefix")
.return ($P40)
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__prefix" :subid("21_1289761103.76016") :method
+.sub "!PREFIX__prefix" :subid("21_1293311615.94217") :method
.annotate 'line', 15
$P42 = self."!PREFIX__!protoregex"("prefix")
.return ($P42)
.end
.namespace ["HLL";"Grammar"]
-.sub "postfix" :subid("22_1289761103.76016") :method
+.sub "postfix" :subid("22_1293311615.94217") :method
.annotate 'line', 16
$P44 = self."!protoregex"("postfix")
.return ($P44)
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postfix" :subid("23_1289761103.76016") :method
+.sub "!PREFIX__postfix" :subid("23_1293311615.94217") :method
.annotate 'line', 16
$P46 = self."!PREFIX__!protoregex"("postfix")
.return ($P46)
.end
.namespace ["HLL";"Grammar"]
-.sub "circumfix" :subid("24_1289761103.76016") :method
+.sub "circumfix" :subid("24_1293311615.94217") :method
.annotate 'line', 17
$P48 = self."!protoregex"("circumfix")
.return ($P48)
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__circumfix" :subid("25_1289761103.76016") :method
+.sub "!PREFIX__circumfix" :subid("25_1293311615.94217") :method
.annotate 'line', 17
$P50 = self."!PREFIX__!protoregex"("circumfix")
.return ($P50)
.end
.namespace ["HLL";"Grammar"]
-.sub "postcircumfix" :subid("26_1289761103.76016") :method
+.sub "postcircumfix" :subid("26_1293311615.94217") :method
.annotate 'line', 18
$P52 = self."!protoregex"("postcircumfix")
.return ($P52)
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postcircumfix" :subid("27_1289761103.76016") :method
+.sub "!PREFIX__postcircumfix" :subid("27_1293311615.94217") :method
.annotate 'line', 18
$P54 = self."!PREFIX__!protoregex"("postcircumfix")
.return ($P54)
.end
.namespace ["HLL";"Grammar"]
-.sub "term:sym<circumfix>" :subid("28_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "term:sym<circumfix>" :subid("28_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx56_tgt
.local int rx56_pos
@@ -1530,7 +1530,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__term:sym<circumfix>" :subid("29_1289761103.76016") :method
+.sub "!PREFIX__term:sym<circumfix>" :subid("29_1293311615.94217") :method
.annotate 'line', 5
$P58 = self."!PREFIX__!subrule"("circumfix", "")
new $P59, "ResizablePMCArray"
@@ -1540,7 +1540,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "infixish" :subid("30_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "infixish" :subid("30_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx62_tgt
.local int rx62_pos
@@ -1612,7 +1612,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__infixish" :subid("31_1289761103.76016") :method
+.sub "!PREFIX__infixish" :subid("31_1293311615.94217") :method
.annotate 'line', 5
$P64 = self."!PREFIX__!subrule"("infix", "")
new $P65, "ResizablePMCArray"
@@ -1622,7 +1622,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "prefixish" :subid("32_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "prefixish" :subid("32_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx68_tgt
.local int rx68_pos
@@ -1699,7 +1699,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__prefixish" :subid("33_1289761103.76016") :method
+.sub "!PREFIX__prefixish" :subid("33_1293311615.94217") :method
.annotate 'line', 5
$P70 = self."!PREFIX__!subrule"("prefix", "")
new $P71, "ResizablePMCArray"
@@ -1709,7 +1709,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "postfixish" :subid("34_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "postfixish" :subid("34_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx74_tgt
.local int rx74_pos
@@ -1797,7 +1797,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postfixish" :subid("35_1289761103.76016") :method
+.sub "!PREFIX__postfixish" :subid("35_1293311615.94217") :method
.annotate 'line', 5
$P76 = self."!PREFIX__!subrule"("postcircumfix", "")
$P77 = self."!PREFIX__!subrule"("postfix", "")
@@ -1809,7 +1809,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "nullterm" :subid("36_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "nullterm" :subid("36_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx82_tgt
.local int rx82_pos
@@ -1874,7 +1874,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__nullterm" :subid("37_1289761103.76016") :method
+.sub "!PREFIX__nullterm" :subid("37_1293311615.94217") :method
.annotate 'line', 5
new $P84, "ResizablePMCArray"
push $P84, ""
@@ -1883,7 +1883,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "nullterm_alt" :subid("38_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "nullterm_alt" :subid("38_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 5
.local string rx87_tgt
.local int rx87_pos
@@ -1955,7 +1955,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__nullterm_alt" :subid("39_1289761103.76016") :method
+.sub "!PREFIX__nullterm_alt" :subid("39_1293311615.94217") :method
.annotate 'line', 5
$P89 = self."!PREFIX__!subrule"("nullterm", "")
new $P90, "ResizablePMCArray"
@@ -1966,11 +1966,10 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
.include "except_types.pasm"
-.sub "nulltermish" :subid("40_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "nulltermish" :subid("40_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
- new $P94, 'ExceptionHandler'
+ new $P94, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P94, control_93
- $P94."handle_types"(.CONTROL_RETURN)
push_eh $P94
.lex "self", self
find_lex $P97, "self"
@@ -1993,7 +1992,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_delimited" :subid("41_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_delimited" :subid("41_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx103_tgt
.local int rx103_pos
@@ -2097,7 +2096,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_delimited" :subid("42_1289761103.76016") :method
+.sub "!PREFIX__quote_delimited" :subid("42_1293311615.94217") :method
.annotate 'line', 33
$P105 = self."!PREFIX__!subrule"("starter", "")
new $P106, "ResizablePMCArray"
@@ -2107,7 +2106,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_atom" :subid("43_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_atom" :subid("43_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx111_tgt
.local int rx111_pos
@@ -2214,7 +2213,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_atom" :subid("44_1289761103.76016") :method
+.sub "!PREFIX__quote_atom" :subid("44_1293311615.94217") :method
.annotate 'line', 33
new $P113, "ResizablePMCArray"
push $P113, ""
@@ -2223,7 +2222,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "decint" :subid("45_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "decint" :subid("45_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx120_tgt
.local int rx120_pos
@@ -2311,7 +2310,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__decint" :subid("46_1289761103.76016") :method
+.sub "!PREFIX__decint" :subid("46_1293311615.94217") :method
.annotate 'line', 33
new $P122, "ResizablePMCArray"
push $P122, ""
@@ -2320,7 +2319,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "decints" :subid("47_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "decints" :subid("47_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx126_tgt
.local int rx126_pos
@@ -2420,7 +2419,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__decints" :subid("48_1289761103.76016") :method
+.sub "!PREFIX__decints" :subid("48_1293311615.94217") :method
.annotate 'line', 33
new $P128, "ResizablePMCArray"
push $P128, ""
@@ -2429,7 +2428,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "hexint" :subid("49_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "hexint" :subid("49_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx132_tgt
.local int rx132_pos
@@ -2527,7 +2526,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__hexint" :subid("50_1289761103.76016") :method
+.sub "!PREFIX__hexint" :subid("50_1293311615.94217") :method
.annotate 'line', 33
new $P134, "ResizablePMCArray"
push $P134, ""
@@ -2536,7 +2535,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "hexints" :subid("51_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "hexints" :subid("51_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx139_tgt
.local int rx139_pos
@@ -2636,7 +2635,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__hexints" :subid("52_1289761103.76016") :method
+.sub "!PREFIX__hexints" :subid("52_1293311615.94217") :method
.annotate 'line', 33
new $P141, "ResizablePMCArray"
push $P141, ""
@@ -2645,7 +2644,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "octint" :subid("53_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "octint" :subid("53_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx145_tgt
.local int rx145_pos
@@ -2743,7 +2742,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__octint" :subid("54_1289761103.76016") :method
+.sub "!PREFIX__octint" :subid("54_1293311615.94217") :method
.annotate 'line', 33
new $P147, "ResizablePMCArray"
push $P147, ""
@@ -2752,7 +2751,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "octints" :subid("55_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "octints" :subid("55_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx152_tgt
.local int rx152_pos
@@ -2852,7 +2851,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__octints" :subid("56_1289761103.76016") :method
+.sub "!PREFIX__octints" :subid("56_1293311615.94217") :method
.annotate 'line', 33
new $P154, "ResizablePMCArray"
push $P154, ""
@@ -2861,7 +2860,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "binint" :subid("57_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "binint" :subid("57_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx158_tgt
.local int rx158_pos
@@ -2959,7 +2958,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__binint" :subid("58_1289761103.76016") :method
+.sub "!PREFIX__binint" :subid("58_1293311615.94217") :method
.annotate 'line', 33
new $P160, "ResizablePMCArray"
push $P160, ""
@@ -2968,7 +2967,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "binints" :subid("59_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "binints" :subid("59_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx165_tgt
.local int rx165_pos
@@ -3068,7 +3067,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__binints" :subid("60_1289761103.76016") :method
+.sub "!PREFIX__binints" :subid("60_1293311615.94217") :method
.annotate 'line', 33
new $P167, "ResizablePMCArray"
push $P167, ""
@@ -3077,7 +3076,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "integer" :subid("61_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "integer" :subid("61_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx171_tgt
.local int rx171_pos
@@ -3239,7 +3238,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__integer" :subid("62_1289761103.76016") :method
+.sub "!PREFIX__integer" :subid("62_1293311615.94217") :method
.annotate 'line', 33
$P173 = self."!PREFIX__!subrule"("decint", "")
$P174 = self."!PREFIX__!subrule"("decint", "0d")
@@ -3257,7 +3256,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "dec_number" :subid("63_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "dec_number" :subid("63_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx183_tgt
.local int rx183_pos
@@ -3464,7 +3463,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__dec_number" :subid("64_1289761103.76016") :method
+.sub "!PREFIX__dec_number" :subid("64_1293311615.94217") :method
.annotate 'line', 33
new $P185, "ResizablePMCArray"
push $P185, ""
@@ -3475,7 +3474,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "escale" :subid("65_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "escale" :subid("65_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx196_tgt
.local int rx196_pos
@@ -3567,7 +3566,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__escale" :subid("66_1289761103.76016") :method
+.sub "!PREFIX__escale" :subid("66_1293311615.94217") :method
.annotate 'line', 33
new $P198, "ResizablePMCArray"
push $P198, "e"
@@ -3577,23 +3576,23 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape" :subid("67_1289761103.76016") :method
+.sub "quote_escape" :subid("67_1293311615.94217") :method
.annotate 'line', 79
$P202 = self."!protoregex"("quote_escape")
.return ($P202)
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape" :subid("68_1289761103.76016") :method
+.sub "!PREFIX__quote_escape" :subid("68_1293311615.94217") :method
.annotate 'line', 79
$P204 = self."!PREFIX__!protoregex"("quote_escape")
.return ($P204)
.end
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<backslash>" :subid("69_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<backslash>" :subid("69_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx206_tgt
.local int rx206_pos
@@ -3669,7 +3668,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<backslash>" :subid("70_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<backslash>" :subid("70_1293311615.94217") :method
.annotate 'line', 33
new $P208, "ResizablePMCArray"
push $P208, "\\\\"
@@ -3678,7 +3677,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<stopper>" :subid("71_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<stopper>" :subid("71_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx211_tgt
.local int rx211_pos
@@ -3761,7 +3760,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<stopper>" :subid("72_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<stopper>" :subid("72_1293311615.94217") :method
.annotate 'line', 33
new $P213, "ResizablePMCArray"
push $P213, "\\"
@@ -3770,7 +3769,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<bs>" :subid("73_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<bs>" :subid("73_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx216_tgt
.local int rx216_pos
@@ -3846,7 +3845,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<bs>" :subid("74_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<bs>" :subid("74_1293311615.94217") :method
.annotate 'line', 33
new $P218, "ResizablePMCArray"
push $P218, "\\b"
@@ -3855,7 +3854,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<nl>" :subid("75_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<nl>" :subid("75_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx221_tgt
.local int rx221_pos
@@ -3931,7 +3930,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<nl>" :subid("76_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<nl>" :subid("76_1293311615.94217") :method
.annotate 'line', 33
new $P223, "ResizablePMCArray"
push $P223, "\\n"
@@ -3940,7 +3939,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<cr>" :subid("77_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<cr>" :subid("77_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx226_tgt
.local int rx226_pos
@@ -4016,7 +4015,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<cr>" :subid("78_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<cr>" :subid("78_1293311615.94217") :method
.annotate 'line', 33
new $P228, "ResizablePMCArray"
push $P228, "\\r"
@@ -4025,7 +4024,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<tab>" :subid("79_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<tab>" :subid("79_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx231_tgt
.local int rx231_pos
@@ -4101,7 +4100,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<tab>" :subid("80_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<tab>" :subid("80_1293311615.94217") :method
.annotate 'line', 33
new $P233, "ResizablePMCArray"
push $P233, "\\t"
@@ -4110,7 +4109,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<ff>" :subid("81_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<ff>" :subid("81_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx236_tgt
.local int rx236_pos
@@ -4186,7 +4185,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<ff>" :subid("82_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<ff>" :subid("82_1293311615.94217") :method
.annotate 'line', 33
new $P238, "ResizablePMCArray"
push $P238, "\\f"
@@ -4195,7 +4194,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<esc>" :subid("83_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<esc>" :subid("83_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx241_tgt
.local int rx241_pos
@@ -4271,7 +4270,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<esc>" :subid("84_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<esc>" :subid("84_1293311615.94217") :method
.annotate 'line', 33
new $P243, "ResizablePMCArray"
push $P243, "\\e"
@@ -4280,7 +4279,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<hex>" :subid("85_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<hex>" :subid("85_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx246_tgt
.local int rx246_pos
@@ -4392,7 +4391,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<hex>" :subid("86_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<hex>" :subid("86_1293311615.94217") :method
.annotate 'line', 33
new $P248, "ResizablePMCArray"
push $P248, unicode:"\\x"
@@ -4401,7 +4400,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<oct>" :subid("87_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<oct>" :subid("87_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx252_tgt
.local int rx252_pos
@@ -4513,7 +4512,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<oct>" :subid("88_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<oct>" :subid("88_1293311615.94217") :method
.annotate 'line', 33
new $P254, "ResizablePMCArray"
push $P254, "\\o"
@@ -4522,7 +4521,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<chr>" :subid("89_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<chr>" :subid("89_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx258_tgt
.local int rx258_pos
@@ -4605,7 +4604,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<chr>" :subid("90_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<chr>" :subid("90_1293311615.94217") :method
.annotate 'line', 33
new $P260, "ResizablePMCArray"
push $P260, "\\c"
@@ -4614,7 +4613,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<0>" :subid("91_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<0>" :subid("91_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx263_tgt
.local int rx263_pos
@@ -4711,7 +4710,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<0>" :subid("92_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<0>" :subid("92_1293311615.94217") :method
.annotate 'line', 33
new $P265, "ResizablePMCArray"
push $P265, "\\0"
@@ -4720,13 +4719,13 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<misc>" :subid("93_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "quote_escape:sym<misc>" :subid("93_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
- .const 'Sub' $P288 = "97_1289761103.76016"
+ .const 'Sub' $P288 = "97_1293311615.94217"
capture_lex $P288
- .const 'Sub' $P281 = "96_1289761103.76016"
+ .const 'Sub' $P281 = "96_1293311615.94217"
capture_lex $P281
- .const 'Sub' $P276 = "95_1289761103.76016"
+ .const 'Sub' $P276 = "95_1293311615.94217"
capture_lex $P276
.local string rx269_tgt
.local int rx269_pos
@@ -4768,7 +4767,7 @@ An operator precedence parser.
find_lex $P273, unicode:"$\x{a2}"
$P274 = $P273."MATCH"()
store_lex "$/", $P274
- .const 'Sub' $P276 = "95_1289761103.76016"
+ .const 'Sub' $P276 = "95_1293311615.94217"
capture_lex $P276
$P277 = $P276()
# rx literal "\\"
@@ -4794,7 +4793,7 @@ An operator precedence parser.
.annotate 'line', 104
# rx subrule $P281 subtype=capture negate=
rx269_cur."!cursor_pos"(rx269_pos)
- .const 'Sub' $P281 = "96_1289761103.76016"
+ .const 'Sub' $P281 = "96_1293311615.94217"
capture_lex $P281
$P10 = rx269_cur.$P281()
unless $P10, rx269_fail
@@ -4828,7 +4827,7 @@ An operator precedence parser.
find_lex $P285, unicode:"$\x{a2}"
$P286 = $P285."MATCH"()
store_lex "$/", $P286
- .const 'Sub' $P288 = "97_1289761103.76016"
+ .const 'Sub' $P288 = "97_1293311615.94217"
capture_lex $P288
$P298 = $P288()
alt279_end:
@@ -4882,7 +4881,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<misc>" :subid("94_1289761103.76016") :method
+.sub "!PREFIX__quote_escape:sym<misc>" :subid("94_1293311615.94217") :method
.annotate 'line', 33
new $P271, "ResizablePMCArray"
push $P271, ""
@@ -4891,14 +4890,14 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "_block275" :anon :subid("95_1289761103.76016") :outer("93_1289761103.76016")
+.sub "_block275" :anon :subid("95_1293311615.94217") :outer("93_1293311615.94217")
.annotate 'line', 100
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "_block280" :anon :subid("96_1289761103.76016") :method :outer("93_1289761103.76016")
+.sub "_block280" :anon :subid("96_1293311615.94217") :method :outer("93_1293311615.94217")
.annotate 'line', 104
.local string rx282_tgt
.local int rx282_pos
@@ -4967,7 +4966,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "_block287" :anon :subid("97_1289761103.76016") :outer("93_1289761103.76016")
+.sub "_block287" :anon :subid("97_1293311615.94217") :outer("93_1293311615.94217")
.annotate 'line', 105
find_lex $P289, "$/"
$P290 = $P289."CURSOR"()
@@ -4990,9 +4989,9 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "charname" :subid("98_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "charname" :subid("98_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
- .const 'Sub' $P310 = "100_1289761103.76016"
+ .const 'Sub' $P310 = "100_1293311615.94217"
capture_lex $P310
.local string rx301_tgt
.local int rx301_pos
@@ -5076,7 +5075,7 @@ An operator precedence parser.
.annotate 'line', 114
# rx subrule "before" subtype=zerowidth negate=
rx301_cur."!cursor_pos"(rx301_pos)
- .const 'Sub' $P310 = "100_1289761103.76016"
+ .const 'Sub' $P310 = "100_1293311615.94217"
capture_lex $P310
$P10 = rx301_cur."before"($P310)
unless $P10, rx301_fail
@@ -5109,7 +5108,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charname" :subid("99_1289761103.76016") :method
+.sub "!PREFIX__charname" :subid("99_1293311615.94217") :method
.annotate 'line', 33
$P303 = self."!PREFIX__!subrule"("integer", "")
new $P304, "ResizablePMCArray"
@@ -5171,7 +5170,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "_block309" :anon :subid("100_1289761103.76016") :method :outer("98_1289761103.76016")
+.sub "_block309" :anon :subid("100_1293311615.94217") :method :outer("98_1293311615.94217")
.annotate 'line', 114
.local string rx311_tgt
.local int rx311_pos
@@ -5245,7 +5244,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "charnames" :subid("101_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "charnames" :subid("101_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx314_tgt
.local int rx314_pos
@@ -5345,7 +5344,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charnames" :subid("102_1289761103.76016") :method
+.sub "!PREFIX__charnames" :subid("102_1293311615.94217") :method
.annotate 'line', 33
new $P316, "ResizablePMCArray"
push $P316, ""
@@ -5354,7 +5353,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "charspec" :subid("103_1289761103.76016") :method :outer("11_1289761103.76016")
+.sub "charspec" :subid("103_1293311615.94217") :method :outer("11_1293311615.94217")
.annotate 'line', 33
.local string rx320_tgt
.local int rx320_pos
@@ -5500,7 +5499,7 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charspec" :subid("104_1289761103.76016") :method
+.sub "!PREFIX__charspec" :subid("104_1293311615.94217") :method
.annotate 'line', 33
$P322 = self."!PREFIX__!subrule"("panic", "")
$P323 = self."!PREFIX__!subrule"("charnames", "[")
@@ -5541,26 +5540,26 @@ An operator precedence parser.
.namespace ["HLL";"Grammar"]
-.sub "_block328" :load :anon :subid("105_1289761103.76016")
+.sub "_block328" :load :anon :subid("105_1293311615.94217")
.annotate 'line', 5
- .const 'Sub' $P330 = "11_1289761103.76016"
+ .const 'Sub' $P330 = "11_1293311615.94217"
$P331 = $P330()
.return ($P331)
.end
.namespace []
-.sub "_block333" :load :anon :subid("106_1289761103.76016")
+.sub "_block333" :load :anon :subid("106_1293311615.94217")
.annotate 'line', 1
- .const 'Sub' $P335 = "10_1289761103.76016"
+ .const 'Sub' $P335 = "10_1293311615.94217"
$P336 = $P335()
.return ($P336)
.end
### .include 'gen/hllgrammar-actions.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1289761106.28882")
+.sub "_block11" :anon :subid("10_1293311618.59089")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Actions"], "_block13"
capture_lex $P14
@@ -5577,15 +5576,15 @@ An operator precedence parser.
$P627 = $P14()
.annotate 'line', 1
.return ($P627)
- .const 'Sub' $P629 = "55_1289761106.28882"
+ .const 'Sub' $P629 = "55_1293311618.59089"
.return ($P629)
.end
.namespace []
-.sub "" :load :init :subid("post56") :outer("10_1289761106.28882")
+.sub "" :load :init :subid("post56") :outer("10_1293311618.59089")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1289761106.28882"
+ .const 'Sub' $P12 = "10_1293311618.59089"
.local pmc block
set block, $P12
$P632 = get_root_global ["parrot"], "P6metaclass"
@@ -5594,75 +5593,75 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
-.sub "_block13" :subid("11_1289761106.28882") :outer("10_1289761106.28882")
+.sub "_block13" :subid("11_1293311618.59089") :outer("10_1293311618.59089")
.annotate 'line', 3
- .const 'Sub' $P605 = "53_1289761106.28882"
+ .const 'Sub' $P605 = "53_1293311618.59089"
capture_lex $P605
- .const 'Sub' $P580 = "51_1289761106.28882"
+ .const 'Sub' $P580 = "51_1293311618.59089"
capture_lex $P580
- .const 'Sub' $P550 = "50_1289761106.28882"
+ .const 'Sub' $P550 = "50_1293311618.59089"
capture_lex $P550
- .const 'Sub' $P531 = "49_1289761106.28882"
+ .const 'Sub' $P531 = "49_1293311618.59089"
capture_lex $P531
- .const 'Sub' $P524 = "48_1289761106.28882"
+ .const 'Sub' $P524 = "48_1293311618.59089"
capture_lex $P524
- .const 'Sub' $P514 = "47_1289761106.28882"
+ .const 'Sub' $P514 = "47_1293311618.59089"
capture_lex $P514
- .const 'Sub' $P497 = "46_1289761106.28882"
+ .const 'Sub' $P497 = "46_1293311618.59089"
capture_lex $P497
- .const 'Sub' $P480 = "45_1289761106.28882"
+ .const 'Sub' $P480 = "45_1293311618.59089"
capture_lex $P480
- .const 'Sub' $P473 = "44_1289761106.28882"
+ .const 'Sub' $P473 = "44_1293311618.59089"
capture_lex $P473
- .const 'Sub' $P466 = "43_1289761106.28882"
+ .const 'Sub' $P466 = "43_1293311618.59089"
capture_lex $P466
- .const 'Sub' $P459 = "42_1289761106.28882"
+ .const 'Sub' $P459 = "42_1293311618.59089"
capture_lex $P459
- .const 'Sub' $P452 = "41_1289761106.28882"
+ .const 'Sub' $P452 = "41_1293311618.59089"
capture_lex $P452
- .const 'Sub' $P445 = "40_1289761106.28882"
+ .const 'Sub' $P445 = "40_1293311618.59089"
capture_lex $P445
- .const 'Sub' $P438 = "39_1289761106.28882"
+ .const 'Sub' $P438 = "39_1293311618.59089"
capture_lex $P438
- .const 'Sub' $P428 = "38_1289761106.28882"
+ .const 'Sub' $P428 = "38_1293311618.59089"
capture_lex $P428
- .const 'Sub' $P421 = "37_1289761106.28882"
+ .const 'Sub' $P421 = "37_1293311618.59089"
capture_lex $P421
- .const 'Sub' $P405 = "36_1289761106.28882"
+ .const 'Sub' $P405 = "36_1293311618.59089"
capture_lex $P405
- .const 'Sub' $P330 = "34_1289761106.28882"
+ .const 'Sub' $P330 = "34_1293311618.59089"
capture_lex $P330
- .const 'Sub' $P267 = "31_1289761106.28882"
+ .const 'Sub' $P267 = "31_1293311618.59089"
capture_lex $P267
- .const 'Sub' $P258 = "30_1289761106.28882"
+ .const 'Sub' $P258 = "30_1293311618.59089"
capture_lex $P258
- .const 'Sub' $P249 = "29_1289761106.28882"
+ .const 'Sub' $P249 = "29_1293311618.59089"
capture_lex $P249
- .const 'Sub' $P240 = "28_1289761106.28882"
+ .const 'Sub' $P240 = "28_1293311618.59089"
capture_lex $P240
- .const 'Sub' $P231 = "27_1289761106.28882"
+ .const 'Sub' $P231 = "27_1293311618.59089"
capture_lex $P231
- .const 'Sub' $P222 = "26_1289761106.28882"
+ .const 'Sub' $P222 = "26_1293311618.59089"
capture_lex $P222
- .const 'Sub' $P212 = "25_1289761106.28882"
+ .const 'Sub' $P212 = "25_1293311618.59089"
capture_lex $P212
- .const 'Sub' $P202 = "24_1289761106.28882"
+ .const 'Sub' $P202 = "24_1293311618.59089"
capture_lex $P202
- .const 'Sub' $P194 = "23_1289761106.28882"
+ .const 'Sub' $P194 = "23_1293311618.59089"
capture_lex $P194
- .const 'Sub' $P184 = "22_1289761106.28882"
+ .const 'Sub' $P184 = "22_1293311618.59089"
capture_lex $P184
- .const 'Sub' $P174 = "21_1289761106.28882"
+ .const 'Sub' $P174 = "21_1293311618.59089"
capture_lex $P174
- .const 'Sub' $P73 = "18_1289761106.28882"
+ .const 'Sub' $P73 = "18_1293311618.59089"
capture_lex $P73
- .const 'Sub' $P35 = "15_1289761106.28882"
+ .const 'Sub' $P35 = "15_1293311618.59089"
capture_lex $P35
- .const 'Sub' $P28 = "14_1289761106.28882"
+ .const 'Sub' $P28 = "14_1293311618.59089"
capture_lex $P28
- .const 'Sub' $P22 = "13_1289761106.28882"
+ .const 'Sub' $P22 = "13_1293311618.59089"
capture_lex $P22
- .const 'Sub' $P15 = "12_1289761106.28882"
+ .const 'Sub' $P15 = "12_1293311618.59089"
capture_lex $P15
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
@@ -5671,24 +5670,23 @@ An operator precedence parser.
$P0."ctxsave"()
ctxsave_done:
.annotate 'line', 225
- .const 'Sub' $P605 = "53_1289761106.28882"
+ .const 'Sub' $P605 = "53_1293311618.59089"
newclosure $P622, $P605
.annotate 'line', 3
.return ($P622)
- .const 'Sub' $P624 = "54_1289761106.28882"
+ .const 'Sub' $P624 = "54_1293311618.59089"
.return ($P624)
.end
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "string_to_int" :subid("12_1289761106.28882") :outer("11_1289761106.28882")
+.sub "string_to_int" :subid("12_1293311618.59089") :outer("11_1293311618.59089")
.param pmc param_18
.param pmc param_19
.annotate 'line', 3
- new $P17, 'ExceptionHandler'
+ new $P17, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P17, control_16
- $P17."handle_types"(.CONTROL_RETURN)
push_eh $P17
.lex "$src", param_18
.lex "$base", param_19
@@ -5736,12 +5734,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "ints_to_string" :subid("13_1289761106.28882") :outer("11_1289761106.28882")
+.sub "ints_to_string" :subid("13_1293311618.59089") :outer("11_1293311618.59089")
.param pmc param_25
.annotate 'line', 37
- new $P24, 'ExceptionHandler'
+ new $P24, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P24, control_23
- $P24."handle_types"(.CONTROL_RETURN)
push_eh $P24
.lex "$ints", param_25
.annotate 'line', 38
@@ -5758,7 +5755,7 @@ An operator precedence parser.
$P0 = shift ints_it
$I0 = $P0.'ast'()
$S0 = chr $I0
- concat result, $S0
+ result = concat result, $S0
goto ints_loop
ints_1:
$I0 = ints.'ast'()
@@ -5778,11 +5775,10 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "CTXSAVE" :subid("14_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "CTXSAVE" :subid("14_1293311618.59089") :method :outer("11_1293311618.59089")
.annotate 'line', 62
- new $P30, 'ExceptionHandler'
+ new $P30, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P30, control_29
- $P30."handle_types"(.CONTROL_RETURN)
push_eh $P30
.lex "self", self
.annotate 'line', 63
@@ -5808,14 +5804,13 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "SET_BLOCK_OUTER_CTX" :subid("15_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "SET_BLOCK_OUTER_CTX" :subid("15_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_38
.annotate 'line', 76
- .const 'Sub' $P48 = "16_1289761106.28882"
+ .const 'Sub' $P48 = "16_1293311618.59089"
capture_lex $P48
- new $P37, 'ExceptionHandler'
+ new $P37, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P37, control_36
- $P37."handle_types"(.CONTROL_RETURN)
push_eh $P37
.lex "self", self
.lex "$block", param_38
@@ -5846,7 +5841,7 @@ An operator precedence parser.
set $P43, $I46
goto if_44_end
if_44:
- .const 'Sub' $P48 = "16_1289761106.28882"
+ .const 'Sub' $P48 = "16_1293311618.59089"
capture_lex $P48
$P71 = $P48()
set $P43, $P71
@@ -5863,9 +5858,9 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "_block47" :anon :subid("16_1289761106.28882") :outer("15_1289761106.28882")
+.sub "_block47" :anon :subid("16_1293311618.59089") :outer("15_1293311618.59089")
.annotate 'line', 78
- .const 'Sub' $P62 = "17_1289761106.28882"
+ .const 'Sub' $P62 = "17_1293311618.59089"
capture_lex $P62
.annotate 'line', 79
$P49 = root_new ['parrot';'ResizablePMCArray']
@@ -5895,7 +5890,7 @@ An operator precedence parser.
unless $P56, loop68_done
shift $P60, $P56
loop68_redo:
- .const 'Sub' $P62 = "17_1289761106.28882"
+ .const 'Sub' $P62 = "17_1293311618.59089"
capture_lex $P62
$P62($P60)
loop68_next:
@@ -5915,7 +5910,7 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
-.sub "_block61" :anon :subid("17_1289761106.28882") :outer("16_1289761106.28882")
+.sub "_block61" :anon :subid("17_1293311618.59089") :outer("16_1293311618.59089")
.param pmc param_63
.annotate 'line', 82
.lex "$_", param_63
@@ -5931,18 +5926,17 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "EXPR" :subid("18_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "EXPR" :subid("18_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_76
.param pmc param_77 :optional
.param int has_param_77 :opt_flag
.annotate 'line', 89
- .const 'Sub' $P156 = "20_1289761106.28882"
+ .const 'Sub' $P156 = "20_1293311618.59089"
capture_lex $P156
- .const 'Sub' $P123 = "19_1289761106.28882"
+ .const 'Sub' $P123 = "19_1293311618.59089"
capture_lex $P123
- new $P75, 'ExceptionHandler'
+ new $P75, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P75, control_74
- $P75."handle_types"(.CONTROL_RETURN)
push_eh $P75
.lex "self", self
.lex "$/", param_76
@@ -6073,7 +6067,7 @@ An operator precedence parser.
find_lex $P120, "$past"
$P121 = $P120."name"()
if $P121, unless_119_end
- .const 'Sub' $P123 = "19_1289761106.28882"
+ .const 'Sub' $P123 = "19_1293311618.59089"
capture_lex $P123
$P123()
unless_119_end:
@@ -6097,7 +6091,7 @@ An operator precedence parser.
unless $P150, loop167_done
shift $P154, $P150
loop167_redo:
- .const 'Sub' $P156 = "20_1289761106.28882"
+ .const 'Sub' $P156 = "20_1293311618.59089"
capture_lex $P156
$P156($P154)
loop167_next:
@@ -6142,7 +6136,7 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
-.sub "_block122" :anon :subid("19_1289761106.28882") :outer("18_1289761106.28882")
+.sub "_block122" :anon :subid("19_1293311618.59089") :outer("18_1293311618.59089")
.annotate 'line', 98
new $P124, "Undef"
.lex "$name", $P124
@@ -6192,7 +6186,7 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
-.sub "_block155" :anon :subid("20_1289761106.28882") :outer("18_1289761106.28882")
+.sub "_block155" :anon :subid("20_1293311618.59089") :outer("18_1293311618.59089")
.param pmc param_157
.annotate 'line', 109
.lex "$_", param_157
@@ -6216,12 +6210,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "term:sym<circumfix>" :subid("21_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "term:sym<circumfix>" :subid("21_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_177
.annotate 'line', 114
- new $P176, 'ExceptionHandler'
+ new $P176, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P176, control_175
- $P176."handle_types"(.CONTROL_RETURN)
push_eh $P176
.lex "self", self
.lex "$/", param_177
@@ -6247,12 +6240,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "termish" :subid("22_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "termish" :subid("22_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_187
.annotate 'line', 116
- new $P186, 'ExceptionHandler'
+ new $P186, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P186, control_185
- $P186."handle_types"(.CONTROL_RETURN)
push_eh $P186
.lex "self", self
.lex "$/", param_187
@@ -6278,12 +6270,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "nullterm" :subid("23_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "nullterm" :subid("23_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_197
.annotate 'line', 117
- new $P196, 'ExceptionHandler'
+ new $P196, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P196, control_195
- $P196."handle_types"(.CONTROL_RETURN)
push_eh $P196
.lex "self", self
.lex "$/", param_197
@@ -6301,12 +6292,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "nullterm_alt" :subid("24_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "nullterm_alt" :subid("24_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_205
.annotate 'line', 118
- new $P204, 'ExceptionHandler'
+ new $P204, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P204, control_203
- $P204."handle_types"(.CONTROL_RETURN)
push_eh $P204
.lex "self", self
.lex "$/", param_205
@@ -6332,12 +6322,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "integer" :subid("25_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "integer" :subid("25_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_215
.annotate 'line', 120
- new $P214, 'ExceptionHandler'
+ new $P214, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P214, control_213
- $P214."handle_types"(.CONTROL_RETURN)
push_eh $P214
.lex "self", self
.lex "$/", param_215
@@ -6363,12 +6352,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "dec_number" :subid("26_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "dec_number" :subid("26_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_225
.annotate 'line', 122
- new $P224, 'ExceptionHandler'
+ new $P224, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P224, control_223
- $P224."handle_types"(.CONTROL_RETURN)
push_eh $P224
.lex "self", self
.lex "$/", param_225
@@ -6387,12 +6375,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "decint" :subid("27_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "decint" :subid("27_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_234
.annotate 'line', 124
- new $P233, 'ExceptionHandler'
+ new $P233, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P233, control_232
- $P233."handle_types"(.CONTROL_RETURN)
push_eh $P233
.lex "self", self
.lex "$/", param_234
@@ -6411,12 +6398,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "hexint" :subid("28_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "hexint" :subid("28_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_243
.annotate 'line', 125
- new $P242, 'ExceptionHandler'
+ new $P242, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P242, control_241
- $P242."handle_types"(.CONTROL_RETURN)
push_eh $P242
.lex "self", self
.lex "$/", param_243
@@ -6435,12 +6421,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "octint" :subid("29_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "octint" :subid("29_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_252
.annotate 'line', 126
- new $P251, 'ExceptionHandler'
+ new $P251, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P251, control_250
- $P251."handle_types"(.CONTROL_RETURN)
push_eh $P251
.lex "self", self
.lex "$/", param_252
@@ -6459,12 +6444,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "binint" :subid("30_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "binint" :subid("30_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_261
.annotate 'line', 127
- new $P260, 'ExceptionHandler'
+ new $P260, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P260, control_259
- $P260."handle_types"(.CONTROL_RETURN)
push_eh $P260
.lex "self", self
.lex "$/", param_261
@@ -6483,14 +6467,13 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_EXPR" :subid("31_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_EXPR" :subid("31_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_270
.annotate 'line', 129
- .const 'Sub' $P286 = "32_1289761106.28882"
+ .const 'Sub' $P286 = "32_1293311618.59089"
capture_lex $P286
- new $P269, 'ExceptionHandler'
+ new $P269, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P269, control_268
- $P269."handle_types"(.CONTROL_RETURN)
push_eh $P269
.lex "self", self
.lex "$/", param_270
@@ -6518,7 +6501,7 @@ An operator precedence parser.
$P282 = $P280."ACCEPTS"($P281)
if $P282, if_279
.annotate 'line', 135
- .const 'Sub' $P286 = "32_1289761106.28882"
+ .const 'Sub' $P286 = "32_1293311618.59089"
capture_lex $P286
$P286()
goto if_279_end
@@ -6558,9 +6541,9 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "_block285" :anon :subid("32_1289761106.28882") :outer("31_1289761106.28882")
+.sub "_block285" :anon :subid("32_1293311618.59089") :outer("31_1293311618.59089")
.annotate 'line', 135
- .const 'Sub' $P305 = "33_1289761106.28882"
+ .const 'Sub' $P305 = "33_1293311618.59089"
capture_lex $P305
.annotate 'line', 136
$P287 = root_new ['parrot';'ResizablePMCArray']
@@ -6611,7 +6594,7 @@ An operator precedence parser.
unless $P300, loop310_done
shift $P303, $P300
loop310_redo:
- .const 'Sub' $P305 = "33_1289761106.28882"
+ .const 'Sub' $P305 = "33_1293311618.59089"
capture_lex $P305
$P305($P303)
loop310_next:
@@ -6634,7 +6617,7 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
-.sub "_block304" :anon :subid("33_1289761106.28882") :outer("32_1289761106.28882")
+.sub "_block304" :anon :subid("33_1293311618.59089") :outer("32_1293311618.59089")
.param pmc param_306
.annotate 'line', 139
.lex "$_", param_306
@@ -6647,14 +6630,13 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_delimited" :subid("34_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_delimited" :subid("34_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_333
.annotate 'line', 152
- .const 'Sub' $P345 = "35_1289761106.28882"
+ .const 'Sub' $P345 = "35_1293311618.59089"
capture_lex $P345
- new $P332, 'ExceptionHandler'
+ new $P332, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P332, control_331
- $P332."handle_types"(.CONTROL_RETURN)
push_eh $P332
.lex "self", self
.lex "$/", param_333
@@ -6693,7 +6675,7 @@ An operator precedence parser.
unless $P339, loop377_done
shift $P343, $P339
loop377_redo:
- .const 'Sub' $P345 = "35_1289761106.28882"
+ .const 'Sub' $P345 = "35_1293311618.59089"
capture_lex $P345
$P345($P343)
loop377_next:
@@ -6771,7 +6753,7 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
-.sub "_block344" :anon :subid("35_1289761106.28882") :outer("34_1289761106.28882")
+.sub "_block344" :anon :subid("35_1293311618.59089") :outer("34_1293311618.59089")
.param pmc param_347
.annotate 'line', 156
new $P346, "Undef"
@@ -6841,12 +6823,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_atom" :subid("36_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_atom" :subid("36_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_408
.annotate 'line', 177
- new $P407, 'ExceptionHandler'
+ new $P407, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P407, control_406
- $P407."handle_types"(.CONTROL_RETURN)
push_eh $P407
.lex "self", self
.lex "$/", param_408
@@ -6891,12 +6872,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<backslash>" :subid("37_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<backslash>" :subid("37_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_424
.annotate 'line', 181
- new $P423, 'ExceptionHandler'
+ new $P423, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P423, control_422
- $P423."handle_types"(.CONTROL_RETURN)
push_eh $P423
.lex "self", self
.lex "$/", param_424
@@ -6913,12 +6893,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<stopper>" :subid("38_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<stopper>" :subid("38_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_431
.annotate 'line', 182
- new $P430, 'ExceptionHandler'
+ new $P430, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P430, control_429
- $P430."handle_types"(.CONTROL_RETURN)
push_eh $P430
.lex "self", self
.lex "$/", param_431
@@ -6944,12 +6923,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<bs>" :subid("39_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<bs>" :subid("39_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_441
.annotate 'line', 184
- new $P440, 'ExceptionHandler'
+ new $P440, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P440, control_439
- $P440."handle_types"(.CONTROL_RETURN)
push_eh $P440
.lex "self", self
.lex "$/", param_441
@@ -6966,12 +6944,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<nl>" :subid("40_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<nl>" :subid("40_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_448
.annotate 'line', 185
- new $P447, 'ExceptionHandler'
+ new $P447, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P447, control_446
- $P447."handle_types"(.CONTROL_RETURN)
push_eh $P447
.lex "self", self
.lex "$/", param_448
@@ -6988,12 +6965,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<cr>" :subid("41_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<cr>" :subid("41_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_455
.annotate 'line', 186
- new $P454, 'ExceptionHandler'
+ new $P454, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P454, control_453
- $P454."handle_types"(.CONTROL_RETURN)
push_eh $P454
.lex "self", self
.lex "$/", param_455
@@ -7010,12 +6986,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<tab>" :subid("42_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<tab>" :subid("42_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_462
.annotate 'line', 187
- new $P461, 'ExceptionHandler'
+ new $P461, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P461, control_460
- $P461."handle_types"(.CONTROL_RETURN)
push_eh $P461
.lex "self", self
.lex "$/", param_462
@@ -7032,12 +7007,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<ff>" :subid("43_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<ff>" :subid("43_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_469
.annotate 'line', 188
- new $P468, 'ExceptionHandler'
+ new $P468, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P468, control_467
- $P468."handle_types"(.CONTROL_RETURN)
push_eh $P468
.lex "self", self
.lex "$/", param_469
@@ -7054,12 +7028,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<esc>" :subid("44_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<esc>" :subid("44_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_476
.annotate 'line', 189
- new $P475, 'ExceptionHandler'
+ new $P475, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P475, control_474
- $P475."handle_types"(.CONTROL_RETURN)
push_eh $P475
.lex "self", self
.lex "$/", param_476
@@ -7076,12 +7049,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<hex>" :subid("45_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<hex>" :subid("45_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_483
.annotate 'line', 191
- new $P482, 'ExceptionHandler'
+ new $P482, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P482, control_481
- $P482."handle_types"(.CONTROL_RETURN)
push_eh $P482
.lex "self", self
.lex "$/", param_483
@@ -7135,12 +7107,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<oct>" :subid("46_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<oct>" :subid("46_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_500
.annotate 'line', 195
- new $P499, 'ExceptionHandler'
+ new $P499, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P499, control_498
- $P499."handle_types"(.CONTROL_RETURN)
push_eh $P499
.lex "self", self
.lex "$/", param_500
@@ -7194,12 +7165,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<chr>" :subid("47_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<chr>" :subid("47_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_517
.annotate 'line', 199
- new $P516, 'ExceptionHandler'
+ new $P516, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P516, control_515
- $P516."handle_types"(.CONTROL_RETURN)
push_eh $P516
.lex "self", self
.lex "$/", param_517
@@ -7227,12 +7197,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<0>" :subid("48_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<0>" :subid("48_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_527
.annotate 'line', 203
- new $P526, 'ExceptionHandler'
+ new $P526, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P526, control_525
- $P526."handle_types"(.CONTROL_RETURN)
push_eh $P526
.lex "self", self
.lex "$/", param_527
@@ -7251,12 +7220,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "quote_escape:sym<misc>" :subid("49_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "quote_escape:sym<misc>" :subid("49_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_534
.annotate 'line', 207
- new $P533, 'ExceptionHandler'
+ new $P533, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P533, control_532
- $P533."handle_types"(.CONTROL_RETURN)
push_eh $P533
.lex "self", self
.lex "$/", param_534
@@ -7310,12 +7278,11 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "charname" :subid("50_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "charname" :subid("50_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_553
.annotate 'line', 211
- new $P552, 'ExceptionHandler'
+ new $P552, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P552, control_551
- $P552."handle_types"(.CONTROL_RETURN)
push_eh $P552
.lex "self", self
.lex "$/", param_553
@@ -7384,14 +7351,13 @@ An operator precedence parser.
.namespace ["HLL";"Actions"]
.include "except_types.pasm"
-.sub "charnames" :subid("51_1289761106.28882") :method :outer("11_1289761106.28882")
+.sub "charnames" :subid("51_1293311618.59089") :method :outer("11_1293311618.59089")
.param pmc param_583
.annotate 'line', 219
- .const 'Sub' $P592 = "52_1289761106.28882"
+ .const 'Sub' $P592 = "52_1293311618.59089"
capture_lex $P592
- new $P582, 'ExceptionHandler'
+ new $P582, ['ExceptionHandler'], .CONTROL_RETURN
set_addr $P582, control_581
- $P582."handle_types"(.CONTROL_RETURN)
push_eh $P582
.lex "self", self
.lex "$/", param_583
@@ -7421,7 +7387,7 @@ An operator precedence parser.
unless $P586, loop598_done
shift $P590, $P586
loop598_redo:
- .const 'Sub' $P592 = "52_1289761106.28882"
+ .const 'Sub' $P592 = "52_1293311618.59089"
capture_lex $P592
$P592($P590)