.annotate fails inside PIR compiler

[coke]

Testing to make sure that the annotations in a dynamically compiled bit of PIR don't see the annotations in the code that invoked the compiler, tried:

.sub a
 .annotate 'file', 'a.tcl'
 .annotate 'line', 3

  $P1 = compreg 'PIR'
  $S0 = <<"END_PIR"
.sub joe
  .annotate 'file', 'b.tcl'
  die "what?"
.end
END_PIR
  $P2 = $P1($S0)
  $P2()

 push_eh eek
   joe()
 pop_eh

 end

eek:
  .get_results($P31)
  pop_eh
  $P32 =  $P31.'backtrace'()
  _dumper($P32)
.end

    .include "library/dumper.pir"

Dies with:

src/packfile.c:1575: failed assertion 'dir'
Abort trap

[jonathan]

Fixed in r35859, and test based on the code in this ticket added to t/oo/annotate.t in r35860.