Author: fperrad
Date: Fri Nov 7 07:33:44 2008
New Revision: 32424
Modified:
trunk/languages/lua/t/pmc/boolean.t
trunk/languages/lua/t/pmc/closure.t
trunk/languages/lua/t/pmc/function.t
trunk/languages/lua/t/pmc/nil.t
trunk/languages/lua/t/pmc/number.t
trunk/languages/lua/t/pmc/string.t
trunk/languages/lua/t/pmc/thread.t
Log:
[Lua]
- fix testts, new syntax .const 'Name'
(see r32419)
Modified: trunk/languages/lua/t/pmc/boolean.t
==============================================================================
--- trunk/languages/lua/t/pmc/boolean.t (original)
+++ trunk/languages/lua/t/pmc/boolean.t Fri Nov 7 07:33:44 2008
@@ -124,7 +124,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check HLL & .const' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .LuaBoolean cst1 = "1"
+ .const 'LuaBoolean' cst1 = "1"
print cst1
print "\n"
.local int bool1
Modified: trunk/languages/lua/t/pmc/closure.t
==============================================================================
--- trunk/languages/lua/t/pmc/closure.t (original)
+++ trunk/languages/lua/t/pmc/closure.t Fri Nov 7 07:33:44 2008
@@ -114,7 +114,7 @@
bool1 = istrue pmc1
print bool1
print "\n"
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
pmc1 = F1
bool1 = istrue pmc1
print bool1
@@ -154,8 +154,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check HLL' );
.HLL 'Lua', 'lua_group'
.sub _main
-# .const .LuaClosure F1 = 'f1'
- .const .Sub pmc1 = 'f1'
+# .const 'LuaClosure' F1 = 'f1'
+ .const 'Sub' pmc1 = 'f1'
.local int bool1
bool1 = isa pmc1, 'LuaClosure'
print bool1
@@ -183,7 +183,7 @@
print "\n"
.end
.sub test :outer(_main)
- .const .Sub T = 'test'
+ .const 'Sub' T = 'test'
.return (T)
.end
CODE
@@ -232,7 +232,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check init_pmc' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .Sub pmc1 = 'f1'
+ .const 'Sub' pmc1 = 'f1'
.local pmc pmc2
pmc2 = new 'LuaClosure', pmc1
.local int bool1
@@ -258,7 +258,7 @@
lua_openlibs()
.local pmc tmp_0
tmp_0 = get_hll_global '_G'
- .const .LuaString cst_1 = 'print'
+ .const 'LuaString' cst_1 = 'print'
.local pmc tmp_1
tmp_1 = tmp_0[cst_1]
tmp_1(tmp_1)
@@ -275,7 +275,7 @@
luaopen_basic()
.local pmc tmp_0
tmp_0 = get_hll_global '_G'
- .const .LuaString cst_1 = 'print'
+ .const 'LuaString' cst_1 = 'print'
.local pmc tmp_1
tmp_1 = tmp_0[cst_1]
tmp_1(tmp_1)
@@ -296,7 +296,7 @@
.sub _loader
.local pmc table
table = new 'LuaTable'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
newclosure $P0, F1
$P0.'setfenv'(table)
.return ($P0)
@@ -329,7 +329,7 @@
.sub _loader
.local pmc table
table = new 'LuaTable'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
newclosure $P0, F1
$P0.'setfenv'(table)
.return ($P0)
Modified: trunk/languages/lua/t/pmc/function.t
==============================================================================
--- trunk/languages/lua/t/pmc/function.t (original)
+++ trunk/languages/lua/t/pmc/function.t Fri Nov 7 07:33:44 2008
@@ -114,7 +114,7 @@
bool1 = istrue pmc1
print bool1
print "\n"
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
pmc1 = F1
bool1 = istrue pmc1
print bool1
@@ -154,8 +154,8 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check HLL' );
.HLL 'Lua', 'lua_group'
.sub _main
-# .const .LuaFunction F1 = 'f1'
- .const .Sub pmc1 = 'f1'
+# .const 'LuaFunction' F1 = 'f1'
+ .const 'Sub' pmc1 = 'f1'
.local int bool1
bool1 = isa pmc1, 'LuaFunction'
print bool1
@@ -183,7 +183,7 @@
print "\n"
.end
.sub test
- .const .Sub T = 'test'
+ .const 'Sub' T = 'test'
.return (T)
.end
CODE
@@ -241,7 +241,7 @@
.sub _main :anon
.local pmc tmp_0
tmp_0 = get_hll_global '_G'
- .const .LuaString cst_1 = 'print'
+ .const 'LuaString' cst_1 = 'print'
.local pmc tmp_1
tmp_1 = tmp_0[cst_1]
tmp_1(tmp_1)
Modified: trunk/languages/lua/t/pmc/nil.t
==============================================================================
--- trunk/languages/lua/t/pmc/nil.t (original)
+++ trunk/languages/lua/t/pmc/nil.t Fri Nov 7 07:33:44 2008
@@ -146,7 +146,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check HLL & .const' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .LuaNil cst1 = 'dummy'
+ .const 'LuaNil' cst1 = 'dummy'
print cst1
print "\n"
.local int bool1
Modified: trunk/languages/lua/t/pmc/number.t
==============================================================================
--- trunk/languages/lua/t/pmc/number.t (original)
+++ trunk/languages/lua/t/pmc/number.t Fri Nov 7 07:33:44 2008
@@ -192,7 +192,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check HLL & .const' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .LuaNumber cst1 = '3.14'
+ .const 'LuaNumber' cst1 = '3.14'
print cst1
print "\n"
.local int bool1
@@ -208,7 +208,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check tostring' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .LuaNumber cst1 = '3.14'
+ .const 'LuaNumber' cst1 = '3.14'
print cst1
print "\n"
$P0 = cst1.'tostring'()
@@ -227,7 +227,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check tonumber' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .LuaNumber cst1 = '3.14'
+ .const 'LuaNumber' cst1 = '3.14'
print cst1
print "\n"
$P0 = cst1.'tonumber'()
Modified: trunk/languages/lua/t/pmc/string.t
==============================================================================
--- trunk/languages/lua/t/pmc/string.t (original)
+++ trunk/languages/lua/t/pmc/string.t Fri Nov 7 07:33:44 2008
@@ -180,7 +180,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'check HLL & .const' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .LuaString cst1 = "simple string"
+ .const 'LuaString' cst1 = "simple string"
print cst1
print "\n"
.local int bool1
@@ -196,7 +196,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', '.const & empty string' );
.HLL 'Lua', 'lua_group'
.sub _main
- .const .LuaString cst1 = ''
+ .const 'LuaString' cst1 = ''
print cst1
print "\n"
.local int bool1
Modified: trunk/languages/lua/t/pmc/thread.t
==============================================================================
--- trunk/languages/lua/t/pmc/thread.t (original)
+++ trunk/languages/lua/t/pmc/thread.t Fri Nov 7 07:33:44 2008
@@ -30,7 +30,7 @@
_main()
.end
.sub '_main'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
.local int bool1
@@ -62,7 +62,7 @@
_main()
.end
.sub '_main'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
.local string str1
@@ -86,7 +86,7 @@
_main()
.end
.sub '_main'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
print pmc1
@@ -108,7 +108,7 @@
_main()
.end
.sub '_main'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
.local int bool1
@@ -134,7 +134,7 @@
_main()
.end
.sub '_main'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
.local pmc pmc2
@@ -164,7 +164,7 @@
_main()
.end
.sub _main
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
.local int bool1
@@ -188,7 +188,7 @@
_main()
.end
.sub '_main'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
print pmc1
@@ -220,7 +220,7 @@
_main()
.end
.sub '_main'
- .const .Sub F1 = 'f1'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
$P0 = pmc1.'tonumber'()
@@ -247,8 +247,8 @@
_main()
.end
.sub '_main'
- .const .LuaNumber cst1 = '3.14'
- .const .Sub F1 = 'f1'
+ .const 'LuaNumber' cst1 = '3.14'
+ .const 'Sub' F1 = 'f1'
.local pmc pmc1
pmc1 = new 'LuaThread', F1
$P0 = add pmc1, cst1
