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
