Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: nqp_pct
Fetching contributors…

Cannot retrieve contributors at this time

44 lines (37 sloc) 0.806 kb
# Copyright (C) 2004-2009, Parrot Foundation.
.namespace [ "Foo" ]
.pcc_sub :main main:
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
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Jump to Line
Something went wrong with that request. Please try again.