id,summary,reporter,owner,description,type,status,priority,milestone,component,version,severity,resolution,keywords,cc,lang,patch,platform
556,setref on derived pmc aggregate class loses data on return,bsdz,kjs,"When deriving from PMC aggregate, data appears to be lost on return from sub after using setref opcode.

Here is an example code: -
{{{
.include 'library/dumper.pir'

.namespace [ 'MyRPA' ]
.sub '__dump' :method
    .param pmc dumper
    .param pmc label
    dumper.'genericArray'(label, self)
.end

.namespace []
.sub '' :main

    $P0 = subclass 'ResizablePMCArray', 'MyRPA'

    $P1 = new 'ResizablePMCArray'
    'pass_by_ref'($P1)
    _dumper($P1, 'RPA after')
    
    $P2 = new 'MyRPA'
    'pass_by_ref'($P2)
    _dumper($P2, 'MyRPA after') 
    
.end

.sub 'pass_by_ref'
    .param pmc p
    p[0] = 'hello'
    _dumper(p, 'before setref')
    setref p, p   
.end
}}}

The output is as follow: -

{{{
""before setref"" => ResizablePMCArray (size:1) [
    ""hello""
]
""RPA after"" => ResizablePMCArray (size:1) [
    ""hello""
]
""before setref"" => PMC 'MyRPA' MyRPA (size:1) [
    ""hello""
]
""MyRPA after"" => PMC 'MyRPA' MyRPA (size:1) [
    null
]
}}}

The expected outcome should really be : -


{{{
""before setref"" => ResizablePMCArray (size:1) [
    ""hello""
]
""RPA after"" => ResizablePMCArray (size:1) [
    ""hello""
]
""before setref"" => PMC 'MyRPA' MyRPA (size:1) [
    ""hello""
]
""MyRPA after"" => PMC 'MyRPA' MyRPA (size:1) [
    ""hello""
]
}}}
",bug,closed,major,,core,trunk,high,invalid,,,,,all