Author: jquelin
Date: Wed Oct 3 09:12:53 2007
New Revision: 21775
Modified:
branches/pdd15oo/t/stm/queue.t
branches/pdd15oo/t/stm/runtime.t
Log:
more find_type removal
Modified: branches/pdd15oo/t/stm/queue.t
==============================================================================
--- branches/pdd15oo/t/stm/queue.t (original)
+++ branches/pdd15oo/t/stm/queue.t Wed Oct 3 09:12:53 2007
@@ -186,8 +186,7 @@
$I0 = $P0
length = new 'Integer'
length = $I0
- $I1 = find_type 'STMQueue'
- result = new $I1, length
+ result = new 'STMQueue', length
$P0 = getattribute self, 'array'
$P1 = clone $P0
@@ -210,10 +209,9 @@
$P0 = get_hll_global ['STMQueue'], '__onload'
$P0()
- $I0 = find_type 'STMQueue'
$P0 = new 'Integer'
$P0 = 10
- queue = new $I0, $P0
+ queue = new 'STMQueue', $P0
queue.'addTail'(0, 0)
@@ -292,10 +290,9 @@
addThread = new 'ParrotThread'
removeThread = new 'ParrotThread'
- $I0 = find_type 'STMQueue'
$P0 = new 'Integer'
$P0 = SIZE
- queue = new $I0, $P0
+ queue = new 'STMQueue', $P0
addThreadId = addThread
removeThreadId = removeThread
@@ -364,10 +361,9 @@
addThread = new 'ParrotThread'
removeThread = new 'ParrotThread'
- $I0 = find_type 'STMQueue'
$P0 = new 'Integer'
$P0 = 2
- queue = new $I0, $P0
+ queue = new 'STMQueue', $P0
addThreadId = addThread
removeThreadId = removeThread
@@ -451,10 +447,9 @@
addThread = new 'ParrotThread'
removeThread = new 'ParrotThread'
- $I0 = find_type 'STMQueue'
$P0 = new 'Integer'
$P0 = 2
- queue = new $I0, $P0
+ queue = new 'STMQueue', $P0
addThreadId = addThread
removeThreadId = removeThread
Modified: branches/pdd15oo/t/stm/runtime.t
==============================================================================
--- branches/pdd15oo/t/stm/runtime.t (original)
+++ branches/pdd15oo/t/stm/runtime.t Wed Oct 3 09:12:53 2007
@@ -551,10 +551,9 @@
addThread = new 'ParrotThread'
removeThread = new 'ParrotThread'
- $I0 = find_type 'STMQueue'
$P0 = new 'Integer'
$P0 = SIZE
- queue = new $I0, $P0
+ queue = new 'STMQueue', $P0
# addThreadId = addThread
# removeThreadId = removeThread
@@ -599,10 +598,9 @@
$P0 = get_hll_global ['STMQueue'], '__onload'
$P0()
- $I0 = find_type 'STMQueue'
$P0 = new 'Integer'
$P0 = SIZE
- queue = new $I0, $P0
+ queue = new 'STMQueue', $P0
$P0 = get_hll_global ['STM'], 'transaction'
$P1 = global '_test'
