File tree Expand file tree Collapse file tree 1 file changed +1
-14
lines changed Expand file tree Collapse file tree 1 file changed +1
-14
lines changed Original file line number Diff line number Diff line change @@ -1131,17 +1131,6 @@ class QAST::Compiler is HLL::Compiler {
1131
1131
$ ops . result(% * REG <cur >);
1132
1132
$ ops ;
1133
1133
}
1134
-
1135
- method post_children ($ node ) {
1136
- my $ posts := PIRT::Ops. new ();
1137
- my @ results ;
1138
- for @ ($ node ) {
1139
- my $ sval := self . as_post(QAST ::SVal. new ( : value(~ $ _ ) ));
1140
- $ posts . push ($ sval );
1141
- nqp :: push (@ results , $ sval . result);
1142
- }
1143
- [$ posts , @ results ]
1144
- }
1145
1134
1146
1135
method children ($ node ) {
1147
1136
my $ posts := PIRT::Ops. new ();
@@ -1513,9 +1502,7 @@ class QAST::Compiler is HLL::Compiler {
1513
1502
my $ ops := self . post_new(' Ops' , : result(% * REG <cur >));
1514
1503
my $ name := nqp :: defined ($ node . name ) ?? self . escape($ node . name ) !! ' ' ;
1515
1504
my $ subtype := $ node . subtype;
1516
- my $ cpn := nqp ::istype($ node [0 ], QAST ::Node)
1517
- ?? self . children($ node [0 ])
1518
- !! self . post_children($ node [0 ]);
1505
+ my $ cpn := self . children($ node [0 ]);
1519
1506
my @ pargs := $ cpn [1 ] // [];
1520
1507
my @ nargs := $ cpn [2 ] // [];
1521
1508
my $ subpost := nqp :: shift (@ pargs );
You can’t perform that action at this time.
0 commit comments