[perl #56816] [BUG] issues with PMCProxy, 'typeof', and 'get_class'

[Patrick R. Michaud (via RT)]

# New Ticket Created by  Patrick R. Michaud 
# Please include the string:  [perl #56816]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=56816 >


There are a couple of issues with PMCProxy:

1.  The PMCProxy returned from a get_class opcode isn't
    the same as one obtained from using typeof on an instance
    of the type.

2.  Each invocation of typeof returns a new GC-able PMCProxy PMC..

Here's the PIR:

    $ cat x.pir
    .sub main :main
        $P0 = get_class 'Integer'
        $P1 = new $P0
        $P2 = typeof $P1
    
        $I0 = issame $P0, $P2
        say $I0                  # should be 1
    
        $P3 = typeof $P1
        $P4 = typeof $P1
    
        $I0 = issame $P3, $P4
        say $I0                  # should be 1
    .end

    $ ./parrot x.pir
    0
    0

Pm