[svn:parrot] r39633 - in trunk/t: op pmc
NotFound at svn.parrot.org
NotFound at svn.parrot.org
Wed Jun 17 21:31:46 UTC 2009
Author: NotFound
Date: Wed Jun 17 21:31:46 2009
New Revision: 39633
URL: https://trac.parrot.org/parrot/changeset/39633
Log:
[cage] remove a lot of duplicate pir local symbols in tests, see TT #767
Modified:
trunk/t/op/cmp-nonbranch.t
trunk/t/op/lexicals.t
trunk/t/pmc/exceptionhandler.t
trunk/t/pmc/namespace.t
Modified: trunk/t/op/cmp-nonbranch.t
==============================================================================
--- trunk/t/op/cmp-nonbranch.t Wed Jun 17 20:44:28 2009 (r39632)
+++ trunk/t/op/cmp-nonbranch.t Wed Jun 17 21:31:46 2009 (r39633)
@@ -38,6 +38,10 @@
desc = .op
.endm
+.macro RESET_DESC(op)
+ desc = .op
+.endm
+
.macro CONCAT_RES()
$S98 = $I1
concat res, $S98
@@ -222,7 +226,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_ic_i')
+ .RESET_DESC('isgt_i_ic_i')
set $I1, 111
set $I3, 333
isgt $I1, 222, $I3
@@ -234,7 +238,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_i_ic')
+ .RESET_DESC('isgt_i_i_ic')
set $I1, 111
set $I2, 222
isgt $I1, $I2, 223
@@ -246,7 +250,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_ic_ic')
+ .RESET_DESC('isgt_i_ic_ic')
set $I1, 111
isgt $I1, 222, 223
.CONCAT_RES()
@@ -257,7 +261,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_n_n')
+ .RESET_DESC('isgt_i_n_n')
set $I1, 111
set $N2, 2.22
set $N3, 3.33
@@ -272,7 +276,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_nc_n')
+ .RESET_DESC('isgt_i_nc_n')
set $I1, 111
set $N3, 3.33
isgt $I1, 2.22, $N3
@@ -284,7 +288,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_n_nc')
+ .RESET_DESC('isgt_i_n_nc')
set $I1, 111
set $N2, 2.22
isgt $I1, $N2, 2.23
@@ -296,7 +300,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_nc_nc')
+ .RESET_DESC('isgt_i_nc_nc')
set $I1, 111
isgt $I1, 2.22, 2.23
.CONCAT_RES()
@@ -307,7 +311,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_s_s')
+ .RESET_DESC('isgt_i_s_s')
set $I1, 111
set $S2, "Aaa"
set $S3, "Bbb"
@@ -322,7 +326,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_sc_s')
+ .RESET_DESC('isgt_i_sc_s')
set $I1, 111
set $S3, "Bbb"
isgt $I1, "Aaa", $S3
@@ -334,7 +338,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_s_sc')
+ .RESET_DESC('isgt_i_s_sc')
set $I1, 111
set $S2, "Bbb"
isgt $I1, $S2, "Ccc"
@@ -346,7 +350,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isgt_i_sc_sc')
+ .RESET_DESC('isgt_i_sc_sc')
set $I1, 111
isgt $I1, "Bbb", "Ccc"
.CONCAT_RES()
@@ -378,7 +382,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_ic_i')
+ .RESET_DESC('isge_i_ic_i')
set $I1, 111
set $I3, 333
isge $I1, 222, $I3
@@ -390,7 +394,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_i_ic')
+ .RESET_DESC('isge_i_i_ic')
set $I1, 111
set $I2, 222
isge $I1, $I2, 223
@@ -402,7 +406,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_ic_ic')
+ .RESET_DESC('isge_i_ic_ic')
set $I1, 111
isge $I1, 222, 223
.CONCAT_RES()
@@ -413,7 +417,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_n_n')
+ .RESET_DESC('isge_i_n_n')
set $I1, 111
set $N2, 2.22
set $N3, 3.33
@@ -428,7 +432,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_nc_n')
+ .RESET_DESC('isge_i_nc_n')
set $I1, 111
set $N3, 3.33
isge $I1, 2.22, $N3
@@ -440,7 +444,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_n_nc')
+ .RESET_DESC('isge_i_n_nc')
set $I1, 111
set $N2, 2.22
isge $I1, $N2, 2.23
@@ -452,7 +456,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_nc_nc')
+ .RESET_DESC('isge_i_nc_nc')
set $I1, 111
isge $I1, 2.22, 2.23
.CONCAT_RES()
@@ -463,7 +467,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_s_s')
+ .RESET_DESC('isge_i_s_s')
set $I1, 111
set $S2, "Aaa"
set $S3, "Bbb"
@@ -478,7 +482,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_sc_s')
+ .RESET_DESC('isge_i_sc_s')
set $I1, 111
set $S3, "Bbb"
isge $I1, "Aaa", $S3
@@ -490,7 +494,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_s_sc')
+ .RESET_DESC('isge_i_s_sc')
set $I1, 111
set $S2, "Bbb"
isge $I1, $S2, "Ccc"
@@ -502,7 +506,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isge_i_sc_sc')
+ .RESET_DESC('isge_i_sc_sc')
set $I1, 111
isge $I1, "Bbb", "Ccc"
.CONCAT_RES()
@@ -534,7 +538,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_ic_i')
+ .RESET_DESC('isle_i_ic_i')
set $I1, 111
set $I3, 333
isle $I1, 222, $I3
@@ -546,7 +550,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_i_ic')
+ .RESET_DESC('isle_i_i_ic')
set $I1, 111
set $I2, 222
isle $I1, $I2, 223
@@ -558,7 +562,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_ic_ic')
+ .RESET_DESC('isle_i_ic_ic')
set $I1, 111
isle $I1, 222, 223
.CONCAT_RES()
@@ -569,7 +573,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_n_n')
+ .RESET_DESC('isle_i_n_n')
set $I1, 111
set $N2, 2.22
set $N3, 3.33
@@ -584,7 +588,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_nc_n')
+ .RESET_DESC('isle_i_nc_n')
set $I1, 111
set $N3, 3.33
isle $I1, 2.22, $N3
@@ -596,7 +600,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_n_nc')
+ .RESET_DESC('isle_i_n_nc')
set $I1, 111
set $N2, 2.22
isle $I1, $N2, 2.23
@@ -608,7 +612,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_nc_nc')
+ .RESET_DESC('isle_i_nc_nc')
set $I1, 111
isle $I1, 2.22, 2.23
.CONCAT_RES()
@@ -619,7 +623,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_s_s')
+ .RESET_DESC('isle_i_s_s')
set $I1, 111
set $S2, "Aaa"
set $S3, "Bbb"
@@ -634,7 +638,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_sc_s')
+ .RESET_DESC('isle_i_sc_s')
set $I1, 111
set $S3, "Bbb"
isle $I1, "Aaa", $S3
@@ -646,7 +650,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_s_sc')
+ .RESET_DESC('isle_i_s_sc')
set $I1, 111
set $S2, "Bbb"
isle $I1, $S2, "Ccc"
@@ -658,7 +662,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isle_i_sc_sc')
+ .RESET_DESC('isle_i_sc_sc')
set $I1, 111
isle $I1, "Bbb", "Ccc"
.CONCAT_RES()
@@ -690,7 +694,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_ic_i')
+ .RESET_DESC('islt_i_ic_i')
set $I1, 111
set $I3, 333
islt $I1, 222, $I3
@@ -702,7 +706,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_i_ic')
+ .RESET_DESC('islt_i_i_ic')
set $I1, 111
set $I2, 222
islt $I1, $I2, 223
@@ -714,7 +718,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_ic_ic')
+ .RESET_DESC('islt_i_ic_ic')
set $I1, 111
islt $I1, 222, 223
.CONCAT_RES()
@@ -725,7 +729,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_n_n')
+ .RESET_DESC('islt_i_n_n')
set $I1, 111
set $N2, 2.22
set $N3, 3.33
@@ -740,7 +744,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_nc_n')
+ .RESET_DESC('islt_i_nc_n')
set $I1, 111
set $N3, 3.33
islt $I1, 2.22, $N3
@@ -752,7 +756,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_n_nc')
+ .RESET_DESC('islt_i_n_nc')
set $I1, 111
set $N2, 2.22
islt $I1, $N2, 2.23
@@ -764,7 +768,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_nc_nc')
+ .RESET_DESC('islt_i_nc_nc')
set $I1, 111
islt $I1, 2.22, 2.23
.CONCAT_RES()
@@ -775,7 +779,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_s_s')
+ .RESET_DESC('islt_i_s_s')
set $I1, 111
set $S2, "Aaa"
set $S3, "Bbb"
@@ -790,7 +794,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_sc_s')
+ .RESET_DESC('islt_i_sc_s')
set $I1, 111
set $S3, "Bbb"
islt $I1, "Aaa", $S3
@@ -802,7 +806,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_s_sc')
+ .RESET_DESC('islt_i_s_sc')
set $I1, 111
set $S2, "Bbb"
islt $I1, $S2, "Ccc"
@@ -814,7 +818,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('islt_i_sc_sc')
+ .RESET_DESC('islt_i_sc_sc')
set $I1, 111
islt $I1, "Bbb", "Ccc"
.CONCAT_RES()
@@ -846,7 +850,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_ic_i')
+ .RESET_DESC('iseq_i_ic_i')
set $I1, 111
set $I3, 333
iseq $I1, 222, $I3
@@ -858,7 +862,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_i_ic')
+ .RESET_DESC('iseq_i_i_ic')
set $I1, 111
set $I2, 222
iseq $I1, $I2, 223
@@ -870,7 +874,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_ic_ic')
+ .RESET_DESC('iseq_i_ic_ic')
set $I1, 111
iseq $I1, 222, 223
.CONCAT_RES()
@@ -881,7 +885,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_n_n')
+ .RESET_DESC('iseq_i_n_n')
set $I1, 111
set $N2, 2.22
set $N3, 3.33
@@ -896,7 +900,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_nc_n')
+ .RESET_DESC('iseq_i_nc_n')
set $I1, 111
set $N3, 3.33
iseq $I1, 2.22, $N3
@@ -908,7 +912,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_n_nc')
+ .RESET_DESC('iseq_i_n_nc')
set $I1, 111
set $N2, 2.22
iseq $I1, $N2, 2.23
@@ -920,7 +924,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_nc_nc')
+ .RESET_DESC('iseq_i_nc_nc')
set $I1, 111
iseq $I1, 2.22, 2.23
.CONCAT_RES()
@@ -931,7 +935,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_s_s')
+ .RESET_DESC('iseq_i_s_s')
set $I1, 111
set $S2, "Aaa"
set $S3, "Bbb"
@@ -946,7 +950,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_sc_s')
+ .RESET_DESC('iseq_i_sc_s')
set $I1, 111
set $S3, "Bbb"
iseq $I1, "Aaa", $S3
@@ -958,7 +962,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_s_sc')
+ .RESET_DESC('iseq_i_s_sc')
set $I1, 111
set $S2, "Bbb"
iseq $I1, $S2, "Ccc"
@@ -970,7 +974,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('iseq_i_sc_sc')
+ .RESET_DESC('iseq_i_sc_sc')
set $I1, 111
iseq $I1, "Bbb", "Ccc"
.CONCAT_RES()
@@ -1002,7 +1006,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_ic_i')
+ .RESET_DESC('isne_i_ic_i')
set $I1, 111
set $I3, 333
isne $I1, 222, $I3
@@ -1014,7 +1018,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_i_ic')
+ .RESET_DESC('isne_i_i_ic')
set $I1, 111
set $I2, 222
isne $I1, $I2, 223
@@ -1026,7 +1030,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_ic_ic')
+ .RESET_DESC('isne_i_ic_ic')
set $I1, 111
isne $I1, 222, 223
.CONCAT_RES()
@@ -1037,7 +1041,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_n_n')
+ .RESET_DESC('isne_i_n_n')
set $I1, 111
set $N2, 2.22
set $N3, 3.33
@@ -1052,7 +1056,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_nc_n')
+ .RESET_DESC('isne_i_nc_n')
set $I1, 111
set $N3, 3.33
isne $I1, 2.22, $N3
@@ -1064,7 +1068,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_n_nc')
+ .RESET_DESC('isne_i_n_nc')
set $I1, 111
set $N2, 2.22
isne $I1, $N2, 2.23
@@ -1076,7 +1080,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_nc_nc')
+ .RESET_DESC('isne_i_nc_nc')
set $I1, 111
isne $I1, 2.22, 2.23
.CONCAT_RES()
@@ -1087,7 +1091,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_s_s')
+ .RESET_DESC('isne_i_s_s')
set $I1, 111
set $S2, "Aaa"
set $S3, "Bbb"
@@ -1102,7 +1106,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_sc_s')
+ .RESET_DESC('isne_i_sc_s')
set $I1, 111
set $S3, "Bbb"
isne $I1, "Aaa", $S3
@@ -1114,7 +1118,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_s_sc')
+ .RESET_DESC('isne_i_s_sc')
set $I1, 111
set $S2, "Bbb"
isne $I1, $S2, "Ccc"
@@ -1126,7 +1130,7 @@
is( res, exp, desc)
res = ''
- .SET_DESC('isne_i_sc_sc')
+ .RESET_DESC('isne_i_sc_sc')
set $I1, 111
isne $I1, "Bbb", "Ccc"
.CONCAT_RES()
Modified: trunk/t/op/lexicals.t
==============================================================================
--- trunk/t/op/lexicals.t Wed Jun 17 20:44:28 2009 (r39632)
+++ trunk/t/op/lexicals.t Wed Jun 17 21:31:46 2009 (r39633)
@@ -226,7 +226,6 @@
.local pmc pad, interp
interp = getinterp
pad = interp["lexpad"]
- .local pmc pad
unless null pad goto ok
print "pad is NULL\n"
end
Modified: trunk/t/pmc/exceptionhandler.t
==============================================================================
--- trunk/t/pmc/exceptionhandler.t Wed Jun 17 20:44:28 2009 (r39632)
+++ trunk/t/pmc/exceptionhandler.t Wed Jun 17 21:31:46 2009 (r39633)
@@ -60,7 +60,6 @@
eh = 0
c()
error_handler_one:
- .local pmc e, c
.get_results (e)
ok(1, 'Min and Max severity for exception handlers')
c = e['resume']
@@ -93,14 +92,12 @@
goto subclass_handler
typed_handler_one:
- .local pmc e, c
.get_results (e)
ok(1, 'Exception Handler type checks work')
c = e['resume']
eh = 0
c()
typed_handler_two:
- .local pmc e, c
.get_results (e)
ok(0, 'Exception Handler type checks work')
c = e['resume']
Modified: trunk/t/pmc/namespace.t
==============================================================================
--- trunk/t/pmc/namespace.t Wed Jun 17 20:44:28 2009 (r39632)
+++ trunk/t/pmc/namespace.t Wed Jun 17 21:31:46 2009 (r39633)
@@ -1451,7 +1451,6 @@
key = create_nested_key( 'Child' )
- .local pmc grandchild_ns
grandchild_ns = child_ns.'find_namespace'( key )
if_null grandchild_ns, CHECK_SIBLING
print "Grandchild still exists\\n"
@@ -1561,7 +1560,6 @@
child_ns = parent_ns.'find_namespace'( 'Child' )
child_ns.'del_sub'( 'dummy' )
- .local pmc my_sub
my_sub = get_global [ 'Parent'; 'Child' ], 'dummy'
if_null my_sub, CHILD_NO_DUMMY
print "Child did not delete dummy\\n"
More information about the parrot-commits
mailing list