Ticket #486: test.pir

.include 'datatypes.pasm'

.sub main :main

    # a workaround is to set this to min(2,size)
    .local int size
    size = 1

    .local pmc a_rma, a_umc, a_n
    a_rma = new 'ResizablePMCArray'
    push a_rma, .DATATYPE_DOUBLE
    push a_rma, 0
    push a_rma, 0
    push a_rma, .DATATYPE_DOUBLE
    push a_rma, 0
    push a_rma, 0
    a_umc = new 'UnManagedStruct', a_rma

    .local pmc a_rma_outer
    a_rma_outer = new 'ResizablePMCArray'
    push a_rma_outer, .DATATYPE_STRUCT
    $P0 = a_rma_outer[-1]
    setprop $P0, "_struct", a_umc
    push a_rma_outer, size
    push a_rma_outer, 0

    a_n = new 'ManagedStruct', a_rma_outer

    a_n[0;0;0] = 10.5
    a_n[0;0;1] = 20.2

    # if size = 2,3,4 then okay

    #a_n[0;1;0] = 10.5
    #a_n[0;1;1] = 20.2

    #a_n[0;2;0] = 10.5
    #a_n[0;2;1] = 20.2

    #a_n[0;3;0] = 10.5
    #a_n[0;3;1] = 20.2

.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: