cvsuser 04/07/02 03:28:44
Modified: . MANIFEST
examples/benchmarks b61.py
classes slice.pmc
Added: examples/benchmarks b62.imc b62.py b63.imc b63.py
Log:
slices 14 - new xrange benchmarks
Revision Changes Path
1.690 +4 -0 parrot/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.689
retrieving revision 1.690
diff -u -w -r1.689 -r1.690
--- MANIFEST 1 Jul 2004 08:47:10 -0000 1.689
+++ MANIFEST 2 Jul 2004 10:28:38 -0000 1.690
@@ -388,6 +388,10 @@
examples/benchmarks/b60.py [main]doc
examples/benchmarks/b61.imc [main]doc
examples/benchmarks/b61.py [main]doc
+examples/benchmarks/b62.imc [main]doc
+examples/benchmarks/b62.py [main]doc
+examples/benchmarks/b63.imc [main]doc
+examples/benchmarks/b63.py [main]doc
examples/benchmarks/bench_newp.pasm [main]doc
examples/benchmarks/fib.imc [main]doc
examples/benchmarks/fib.pl [main]doc
1.2 +1 -1 parrot/examples/benchmarks/b61.py
Index: b61.py
===================================================================
RCS file: /cvs/public/parrot/examples/benchmarks/b61.py,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
1.1 parrot/examples/benchmarks/b62.imc
Index: b62.imc
===================================================================
.sub main
.include "iterator.pasm"
$P2 = new .Slice [ .. 1000000]
new P1, .Iterator, $P2
set P1, .ITERATE_FROM_START
.local pmc n
n = new PerlInt
iter_loop:
unless P1, iter_end
shift I1, P1
# n += I1
branch iter_loop
iter_end:
print n
print "\n"
end
.end
1.1 parrot/examples/benchmarks/b62.py
Index: b62.py
===================================================================
def main():
n = 0
for i in xrange(1000000):
pass
print n
if __name__ == '__main__':
main()
1.1 parrot/examples/benchmarks/b63.imc
Index: b63.imc
===================================================================
.sub main
.include "iterator.pasm"
$P2 = new .Slice [ .. 1000000]
new P1, .Iterator, $P2
set P1, .ITERATE_FROM_START
.local pmc n
n = new PerlInt
iter_loop:
unless P1, iter_end
shift I1, P1
n += I1
branch iter_loop
iter_end:
print n
print "\n"
end
.end
1.1 parrot/examples/benchmarks/b63.py
Index: b63.py
===================================================================
def main():
n = 0
for i in xrange(1000000):
n += i
print n
if __name__ == '__main__':
main()
1.10 +3 -2 parrot/classes/slice.pmc
Index: slice.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/slice.pmc,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- slice.pmc 2 Jul 2004 09:30:00 -0000 1.9
+++ slice.pmc 2 Jul 2004 10:28:44 -0000 1.10
@@ -1,6 +1,6 @@
/*
Copyright: 2004 The Perl Foundation. All Rights Reserved.
-$Id: slice.pmc,v 1.9 2004/07/02 09:30:00 leo Exp $
+$Id: slice.pmc,v 1.10 2004/07/02 10:28:44 leo Exp $
=head1 NAME
@@ -275,7 +275,8 @@
}
INTVAL get_integer_keyed(PMC* key) {
- return VTABLE_get_integer(INTERP, key);
+ range_t *r = PMC_struct_val(key);
+ return RVal_int(r->cur);
}
STRING* get_string_keyed(PMC* key) {
