1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
# Copyright (C) 2004-2009, Parrot Foundation.
.sub bench :main
.local pmc cl
cl = newclass "Foo"
addattribute cl, ".i"
addattribute cl, ".j"
.local int typ
.local int i
i = 1
.local pmc o
o = new "Foo"
loop:
$P4 = o."i"()
.local pmc x
x = new 'Integer'
assign x, $P4
$P5 = o."j"()
.local pmc y
y = new 'Integer'
assign y, $P5
inc i
if i <= 50000 goto loop
$P2 = o."i"()
print $P2
print "\n"
end
.end
.namespace ["Foo"]
.sub init :method :vtable
new $P10, 'Integer'
set $P10, 10
setattribute self, ".i", $P10
new $P10, 'Integer'
set $P10, 20
setattribute self, ".j", $P10
.end
.sub i :method
.local pmc r
r = getattribute self, ".i"
.return( r )
.end
.sub j :method
.local pmc r
r = getattribute self, ".j"
.return( r )
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
|
