oo4.pasm

# $Id$

.namespace [ "Foo" ]

    newclass P1, "Foo"
    addattribute P1, ".i"
    addattribute P1, ".j"

    set I10, 1
    set I11, 500000
    new P3, "Foo"
loop:
    new P4, 'Integer'
    set P4, I10
    setattribute P3, ".i", P4
    new P4, 'Integer'
    set P4, I10
    setattribute P3, ".j", P4
    inc I10
    le I10, I11, loop

    getattribute P2, P3, ".i"
    print P2
    print "\n"
    end

.pcc_sub __init:
.include "interpinfo.pasm"
    interpinfo P2, .INTERPINFO_CURRENT_OBJECT
    new P10, 'Integer'
    set P10, 10
    setattribute P2, ".i", P10
    new P10, 'Integer'
    set P10, 20
    setattribute P2, ".j", P10
    returncc