ext/B/t/optree_misc.t

   1 #!perl
   2
   3 BEGIN {
   4     unshift @INC, 't';
   5     require Config;
   6     if (($Config::Config{'extensions'} !~ /\bB\b/) ){
   7         print "1..0 # Skip -- Perl configured without B module\n";
   8         exit 0;
   9     }
  10 }
  11 use OptreeCheck;
  12 use Config;
  13 plan tests => 18;
  14
  15 SKIP: {
  16 skip "no perlio in this build", 4 unless $Config::Config{useperlio};
  17
  18 # The regression this was testing is that the first aelemfast, derived
  19 # from a lexical array, is supposed to be a BASEOP "<0>", while the
  20 # second, from a global, is an SVOP "<$>" or a PADOP "<#>" depending
  21 # on threading. In buggy versions, both showed up as SVOPs/PADOPs. See
  22 # B.xs:cc_opclass() for the relevant code.
  23
  24 # All this is much simpler, now that aelemfast_lex has been broken out from
  25 # aelemfast
  26 checkOptree ( name      => 'OP_AELEMFAST opclass',
  27               code      => sub { my @x; our @y; $x[127] + $y[-128]},
  28               strip_open_hints => 1,
  29               expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
  30 # 7  <1> leavesub[1 ref] K/REFC,1 ->(end)
  31 # -     <@> lineseq KP ->7
  32 # 1        <;> nextstate(main 634 optree_misc.t:25) v:>,<,% ->2
  33 # 2        <0> padav[@x:634,636] vM/LVINTRO ->3
  34 # -        <;> ex-nextstate(main 1594 optree_misc.t:27) v:>,<,% ->3
  35 # -        <1> rv2av[t4] vK/OURINTR,1 ->3
  36 # -           <#> gv[*y] s ->-
  37 # 3        <;> nextstate(main 636 optree_misc.t:25) v:>,<,%,{ ->4
  38 # 6        <2> add[t6] sK/2 ->7
  39 # -           <1> ex-aelem sK/2 ->5
  40 # 4              <0> aelemfast_lex[@x:634,636] sR/key=127 ->5
  41 # -              <0> ex-const s ->-
  42 # -           <1> ex-aelem sK/2 ->6
  43 # -              <1> ex-rv2av sKR/1 ->-
  44 # 5                 <#> aelemfast[*y] s/key=128 ->6
  45 # -              <0> ex-const s/FOLD ->-
  46 EOT_EOT
  47 # 7  <1> leavesub[1 ref] K/REFC,1 ->(end)
  48 # -     <@> lineseq KP ->7
  49 # 1        <;> nextstate(main 634 optree_misc.t:27) v:>,<,% ->2
  50 # 2        <0> padav[@x:634,636] vM/LVINTRO ->3
  51 # -        <;> ex-nextstate(main 1594 optree_misc.t:27) v:>,<,% ->3
  52 # -        <1> rv2av[t3] vK/OURINTR,1 ->3
  53 # -           <$> gv(*y) s ->-
  54 # 3        <;> nextstate(main 636 optree_misc.t:27) v:>,<,%,{ ->4
  55 # 6        <2> add[t4] sK/2 ->7
  56 # -           <1> ex-aelem sK/2 ->5
  57 # 4              <0> aelemfast_lex[@x:634,636] sR/key=127 ->5
  58 # -              <0> ex-const s ->-
  59 # -           <1> ex-aelem sK/2 ->6
  60 # -              <1> ex-rv2av sKR/1 ->-
  61 # 5                 <$> aelemfast(*y) s/key=128 ->6
  62 # -              <0> ex-const s/FOLD ->-
  63 EONT_EONT
  64
  65 checkOptree ( name      => 'PMOP children',
  66               code      => sub { $foo =~ s/(a)/$1/ },
  67               strip_open_hints => 1,
  68               expect => <<'EOT_EOT',   expect_nt => <<'EONT_EONT');
  69 # 5  <1> leavesub[1 ref] K/REFC,1 ->(end)
  70 # -     <@> lineseq KP ->5
  71 # 1        <;> nextstate(main 1 -e:1) v:>,<,%,{ ->2
  72 # 4        </> subst(/"(a)"/) sKS ->5
  73 # -           <1> ex-rv2sv sKRM/1 ->3
  74 # 2              <#> gvsv[*foo] s ->3
  75 # -           <1> ex-rv2sv sK/1 ->4
  76 # 3              <#> gvsv[*1] s ->4
  77 EOT_EOT
  78 # 5  <1> leavesub[1 ref] K/REFC,1 ->(end)
  79 # -     <@> lineseq KP ->5
  80 # 1        <;> nextstate(main 1 -e:1) v:>,<,%,{ ->2
  81 # 4        </> subst(/"(a)"/) sKS ->5
  82 # -           <1> ex-rv2sv sKRM/1 ->3
  83 # 2              <$> gvsv(*foo) s ->3
  84 # -           <1> ex-rv2sv sK/1 ->4
  85 # 3              <$> gvsv(*1) s ->4
  86 EONT_EONT
  87
  88 } #skip
  89
  90 my $t = <<'EOT_EOT';
  91 # 8  <@> leave[1 ref] vKP/REFC ->(end)
  92 # 1     <0> enter ->2
  93 # 2     <;> nextstate(main 1 -e:1) v:>,<,%,{ ->3
  94 # 7     <2> sassign vKS/2 ->8
  95 # 5        <@> index[t2] sK/2 ->6
  96 # -           <0> ex-pushmark s ->3
  97 # 3           <$> const[PV "foo"] s ->4
  98 # 4           <$> const[PVMG "foo"] s ->5
  99 # -        <1> ex-rv2sv sKRM*/1 ->7
 100 # 6           <#> gvsv[*_] s ->7
 101 EOT_EOT
 102 my $nt = <<'EONT_EONT';
 103 # 8  <@> leave[1 ref] vKP/REFC ->(end)
 104 # 1     <0> enter ->2
 105 # 2     <;> nextstate(main 1 -e:1) v:>,<,%,{ ->3
 106 # 7     <2> sassign vKS/2 ->8
 107 # 5        <@> index[t1] sK/2 ->6
 108 # -           <0> ex-pushmark s ->3
 109 # 3           <$> const(PV "foo") s ->4
 110 # 4           <$> const(PVMG "foo") s ->5
 111 # -        <1> ex-rv2sv sKRM*/1 ->7
 112 # 6           <$> gvsv(*_) s ->7
 113 EONT_EONT
 114
 115 checkOptree ( name      => 'index and PVBM',
 116               prog      => '$_ = index q(foo), q(foo)',
 117               strip_open_hints => 1,
 118               expect    => $t,  expect_nt => $nt);
 119
 120 my $tmpfile = tempfile();
 121 open my $fh, '>', $tmpfile or die "Cannot open $tmpfile: $!";
 122 print $fh "no warnings;format =\n@<<<\n\$a\n@>>>\n\@b\n.";
 123 close $fh;
 124
 125 checkOptree ( name      => 'formats',
 126               bcopts    => 'STDOUT',
 127               progfile  => $tmpfile,
 128               strip_open_hints => 1,
 129               expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 130 # main::STDOUT (FORMAT):
 131 # c  <1> leavewrite[1 ref] K/REFC,1 ->(end)
 132 # -     <@> lineseq KP ->c
 133 # 1        <;> nextstate(main 1 -:4) v:>,<,% ->2
 134 # 5        <@> formline vK/2 ->6
 135 # 2           <0> pushmark s ->3
 136 # 3           <$> const[PV "@<<<\n"] s ->4
 137 # -           <@> lineseq lK ->5
 138 # -              <;> ex-nextstate(main 3 tmp35894B:3) v:>,<,% ->4
 139 # -              <1> ex-rv2sv sK/1 ->-
 140 # 4                 <#> gvsv[*a] s ->5
 141 # 6        <;> nextstate(main 1 -:6) v:>,<,% ->7
 142 # b        <@> formline sK/2 ->c
 143 # 7           <0> pushmark s ->8
 144 # 8           <$> const[PV "@>>>\n"] s ->9
 145 # -           <@> lineseq lK ->b
 146 # -              <;> ex-nextstate(main 3 tmp35894B:5) v:>,<,% ->9
 147 # a              <1> rv2av[t3] lK/1 ->b
 148 # 9                 <#> gv[*b] s ->a
 149 EOT_EOT
 150 # main::STDOUT (FORMAT):
 151 # c  <1> leavewrite[1 ref] K/REFC,1 ->(end)
 152 # -     <@> lineseq KP ->c
 153 # 1        <;> nextstate(main 1 -:4) v:>,<,% ->2
 154 # 5        <@> formline vK/2 ->6
 155 # 2           <0> pushmark s ->3
 156 # 3           <$> const(PV "@<<<\n") s ->4
 157 # -           <@> lineseq lK ->5
 158 # -              <;> ex-nextstate(main 3 tmp35894B:3) v:>,<,% ->4
 159 # -              <1> ex-rv2sv sK/1 ->-
 160 # 4                 <$> gvsv(*a) s ->5
 161 # 6        <;> nextstate(main 1 -:6) v:>,<,% ->7
 162 # b        <@> formline sK/2 ->c
 163 # 7           <0> pushmark s ->8
 164 # 8           <$> const(PV "@>>>\n") s ->9
 165 # -           <@> lineseq lK ->b
 166 # -              <;> ex-nextstate(main 3 tmp35894B:5) v:>,<,% ->9
 167 # a              <1> rv2av[t3] lK/1 ->b
 168 # 9                 <$> gv(*b) s ->a
 169 EONT_EONT
 170
 171 checkOptree ( name      => 'padrange',
 172               code      => sub { my ($x,$y); @a = ($x,$y); ($x,$y) = @a },
 173               strip_open_hints => 1,
 174               expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 175 # f  <1> leavesub[1 ref] K/REFC,1 ->(end)
 176 # -     <@> lineseq KP ->f
 177 # 1        <;> nextstate(main 1 -e:1) v:>,<,% ->2
 178 # -        <@> list vKP ->3
 179 # 2           <0> padrange[$x:1,2; $y:1,2] vM/LVINTRO,range=2 ->3
 180 # -           <0> padsv[$x:1,2] vM/LVINTRO ->-
 181 # -           <0> padsv[$y:1,2] vM/LVINTRO ->-
 182 # 3        <;> nextstate(main 2 -e:1) v:>,<,% ->4
 183 # 8        <2> aassign[t4] vKS/COM_AGG ->9
 184 # -           <1> ex-list lKP ->5
 185 # 4              <0> padrange[$x:1,2; $y:1,2] /range=2 ->5
 186 # -              <0> padsv[$x:1,2] s ->-
 187 # -              <0> padsv[$y:1,2] s ->-
 188 # -           <1> ex-list lK ->8
 189 # 5              <0> pushmark s ->6
 190 # 7              <1> rv2av[t3] lKRM*/1 ->8
 191 # 6                 <#> gv[*a] s ->7
 192 # 9        <;> nextstate(main 2 -e:1) v:>,<,%,{ ->a
 193 # e        <2> aassign[t6] KS/COM_RC1 ->f
 194 # -           <1> ex-list lK ->d
 195 # a              <0> pushmark s ->b
 196 # c              <1> rv2av[t5] lK/1 ->d
 197 # b                 <#> gv[*a] s ->c
 198 # -           <1> ex-list lKPRM* ->e
 199 # d              <0> padrange[$x:1,2; $y:1,2] RM/range=2 ->e
 200 # -              <0> padsv[$x:1,2] sRM* ->-
 201 # -              <0> padsv[$y:1,2] sRM* ->-
 202 EOT_EOT
 203 # f  <1> leavesub[1 ref] K/REFC,1 ->(end)
 204 # -     <@> lineseq KP ->f
 205 # 1        <;> nextstate(main 1 -e:1) v:>,<,% ->2
 206 # -        <@> list vKP ->3
 207 # 2           <0> padrange[$x:1,2; $y:1,2] vM/LVINTRO,range=2 ->3
 208 # -           <0> padsv[$x:1,2] vM/LVINTRO ->-
 209 # -           <0> padsv[$y:1,2] vM/LVINTRO ->-
 210 # 3        <;> nextstate(main 2 -e:1) v:>,<,% ->4
 211 # 8        <2> aassign[t4] vKS/COM_AGG ->9
 212 # -           <1> ex-list lKP ->5
 213 # 4              <0> padrange[$x:1,2; $y:1,2] /range=2 ->5
 214 # -              <0> padsv[$x:1,2] s ->-
 215 # -              <0> padsv[$y:1,2] s ->-
 216 # -           <1> ex-list lK ->8
 217 # 5              <0> pushmark s ->6
 218 # 7              <1> rv2av[t3] lKRM*/1 ->8
 219 # 6                 <$> gv(*a) s ->7
 220 # 9        <;> nextstate(main 2 -e:1) v:>,<,%,{ ->a
 221 # e        <2> aassign[t6] KS/COM_RC1 ->f
 222 # -           <1> ex-list lK ->d
 223 # a              <0> pushmark s ->b
 224 # c              <1> rv2av[t5] lK/1 ->d
 225 # b                 <$> gv(*a) s ->c
 226 # -           <1> ex-list lKPRM* ->e
 227 # d              <0> padrange[$x:1,2; $y:1,2] RM/range=2 ->e
 228 # -              <0> padsv[$x:1,2] sRM* ->-
 229 # -              <0> padsv[$y:1,2] sRM* ->-
 230 EONT_EONT
 231
 232 checkOptree ( name      => 'padrange and @_',
 233               code      => sub { my ($a,$b) = @_;
 234                                  my ($c,$d) = @X::_;
 235                                  package Y;
 236                                  my ($e,$f) = @_;
 237                              },
 238               strip_open_hints => 1,
 239               expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 240 # d  <1> leavesub[1 ref] K/REFC,1 ->(end)
 241 # -     <@> lineseq KP ->d
 242 # 1        <;> nextstate(main 1 p3:1) v:>,<,% ->2
 243 # 3        <2> aassign[t5] vKS ->4
 244 # -           <1> ex-list lK ->-
 245 # 2              <0> padrange[$a:1,4; $b:1,4] */LVINTRO,range=2 ->3
 246 # -              <1> rv2av[t4] lK/1 ->-
 247 # -                 <#> gv[*_] s ->-
 248 # -           <1> ex-list lKPRM* ->3
 249 # -              <0> pushmark sRM*/LVINTRO ->-
 250 # -              <0> padsv[$a:1,4] sRM*/LVINTRO ->-
 251 # -              <0> padsv[$b:1,4] sRM*/LVINTRO ->-
 252 # 4        <;> nextstate(main 2 p3:2) v:>,<,% ->5
 253 # 9        <2> aassign[t10] vKS/COM_RC1 ->a
 254 # -           <1> ex-list lK ->8
 255 # 5              <0> pushmark s ->6
 256 # 7              <1> rv2av[t9] lK/1 ->8
 257 # 6                 <#> gv[*X::_] s ->7
 258 # -           <1> ex-list lKPRM* ->9
 259 # 8              <0> padrange[$c:2,4; $d:2,4] RM/LVINTRO,range=2 ->9
 260 # -              <0> padsv[$c:2,4] sRM*/LVINTRO ->-
 261 # -              <0> padsv[$d:2,4] sRM*/LVINTRO ->-
 262 # a        <;> nextstate(Y 3 p3:4) v:>,<,%,{ ->b
 263 # c        <2> aassign[t15] KS ->d
 264 # -           <1> ex-list lK ->-
 265 # b              <0> padrange[$e:3,4; $f:3,4] */LVINTRO,range=2 ->c
 266 # -              <1> rv2av[t14] lK/1 ->-
 267 # -                 <#> gv[*_] s ->-
 268 # -           <1> ex-list lKPRM* ->c
 269 # -              <0> pushmark sRM*/LVINTRO ->-
 270 # -              <0> padsv[$e:3,4] sRM*/LVINTRO ->-
 271 # -              <0> padsv[$f:3,4] sRM*/LVINTRO ->-
 272 EOT_EOT
 273 # d  <1> leavesub[1 ref] K/REFC,1 ->(end)
 274 # -     <@> lineseq KP ->d
 275 # 1        <;> nextstate(main 1 p3:1) v:>,<,% ->2
 276 # 3        <2> aassign[t5] vKS ->4
 277 # -           <1> ex-list lK ->-
 278 # 2              <0> padrange[$a:1,4; $b:1,4] */LVINTRO,range=2 ->3
 279 # -              <1> rv2av[t4] lK/1 ->-
 280 # -                 <$> gv(*_) s ->-
 281 # -           <1> ex-list lKPRM* ->3
 282 # -              <0> pushmark sRM*/LVINTRO ->-
 283 # -              <0> padsv[$a:1,4] sRM*/LVINTRO ->-
 284 # -              <0> padsv[$b:1,4] sRM*/LVINTRO ->-
 285 # 4        <;> nextstate(main 2 p3:2) v:>,<,% ->5
 286 # 9        <2> aassign[t10] vKS/COM_RC1 ->a
 287 # -           <1> ex-list lK ->8
 288 # 5              <0> pushmark s ->6
 289 # 7              <1> rv2av[t9] lK/1 ->8
 290 # 6                 <$> gv(*X::_) s ->7
 291 # -           <1> ex-list lKPRM* ->9
 292 # 8              <0> padrange[$c:2,4; $d:2,4] RM/LVINTRO,range=2 ->9
 293 # -              <0> padsv[$c:2,4] sRM*/LVINTRO ->-
 294 # -              <0> padsv[$d:2,4] sRM*/LVINTRO ->-
 295 # a        <;> nextstate(Y 3 p3:4) v:>,<,%,{ ->b
 296 # c        <2> aassign[t15] KS ->d
 297 # -           <1> ex-list lK ->-
 298 # b              <0> padrange[$e:3,4; $f:3,4] */LVINTRO,range=2 ->c
 299 # -              <1> rv2av[t14] lK/1 ->-
 300 # -                 <$> gv(*_) s ->-
 301 # -           <1> ex-list lKPRM* ->c
 302 # -              <0> pushmark sRM*/LVINTRO ->-
 303 # -              <0> padsv[$e:3,4] sRM*/LVINTRO ->-
 304 # -              <0> padsv[$f:3,4] sRM*/LVINTRO ->-
 305 EONT_EONT
 306
 307 checkOptree ( name      => 'consolidate padranges',
 308               code      => sub { my ($a,$b); my ($c,$d); 1 },
 309               strip_open_hints => 1,
 310               expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 311 # 5  <1> leavesub[1 ref] K/REFC,1 ->(end)
 312 # -     <@> lineseq KP ->5
 313 # 1        <;> nextstate(main 900 optree_misc.t:334) v:>,<,% ->2
 314 # -        <@> list vKP ->-
 315 # 2           <0> padrange[$a:900,902; $b:900,902; $c:901,902; $d:901,902] vM/LVINTRO,range=4 ->3
 316 # -           <0> padsv[$a:900,902] vM/LVINTRO ->-
 317 # -           <0> padsv[$b:900,902] vM/LVINTRO ->-
 318 # -        <;> nextstate(main 901 optree_misc.t:334) v:>,<,% ->-
 319 # -        <@> list vKP ->3
 320 # -           <0> pushmark vM/LVINTRO ->-
 321 # -           <0> padsv[$c:901,902] vM/LVINTRO ->-
 322 # -           <0> padsv[$d:901,902] vM/LVINTRO ->-
 323 # 3        <;> nextstate(main 902 optree_misc.t:334) v:>,<,%,{ ->4
 324 # 4        <$> const[IV 1] s ->5
 325 EOT_EOT
 326 # 5  <1> leavesub[1 ref] K/REFC,1 ->(end)
 327 # -     <@> lineseq KP ->5
 328 # 1        <;> nextstate(main 900 optree_misc.t:334) v:>,<,% ->2
 329 # -        <@> list vKP ->-
 330 # 2           <0> padrange[$a:900,902; $b:900,902; $c:901,902; $d:901,902] vM/LVINTRO,range=4 ->3
 331 # -           <0> padsv[$a:900,902] vM/LVINTRO ->-
 332 # -           <0> padsv[$b:900,902] vM/LVINTRO ->-
 333 # -        <;> nextstate(main 901 optree_misc.t:334) v:>,<,% ->-
 334 # -        <@> list vKP ->3
 335 # -           <0> pushmark vM/LVINTRO ->-
 336 # -           <0> padsv[$c:901,902] vM/LVINTRO ->-
 337 # -           <0> padsv[$d:901,902] vM/LVINTRO ->-
 338 # 3        <;> nextstate(main 902 optree_misc.t:334) v:>,<,%,{ ->4
 339 # 4        <$> const(IV 1) s ->5
 340 EONT_EONT
 341
 342
 343 checkOptree ( name      => 'consolidate padranges and singletons',
 344               code      => sub { my ($a,$b); my $c; my ($d,$e);
 345                                  my @f; my $g; my ($h,$i); my %j; 1 },
 346               strip_open_hints => 1,
 347               expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 348 # 5  <1> leavesub[1 ref] K/REFC,1 ->(end)
 349 # -     <@> lineseq KP ->5
 350 # 1        <;> nextstate(main 903 optree_misc.t:371) v:>,<,% ->2
 351 # -        <@> list vKP ->-
 352 # 2           <0> padrange[$a:903,910; $b:903,910; $c:904,910; $d:905,910; $e:905,910; @f:906,910; $g:907,910; $h:908,910; $i:908,910; %j:909,910] vM/LVINTRO,range=10 ->3
 353 # -           <0> padsv[$a:903,910] vM/LVINTRO ->-
 354 # -           <0> padsv[$b:903,910] vM/LVINTRO ->-
 355 # -        <;> nextstate(main 904 optree_misc.t:371) v:>,<,% ->-
 356 # -        <0> padsv[$c:904,910] vM/LVINTRO ->-
 357 # -        <;> nextstate(main 905 optree_misc.t:371) v:>,<,%,{ ->-
 358 # -        <@> list vKP ->-
 359 # -           <0> pushmark vM/LVINTRO ->-
 360 # -           <0> padsv[$d:905,910] vM/LVINTRO ->-
 361 # -           <0> padsv[$e:905,910] vM/LVINTRO ->-
 362 # -        <;> nextstate(main 906 optree_misc.t:372) v:>,<,%,{ ->-
 363 # -        <0> padav[@f:906,910] vM/LVINTRO ->-
 364 # -        <;> nextstate(main 907 optree_misc.t:372) v:>,<,%,{ ->-
 365 # -        <0> padsv[$g:907,910] vM/LVINTRO ->-
 366 # -        <;> nextstate(main 908 optree_misc.t:372) v:>,<,%,{ ->-
 367 # -        <@> list vKP ->-
 368 # -           <0> pushmark vM/LVINTRO ->-
 369 # -           <0> padsv[$h:908,910] vM/LVINTRO ->-
 370 # -           <0> padsv[$i:908,910] vM/LVINTRO ->-
 371 # -        <;> nextstate(main 909 optree_misc.t:372) v:>,<,%,{ ->-
 372 # -        <0> padhv[%j:909,910] vM/LVINTRO ->3
 373 # 3        <;> nextstate(main 910 optree_misc.t:372) v:>,<,%,{ ->4
 374 # 4        <$> const[IV 1] s ->5
 375 EOT_EOT
 376 # 5  <1> leavesub[1 ref] K/REFC,1 ->(end)
 377 # -     <@> lineseq KP ->5
 378 # 1        <;> nextstate(main 903 optree_misc.t:371) v:>,<,% ->2
 379 # -        <@> list vKP ->-
 380 # 2           <0> padrange[$a:903,910; $b:903,910; $c:904,910; $d:905,910; $e:905,910; @f:906,910; $g:907,910; $h:908,910; $i:908,910; %j:909,910] vM/LVINTRO,range=10 ->3
 381 # -           <0> padsv[$a:903,910] vM/LVINTRO ->-
 382 # -           <0> padsv[$b:903,910] vM/LVINTRO ->-
 383 # -        <;> nextstate(main 904 optree_misc.t:371) v:>,<,% ->-
 384 # -        <0> padsv[$c:904,910] vM/LVINTRO ->-
 385 # -        <;> nextstate(main 905 optree_misc.t:371) v:>,<,%,{ ->-
 386 # -        <@> list vKP ->-
 387 # -           <0> pushmark vM/LVINTRO ->-
 388 # -           <0> padsv[$d:905,910] vM/LVINTRO ->-
 389 # -           <0> padsv[$e:905,910] vM/LVINTRO ->-
 390 # -        <;> nextstate(main 906 optree_misc.t:372) v:>,<,%,{ ->-
 391 # -        <0> padav[@f:906,910] vM/LVINTRO ->-
 392 # -        <;> nextstate(main 907 optree_misc.t:372) v:>,<,%,{ ->-
 393 # -        <0> padsv[$g:907,910] vM/LVINTRO ->-
 394 # -        <;> nextstate(main 908 optree_misc.t:372) v:>,<,%,{ ->-
 395 # -        <@> list vKP ->-
 396 # -           <0> pushmark vM/LVINTRO ->-
 397 # -           <0> padsv[$h:908,910] vM/LVINTRO ->-
 398 # -           <0> padsv[$i:908,910] vM/LVINTRO ->-
 399 # -        <;> nextstate(main 909 optree_misc.t:372) v:>,<,%,{ ->-
 400 # -        <0> padhv[%j:909,910] vM/LVINTRO ->3
 401 # 3        <;> nextstate(main 910 optree_misc.t:372) v:>,<,%,{ ->4
 402 # 4        <$> const(IV 1) s ->5
 403 EONT_EONT
 404
 405
 406 checkOptree ( name      => 'm?x?',
 407               code      => sub { m?x?; },
 408               strip_open_hints => 1,
 409               expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 410 # 3  <1> leavesub[1 ref] K/REFC,1 ->(end)
 411 # -     <@> lineseq KP ->3
 412 # 1        <;> nextstate(main 914 optree_misc.t:434) v:>,<,%,{ ->2
 413 # 2        </> match(/"x"/) ->3
 414 EOT_EOT
 415 # 3  <1> leavesub[1 ref] K/REFC,1 ->(end)
 416 # -     <@> lineseq KP ->3
 417 # 1        <;> nextstate(main 914 optree_misc.t:434) v:>,<,%,{ ->2
 418 # 2        </> match(/"x"/) ->3
 419 EONT_EONT
 420
 421
 422 unlink $tmpfile;