Ticket #180 (closed bug: fixed)

Opened 5 years ago

Last modified 5 years ago

.annotate fails inside PIR compiler

Reported by: coke Owned by:
Priority: normal Milestone:
Component: none Version:
Severity: medium Keywords: tcl
Cc: Language:
Patch status: Platform:

Description

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

Change History

Changed 5 years ago by jonathan

  • status changed from new to closed
  • resolution set to fixed

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

Note: See TracTickets for help on using tickets.