develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35975 - in trunk: . editor examples/benchmarks include/parrot runtime/parrot/include runtime/parrot/library runtime/parrot/library/SDL src/pmc t/benchmark t/pmc

From:
chromatic
Date:
January 24, 2009 14:55
Subject:
[svn:parrot] r35975 - in trunk: . editor examples/benchmarks include/parrot runtime/parrot/include runtime/parrot/library runtime/parrot/library/SDL src/pmc t/benchmark t/pmc
Message ID:
20090124225538.A6029CB9AE@x12.develooper.com
Author: chromatic
Date: Sat Jan 24 14:55:37 2009
New Revision: 35975

Removed:
   trunk/src/pmc/sarray.pmc
   trunk/t/pmc/sarray.t
Modified:
   trunk/DEPRECATED.pod
   trunk/MANIFEST
   trunk/editor/pir-mode.el
   trunk/examples/benchmarks/array_access.pir
   trunk/examples/benchmarks/stress3.pasm
   trunk/include/parrot/interpreter.h
   trunk/runtime/parrot/include/DWIM.pir
   trunk/runtime/parrot/library/SDL/Constants.pir
   trunk/runtime/parrot/library/SDL/StopWatch.pir
   trunk/runtime/parrot/library/libpcre.pir
   trunk/t/benchmark/benchmarks.t
   trunk/t/pmc/hash.t
   trunk/t/pmc/timer.t

