[perl #22645] IMCC Nested .subs cause segfaults

[Clinton A. Pierce]

# New Ticket Created by  "Clinton A. Pierce" 
# Please include the string:  [perl #22645]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=22645 >


I'm exploring IMCC's ability to have nested subs.  The following code:

.sub _main
         .sub dummy
                 call inner1
                 call inner2
                 end
         .end
         .sub inner1
                 print "Inner1\n"
                 ret
         .end
         .sub inner2
                 print "Inner2\n"
                 ret
         .end
        end # safety?
.end
end # safety?

Causes IMCC to segfault.   Asking IMCC to generate pasm produces reasonable 
code:

dummy:
         bsr inner1
         bsr inner2
         end
inner1:
         print "Inner1\n"
         ret
inner2:
         print "Inner2\n"
         ret
_main:
         end
         end