[svn:parrot] r36406 - trunk/examples/benchmarks

[chromatic at svn.parrot.org]

Author: chromatic
Date: Fri Feb  6 21:26:14 2009
New Revision: 36406
URL: https://trac.parrot.org/parrot/changeset/36406

Log:
[examples] Removed a reference to the deleted IntList PMC from a benchmark
example.

Modified:
   trunk/examples/benchmarks/array_access.pir

Modified: trunk/examples/benchmarks/array_access.pir
==============================================================================
--- trunk/examples/benchmarks/array_access.pir	Fri Feb  6 17:55:03 2009	(r36405)
+++ trunk/examples/benchmarks/array_access.pir	Fri Feb  6 21:26:14 2009	(r36406)
@@ -1,4 +1,4 @@
-# Copyright (C) 2001-2008, The Perl Foundation.
+# Copyright (C) 2001-2009, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -15,7 +15,7 @@
 
 =cut
 
-.sub main :main
+.sub 'main' :main
     .param pmc argv
 
     load_bytecode "Getopt/Obj.pbc"
@@ -26,7 +26,7 @@
 
     # Specification of command line arguments.
     .local pmc getopts
-    getopts = new "Getopt::Obj"
+    getopts = new [ 'Getopt::Obj' ]
     push getopts, "arr-size=i"
 
     .local pmc opt
@@ -34,18 +34,19 @@
 
     .local int arr_size
     arr_size = 100
+
     .local int def
-    def = defined opt["arr-size"]
+    def = defined opt['arr-size']
     unless def goto use_default_arr_size
-        arr_size = opt['arr-size']
-use_default_arr_size:
+
+    arr_size = opt['arr-size']
+  use_default_arr_size:
 
     _bench( 'Array', arr_size )
     _bench( 'FixedFloatArray', arr_size )
     _bench( 'FixedIntegerArray', arr_size )
     _bench( 'FixedPMCArray', arr_size )
     _bench( 'FixedStringArray', arr_size )
-    _bench( 'IntList', arr_size )
     _bench( 'ResizableFloatArray', arr_size )
     _bench( 'ResizableIntegerArray', arr_size )
     _bench( 'ResizablePMCArray', arr_size )