Author: particle
Date: Wed Oct 3 10:02:44 2007
New Revision: 21791
Modified:
branches/pdd15oo/t/stm/runtime.t
Log:
[t/stm]: replace find_type
Modified: branches/pdd15oo/t/stm/runtime.t
==============================================================================
--- branches/pdd15oo/t/stm/runtime.t (original)
+++ branches/pdd15oo/t/stm/runtime.t Wed Oct 3 10:02:44 2007
@@ -343,13 +343,15 @@
.sub __onload
.local pmc class
- $I0 = find_type 'STMQueue'
- if $I0 goto done
+ $P0 = get_class 'STMQueue'
+ unless null $P0 goto done
+
class = newclass 'STMQueue'
addattribute class, 'head'
addattribute class, 'tail'
addattribute class, 'used'
addattribute class, 'array'
+ done:
.return()
done:
.end