Log:
[PMC] Removed SArray PMC, per TT #191.  Use a FixedPMCArray now instead.

Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	(original)
+++ trunk/DEPRECATED.pod	Sat Jan 24 14:55:37 2009
@@ -45,8 +45,6 @@
 
 =item * ref [post 0.9.0] (TT #190)
 
-=item * sarray [post 0.9.0] (TT #191)
-
 =item * tqueue [post 0.9.0] (TT #192)
 
 =back

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	(original)
+++ trunk/MANIFEST	Sat Jan 24 14:55:37 2009
@@ -2980,7 +2980,6 @@
 src/pmc/resizablestringarray.pmc                            []
 src/pmc/retcontinuation.pmc                                 []
 src/pmc/role.pmc                                            []
-src/pmc/sarray.pmc                                          []
 src/pmc/scalar.pmc                                          []
 src/pmc/scheduler.pmc                                       []
 src/pmc/schedulermessage.pmc                                []
@@ -3405,7 +3404,6 @@
 t/pmc/retcontinuation.t                                     []
 t/pmc/ro.t                                                  []
 t/pmc/role.t                                                []
-t/pmc/sarray.t                                              []
 t/pmc/scalar.t                                              []
 t/pmc/scheduler.t                                           []
 t/pmc/schedulermessage.t                                    []

Modified: trunk/editor/pir-mode.el
==============================================================================
--- trunk/editor/pir-mode.el	(original)
+++ trunk/editor/pir-mode.el	Sat Jan 24 14:55:37 2009
@@ -156,8 +156,8 @@
     "ParrotRunningThread" "ParrotThread" "Pointer" "Random" "Ref"
     "ResizableBooleanArray" "ResizableFloatArray" "ResizableIntegerArray"
     "ResizablePMCArray" "ResizableStringArray" "RetContinuation"
-    "Role" "SArray" "Scalar" "SharedRef" "Slice" "String" "Sub"
-    "Super" "TQueue" "Timer" "UnManagedStruct" "Undef" "VtableCache"))
+    "Role" "Scalar" "SharedRef" "Slice" "String" "Sub" "Super" "TQueue"
+    "Timer" "UnManagedStruct" "Undef" "VtableCache"))
 
 (defvar pir-ops
   '("abs" "accept" "acos" "add" "addattribute" "addmethod" "addparent"

Modified: trunk/examples/benchmarks/array_access.pir
==============================================================================
--- trunk/examples/benchmarks/array_access.pir	(original)
+++ trunk/examples/benchmarks/array_access.pir	Sat Jan 24 14:55:37 2009
@@ -50,7 +50,7 @@
     _bench( 'ResizableIntegerArray', arr_size )
     _bench( 'ResizablePMCArray', arr_size )
     _bench( 'ResizableStringArray', arr_size )
-    _bench( 'SArray', arr_size )
+    _bench( 'FixedPMCArray', arr_size )
 .end
 
 =head2 void bench( int arr_class, int arr_size )

Modified: trunk/examples/benchmarks/stress3.pasm
==============================================================================
--- trunk/examples/benchmarks/stress3.pasm	(original)
+++ trunk/examples/benchmarks/stress3.pasm	Sat Jan 24 14:55:37 2009
@@ -27,7 +27,7 @@
 be destroyed before a 2nd loop is run. However, this seems to be broken
 at the moment:
 
-    SArray: Entry not an integer!
+    FixedPMCArray: Entry not an integer!
 
 =cut
 

Modified: trunk/include/parrot/interpreter.h
==============================================================================
--- trunk/include/parrot/interpreter.h	(original)
+++ trunk/include/parrot/interpreter.h	Sat Jan 24 14:55:37 2009
@@ -371,7 +371,7 @@
 
     UINTVAL hash_seed;                        /* STRING hash seed */
 
-    PMC *iglobals;                            /* SArray of PMCs, containing: */
+    PMC *iglobals;                      /* FixedPMCArray of PMCs, containing: */
     /* 0:   PMC *Parrot_base_classname_hash; hash containing name->base_type */
     /* 1:   PMC *Parrot_compreg_hash;    hash containing assembler/compilers */
     /* 2:   PMC *Argv;                   list of argv */

Modified: trunk/runtime/parrot/include/DWIM.pir
==============================================================================
--- trunk/runtime/parrot/include/DWIM.pir	(original)
+++ trunk/runtime/parrot/include/DWIM.pir	Sat Jan 24 14:55:37 2009
@@ -82,8 +82,8 @@
     if $I0 == 32 goto lp2
     if $I0 == 10 goto lp2
     if $I0 == 13 goto lp2
-    sub $I0, 64         # make compacter code
-    p = new 'SArray'        # argument passing for sprintf
+    sub $I0, 64            # make compacter code
+    p = new 'FixedPMCArray'# argument passing for sprintf
     p = 1
     push p, $I0
     sprintf $S0, "%06b", p

Modified: trunk/runtime/parrot/library/SDL/Constants.pir
==============================================================================
--- trunk/runtime/parrot/library/SDL/Constants.pir	(original)
+++ trunk/runtime/parrot/library/SDL/Constants.pir	Sat Jan 24 14:55:37 2009
@@ -45,7 +45,7 @@
 .sub _load_key_names
 	.local pmc key_names
 
-	key_names = new 'SArray'
+	key_names = new 'FixedPMCArray'
 	key_names = 323
 	store_global 'SDL::Constants', 'key_names', key_names
 

Modified: trunk/runtime/parrot/library/SDL/StopWatch.pir
==============================================================================
--- trunk/runtime/parrot/library/SDL/StopWatch.pir	(original)
+++ trunk/runtime/parrot/library/SDL/StopWatch.pir	Sat Jan 24 14:55:37 2009
@@ -256,7 +256,7 @@
     $P0 = new 'ResizablePMCArray'
     store_global "SDL::StopWatch::Timer", "array", $P0
 
-    $P0 = new 'SArray'
+    $P0 = new 'FixedPMCArray'
     $P1 = find_global "SDL::StopWatch::Timer", "tick"
     $P0 = 8
     $P0[0] = .PARROT_TIMER_NSEC

Modified: trunk/runtime/parrot/library/libpcre.pir
==============================================================================
--- trunk/runtime/parrot/library/libpcre.pir	(original)
+++ trunk/runtime/parrot/library/libpcre.pir	Sat Jan 24 14:55:37 2009
@@ -105,8 +105,8 @@
     .local int ovece
 
     .local pmc struct
-    struct= new 'SArray'
-    struct= 3
+    struct = new 'FixedPMCArray'
+    struct = 3
 
     .include "datatypes.pasm"
 

Modified: trunk/t/benchmark/benchmarks.t
==============================================================================
--- trunk/t/benchmark/benchmarks.t	(original)
+++ trunk/t/benchmark/benchmarks.t	Sat Jan 24 14:55:37 2009
@@ -72,7 +72,7 @@
 \n
 1\s\*\s1000\s=\s1000\n
 100\s\*\s1000\s=\s100000\n
-SArray:\s\d+\.\d+s\n
+FixedPMCArray:\s\d+\.\d+s\n
 \s+$/x,
     q{arriter.pir}     => qq(100000\n100000\n100000\n111111\n),
     q{arriter_o1.pir}  => qq(100000\n100000\n100000\n111111\n),

Modified: trunk/t/pmc/hash.t
==============================================================================
--- trunk/t/pmc/hash.t	(original)
+++ trunk/t/pmc/hash.t	Sat Jan 24 14:55:37 2009
@@ -987,7 +987,7 @@
 .sub delete_and_free_list
     set $I2, 10
     set $I1, 1
-    new $P0, ['SArray']
+    new $P0, ['FixedPMCArray']
     set $P0, 1
     new $P1, ['Hash']
 outer:

Modified: trunk/t/pmc/timer.t
==============================================================================
--- trunk/t/pmc/timer.t	(original)
+++ trunk/t/pmc/timer.t	Sat Jan 24 14:55:37 2009
@@ -66,7 +66,7 @@
 
 pasm_output_is( <<'CODE', <<'OUT', "Timer setup - initializer" );
 .include "timer.pasm"
-    new P1, ['SArray']
+    new P1, ['FixedPMCArray']
     set P1, 4
     set P1[0], .PARROT_TIMER_SEC
     set P1[1], 8
@@ -105,7 +105,7 @@
 
     pasm_output_like( <<'CODE', <<'OUT', "Timer setup - initializer/start" );
 .include "timer.pasm"
-    new P1, ['SArray']
+    new P1, ['FixedPMCArray']
     set P1, 6
     set P1[0], .PARROT_TIMER_NSEC
     set P1[1], 0.5
@@ -129,7 +129,7 @@
 
     pasm_output_is( <<'CODE', <<'OUT', "Timer setup - initializer/start/stop" );
 .include "timer.pasm"
-    new P1, ['SArray']
+    new P1, ['FixedPMCArray']
     set P1, 6
     set P1[0], .PARROT_TIMER_NSEC
     set P1[1], 0.5
@@ -158,7 +158,7 @@
        ( todo => 'RT #49718, add scheduler features to JIT' ) : ();
     pasm_output_is( <<'CODE', <<'OUT', "Timer setup - initializer/start/repeat" , @todo );
 .include "timer.pasm"
-    new P1, ['SArray']
+    new P1, ['FixedPMCArray']
     set P1, 8
     set P1[0], .PARROT_TIMER_NSEC
     set P1[1], 0.2



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About