Author: jquelin
Date: Wed Oct 3 10:02:43 2007
New Revision: 21790
Modified:
branches/pdd15oo/languages/lua/t/pmc/boolean.t
branches/pdd15oo/languages/lua/t/pmc/closure.t
branches/pdd15oo/languages/lua/t/pmc/function.t
branches/pdd15oo/languages/lua/t/pmc/nil.t
branches/pdd15oo/languages/lua/t/pmc/number.t
branches/pdd15oo/languages/lua/t/pmc/string.t
branches/pdd15oo/languages/lua/t/pmc/table.t
branches/pdd15oo/languages/lua/t/pmc/thread.t
branches/pdd15oo/languages/lua/t/pmc/userdata.t
Log:
more find_type removal
Modified: branches/pdd15oo/languages/lua/t/pmc/boolean.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/boolean.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/boolean.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaBoolean'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaBoolean'
.local int bool1
bool1 = isa pmc1, 'LuaAny'
print bool1
@@ -46,9 +45,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaBoolean'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaBoolean'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -74,9 +72,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaBoolean'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaBoolean'
.local string str1
str1 = classname pmc1
print str1
@@ -94,9 +91,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_string' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaBoolean'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaBoolean'
pmc1 = 0
print pmc1
print "\n"
Modified: branches/pdd15oo/languages/lua/t/pmc/closure.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/closure.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/closure.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaClosure'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaClosure'
.local int bool1
bool1 = isa pmc1, 'scalar'
print bool1
@@ -54,9 +53,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaClosure'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaClosure'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -78,9 +76,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaClosure'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaClosure'
.local string str1
str1 = classname pmc1
print str1
@@ -102,9 +99,8 @@
pir_output_like( << 'CODE', << 'OUTPUT', 'check get_string' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaClosure'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaClosure'
print pmc1
print "\n"
end
@@ -116,9 +112,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaClosure'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaClosure'
.local int bool1
bool1 = istrue pmc1
print bool1
@@ -142,12 +137,10 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check logical_not' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaClosure'
.local pmc pmc1
- pmc1 = new $I0
- find_type $I0, 'LuaBoolean'
+ pmc1 = new 'LuaClosure'
.local pmc pmc2
- pmc2 = new $I0
+ pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
print pmc2
print "\n"
Modified: branches/pdd15oo/languages/lua/t/pmc/function.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/function.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/function.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaFunction'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaFunction'
.local int bool1
bool1 = isa pmc1, 'scalar'
print bool1
@@ -54,9 +53,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaFunction'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaFunction'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -78,9 +76,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaFunction'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaFunction'
.local string str1
str1 = classname pmc1
print str1
@@ -102,9 +99,8 @@
pir_output_like( << 'CODE', << 'OUTPUT', 'check get_string' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaFunction'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaFunction'
print pmc1
print "\n"
end
@@ -116,9 +112,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaFunction'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaFunction'
.local int bool1
bool1 = istrue pmc1
print bool1
@@ -142,12 +137,10 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check logical_not' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaFunction'
.local pmc pmc1
- pmc1 = new $I0
- find_type $I0, 'LuaBoolean'
+ pmc1 = new 'LuaFunction'
.local pmc pmc2
- pmc2 = new $I0
+ pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
print pmc2
print "\n"
Modified: branches/pdd15oo/languages/lua/t/pmc/nil.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/nil.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/nil.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNil'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNil'
.local int bool1
bool1 = isa pmc1, 'LuaAny'
print bool1
@@ -46,9 +45,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNil'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNil'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -66,9 +64,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNil'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNil'
.local string str1
str1 = classname pmc1
print str1
@@ -86,9 +83,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_string' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNil'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNil'
print pmc1
print "\n"
end
@@ -100,9 +96,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNil'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNil'
.local int bool1
bool1 = isfalse pmc1
print bool1
@@ -116,12 +111,10 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check logical_not' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNil'
.local pmc pmc1
- pmc1 = new $I0
- find_type $I0, 'LuaBoolean'
+ pmc1 = new 'LuaNil'
.local pmc pmc2
- pmc2 = new $I0
+ pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
print pmc2
print "\n"
Modified: branches/pdd15oo/languages/lua/t/pmc/number.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/number.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/number.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNumber'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNumber'
.local int bool1
bool1 = isa pmc1, 'LuaAny'
print bool1
@@ -46,9 +45,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNumber'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNumber'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -70,9 +68,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNumber'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNumber'
.local string str1
str1 = classname pmc1
print str1
@@ -90,10 +87,9 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check set_integer_native' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNumber'
.local pmc pmc1
.local string str1
- pmc1 = new $I0
+ pmc1 = new 'LuaNumber'
pmc1 = 3.14
str1 = typeof pmc1
print str1
@@ -118,9 +114,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNumber'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNumber'
pmc1 = 3.14
.local int bool1
bool1 = istrue pmc1
@@ -140,13 +135,11 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check logical_not' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaNumber'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaNumber'
pmc1 = 3.14
- find_type $I0, 'LuaBoolean'
.local pmc pmc2
- pmc2 = new $I0
+ pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
print pmc2
print "\n"
Modified: branches/pdd15oo/languages/lua/t/pmc/string.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/string.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/string.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaString'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaString'
.local int bool1
bool1 = isa pmc1, 'LuaAny'
print bool1
@@ -46,9 +45,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaString'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaString'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -70,9 +68,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaString'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaString'
.local string str1
str1 = classname pmc1
print str1
@@ -90,9 +87,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaString'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaString'
pmc1 = "str"
.local int bool1
bool1 = istrue pmc1
@@ -112,13 +108,11 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check logical_not' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaString'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaString'
pmc1 = "str"
- find_type $I0, 'LuaBoolean'
.local pmc pmc2
- pmc2 = new $I0
+ pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
print pmc2
print "\n"
@@ -136,9 +130,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check embedded zero' );
.sub _main
loadlib P1, 'lua_group'
- find_type $I0, 'LuaString'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaString'
pmc1 = "embe\0_dd\0_ed\0"
.local int len1
len1 = elements pmc1
Modified: branches/pdd15oo/languages/lua/t/pmc/table.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/table.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/table.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaTable'
.local int bool1
bool1 = isa pmc1, 'scalar'
print bool1
@@ -50,9 +49,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaTable'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -70,9 +68,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaTable'
.local string str1
str1 = classname pmc1
print str1
@@ -90,9 +87,8 @@
pir_output_like( << 'CODE', << 'OUTPUT', 'check get_string' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaTable'
print pmc1
print "\n"
end
@@ -104,9 +100,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaTable'
.local int bool1
bool1 = istrue pmc1
print bool1
@@ -124,12 +119,10 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check logical_not' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
- find_type $I0, 'LuaBoolean'
+ pmc1 = new 'LuaTable'
.local pmc pmc2
- pmc2 = new $I0
+ pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
print pmc2
print "\n"
@@ -147,12 +140,10 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check key PMC' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
- find_type $I0, 'LuaString'
+ pmc1 = new 'LuaTable'
.local pmc val1
- val1 = new $I0
+ val1 = new 'LuaString'
val1 = "value1"
.local pmc val2
val2 = new $I0
@@ -180,16 +171,13 @@
pir_error_output_like( << 'CODE', << 'OUTPUT', 'check key nil' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
- find_type $I0, 'LuaString'
+ pmc1 = new 'LuaTable'
.local pmc val1
- val1 = new $I0
+ val1 = new 'LuaString'
val1 = "value1"
- find_type $I0, 'LuaNil'
.local pmc nil
- nil = new $I0
+ nil = new 'LuaNil'
pmc1[nil] = val1
end
.end
@@ -200,12 +188,10 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check deletion by assignment of nil' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaTable'
.local pmc pmc1
- pmc1 = new $I0
- find_type $I0, 'LuaString'
+ pmc1 = new 'LuaTable'
.local pmc val1
- val1 = new $I0
+ val1 = new 'LuaString'
val1 = "value1"
.local pmc val2
val2 = new $I0
@@ -222,9 +208,8 @@
nb1 = elements pmc1
print nb1
print "\n"
- find_type $I0, 'LuaNil'
.local pmc nil
- nil = new $I0
+ nil = new 'LuaNil'
pmc1[val1] = nil
nb1 = elements pmc1
print nb1
Modified: branches/pdd15oo/languages/lua/t/pmc/thread.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/thread.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/thread.t Wed Oct 3 10:02:43 2007
@@ -31,9 +31,8 @@
.end
.sub '_main'
.const .Sub F1 = 'f1'
- find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new 'LuaThread', F1
.local int bool1
bool1 = isa pmc1, 'scalar'
print bool1
@@ -64,9 +63,8 @@
.end
.sub '_main'
.const .Sub F1 = 'f1'
- find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new 'LuaThread', F1
.local string str1
str1 = classname pmc1
print str1
@@ -93,9 +91,8 @@
.end
.sub '_main'
.const .Sub F1 = 'f1'
- find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new 'LuaThread', F1
print pmc1
print "\n"
end
@@ -116,9 +113,8 @@
.end
.sub '_main'
.const .Sub F1 = 'f1'
- find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new 'LuaThread', F1
.local int bool1
bool1 = istrue pmc1
print bool1
@@ -143,9 +139,8 @@
.end
.sub '_main'
.const .Sub F1 = 'f1'
- find_type $I0, 'LuaThread'
.local pmc pmc1
- pmc1 = new $I0, F1
+ pmc1 = new 'LuaThread', F1
.local pmc pmc2
pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
Modified: branches/pdd15oo/languages/lua/t/pmc/userdata.t
==============================================================================
--- branches/pdd15oo/languages/lua/t/pmc/userdata.t (original)
+++ branches/pdd15oo/languages/lua/t/pmc/userdata.t Wed Oct 3 10:02:43 2007
@@ -26,9 +26,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check inheritance' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaUserdata'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaUserdata'
.local int bool1
bool1 = isa pmc1, 'scalar'
print bool1
@@ -50,9 +49,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check interface' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaUserdata'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaUserdata'
.local int bool1
bool1 = does pmc1, 'scalar'
print bool1
@@ -70,9 +68,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check name' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaUserdata'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaUserdata'
.local string str1
str1 = classname pmc1
print str1
@@ -90,11 +87,10 @@
pir_output_like( << 'CODE', << 'OUTPUT', 'check get_string' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaUserdata'
.local pmc val1
val1 = new 'Array'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaUserdata'
setattribute pmc1, 'data', val1
print pmc1
print "\n"
@@ -107,11 +103,10 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check get_bool' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaUserdata'
.local pmc val1
val1 = new 'Array'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaUserdata'
setattribute pmc1, 'data', val1
.local int bool1
bool1 = istrue pmc1
@@ -125,15 +120,13 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check logical_not' );
.sub _main
loadlib $P0, 'lua_group'
- find_type $I0, 'LuaUserdata'
.local pmc val1
val1 = new 'Array'
.local pmc pmc1
- pmc1 = new $I0
+ pmc1 = new 'LuaUserdata'
setattribute pmc1, 'data', val1
- find_type $I0, 'LuaBoolean'
.local pmc pmc2
- pmc2 = new $I0
+ pmc2 = new 'LuaBoolean'
pmc2 = not pmc1
print pmc2
print "\n"
