# New Ticket Created by Colin Kuskie
# Please include the string: [perl #44687]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44687 >
Change all instances of .Class to 'Class' in t/op/*.t
Also, I found a new form that may have been missed in earlier patches. I
ack'ed for these:
ack --perl -l '=\s+new\s+\.\w+' ./t
which misses the form:
new $P0, .Class
Index: t/op/pushaction.t
===================================================================
--- t/op/pushaction.t (revision 20629)
+++ t/op/pushaction.t (working copy)
@@ -169,7 +169,7 @@
.sub main :main
.local pmc a
.lex 'a', a
- a = new .Integer
+ a = new 'Integer'
a = 42
print "main\n"
.const .Sub at_exit = "exit_handler"
Index: t/op/globals.t
===================================================================
--- t/op/globals.t (revision 20629)
+++ t/op/globals.t (working copy)
@@ -64,7 +64,7 @@
print $P1
.end
.sub set_it
- $P0 = new .String
+ $P0 = new 'String'
$P0 = "Ook...BANG!\n"
set_global [ "Toaster" ], "Explosion", $P0
.end
@@ -80,7 +80,7 @@
print $P1
.end
.sub set_it
- $P0 = new .String
+ $P0 = new 'String'
$P0 = "Ook...BANG!\n"
set_root_global [ "parrot"; "Monkey"; "Toaster" ], "Explosion", $P0
.end
@@ -131,7 +131,7 @@
print $P1
.end
.sub set_it
- $P0 = new .String
+ $P0 = new 'String'
$P0 = "Ook...BANG!\n"
store_global [ "Monkey" ; "Toaster" ], "Explosion", $P0
.end
Index: t/op/sprintf.t
===================================================================
--- t/op/sprintf.t (revision 20629)
+++ t/op/sprintf.t (working copy)
@@ -158,7 +158,7 @@
description = 'build_test_desc'( description, template )
.local pmc data_hash
- data_hash = new .Hash
+ data_hash = new 'Hash'
data_hash["''"] = ''
data_hash['2**32-1'] = 0xffffffff
$N0 = pow 2, 38
@@ -300,7 +300,7 @@
.return (todo_tests)
reset_todo_info:
- todo_info = new .Hash
+ todo_info = new 'Hash'
ret
set_todo_loop:
@@ -375,7 +375,7 @@
.return (skip_tests)
reset_skip_info:
- skip_info = new .Hash
+ skip_info = new 'Hash'
ret
set_skip_loop:
Index: t/op/gc.t
===================================================================
--- t/op/gc.t (revision 20629)
+++ t/op/gc.t (working copy)
@@ -610,8 +610,8 @@
pir_output_is( <<'CODE', <<'OUTPUT', "AddrRegistry 1" );
.sub main :main
.local pmc a, reg, nil
- reg = new .AddrRegistry
- a = new .String
+ reg = new 'AddrRegistry'
+ a = new 'String'
null nil
$I0 = reg[a]
if $I0 == 0 goto ok1
@@ -656,9 +656,9 @@
.sub main :main
.local pmc a, b, reg, nil
null nil
- reg = new .AddrRegistry
- a = new .String
- b = new .String
+ reg = new 'AddrRegistry'
+ a = new 'String'
+ b = new 'String'
$I0 = elements reg
print $I0
reg[a] = nil
@@ -680,12 +680,12 @@
.sub main :main
.local pmc a, b, c, reg, nil, it
null nil
- reg = new .AddrRegistry
- a = new .String
+ reg = new 'AddrRegistry'
+ a = new 'String'
a = "k1"
- b = new .String
+ b = new 'String'
b = "k2"
- c = new .String
+ c = new 'String'
c = "k3"
reg[a] = nil
reg[b] = nil
Index: t/op/string_cclass.t
===================================================================
--- t/op/string_cclass.t (revision 20629)
+++ t/op/string_cclass.t (working copy)
@@ -331,7 +331,7 @@
if result goto ok
\$S0 = s[i]
\$I0 = ord \$S0
- \$P0 = new .ResizablePMCArray
+ \$P0 = new 'ResizablePMCArray'
push \$P0, \$I0
\$S0 = sprintf "\\nchar %#x not reported as ws\\n", \$P0
print \$S0
Index: t/op/interp.t
===================================================================
--- t/op/interp.t (revision 20629)
+++ t/op/interp.t (working copy)
@@ -49,7 +49,7 @@
.sub 'test' :main
.local string actual
.local pmc test_interp
- test_interp = new .ParrotInterpreter
+ test_interp = new 'ParrotInterpreter'
.local pmc stdout
stdout = getstdout
push stdout, 'string'
@@ -82,7 +82,7 @@
.sub 'test' :main
.local string actual
.local pmc test_interp
- test_interp = new .ParrotInterpreter
+ test_interp = new 'ParrotInterpreter'
.local pmc stdout
stdout = getstdout
push stdout, 'string'
Index: t/op/lexicals.t
===================================================================
--- t/op/lexicals.t (revision 20629)
+++ t/op/lexicals.t (working copy)
@@ -82,7 +82,7 @@
.local pmc ab, a, b
.lex '$a', ab
.lex '$b', ab
- ab = new .String
+ ab = new 'String'
ab = "ok\n"
a = find_lex '$a'
print a
@@ -201,7 +201,7 @@
end
ok:
print "ok\n"
- P1 = new .Integer
+ P1 = new 'Integer'
P1 = 13013
pad['$a'] = P1
print P0
@@ -226,7 +226,7 @@
end
ok:
print "ok\n"
- P1 = new .Integer
+ P1 = new 'Integer'
P1 = 13013
pad['$a'] = P1
print P0
@@ -246,7 +246,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', 'synopsis example' );
.sub main
.lex '$a', P0
- P1 = new .Integer
+ P1 = new 'Integer'
P1 = 13013
store_lex '$a', P1
print P0
@@ -438,7 +438,7 @@
sub = interp["outer"; "sub"; 2]
print sub
print "\n"
- $P0 = new .String
+ $P0 = new 'String'
$P0 = "I messed with your var\n"
pad = interp["outer"; "lexpad"; 2]
pad['a'] = $P0
@@ -827,7 +827,7 @@
.sub main :main
.lex '$x', $P0
- $P0 = new .Integer
+ $P0 = new 'Integer'
$P0 = 5
anon_1()
.end
@@ -837,7 +837,7 @@
$P0 = find_lex '$x'
print $P0
.lex '$x', $P1
- $P1 = new .Integer
+ $P1 = new 'Integer'
$P1 = 4
print $P1
.end
@@ -865,7 +865,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', 'find_name on lexicals' );
.sub main :main
.lex 'a', $P0
- $P1 = new .String
+ $P1 = new 'String'
$P1 = "ok\n"
store_lex 'a', $P1
$P2 = find_name 'a'
@@ -884,7 +884,7 @@
.lex 'a', $P0
.lex 'b', $P0
.lex 'c', $P0
- $P1 = new .String
+ $P1 = new 'String'
$P1 = "ok\n"
store_lex 'a', $P1
$P2 = find_name 'b'
@@ -909,7 +909,7 @@
.sub '&main' :main :anon
.local pmc sx
.lex '$x', sx
- sx = new .Integer
+ sx = new 'Integer'
sx = 33
'&f'()
print sx # no find_lex needed - 'sx' is defined here
@@ -943,7 +943,7 @@
.sub '&main' :main :anon
.local pmc sx
.lex '$x', sx
- sx = new .Integer
+ sx = new 'Integer'
sx = -32
'&g'()
print sx
Index: t/op/string.t
===================================================================
--- t/op/string.t (revision 20629)
+++ t/op/string.t (working copy)
@@ -1919,14 +1919,14 @@
pir_output_is( <<'CODE', <<'OUTPUT', 'sprintf - left justify' );
.sub main :main
- $P0 = new .ResizablePMCArray
- $P1 = new .Integer
+ $P0 = new 'ResizablePMCArray'
+ $P1 = new 'Integer'
$P1 = 10
$P0[0] = $P1
- $P1 = new .String
+ $P1 = new 'String'
$P1 = "foo"
$P0[1] = $P1
- $P1 = new .String
+ $P1 = new 'String'
$P1 = "bar"
$P0[2] = $P1
$S0 = sprintf "%-*s - %s\n", $P0
@@ -1941,7 +1941,7 @@
my $output = substr( ( 'f' x ( $PConfig{intvalsize} * 2 ) ) . ( ' ' x 20
), 0, 20 );
pir_output_is( <<'CODE', $output, 'Correct precision for %x' ); }
.sub main :main
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
$P0[0] = -1
$S0 = sprintf "%-20x", $P0
print $S0
Index: t/op/calling.t
===================================================================
--- t/op/calling.t (revision 20629)
+++ t/op/calling.t (working copy)
@@ -401,13 +401,13 @@
pir_output_is( <<'CODE', <<'OUTPUT', "type conversion - fetch" );
.sub main :main
- $P0 = new .String
+ $P0 = new 'String'
$P0 = "hello"
- $P1 = new .Integer
+ $P1 = new 'Integer'
$P1 = 42
- $P2 = new .String
+ $P2 = new 'String'
$P2 = "again"
- $P3 = new .Float
+ $P3 = new 'Float'
$P3 = 47.11
find_name $P10, "foo"
# set_args and invoke must be adjacent
@@ -1244,7 +1244,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "tailcall to NCI" );
.sub main :main
.local pmc s
- s = new .String
+ s = new 'String'
s = "OK 1\n"
$S0 = s."lower"()
print $S0
@@ -1563,7 +1563,7 @@
.local string result
result = "not ok 2\n"
.local pmc cont
- cont = new .Continuation
+ cont = new 'Continuation'
set_addr cont, cont_dest
bar(cont, "ok 1\n")
print "oops\n"
@@ -1590,7 +1590,7 @@
.local string result
result = "not ok 2\n"
.local pmc cont
- cont = new .Continuation
+ cont = new 'Continuation'
set_addr cont, cont_dest
bar(cont, "ok 1\n")
print "oops\n"
@@ -1619,7 +1619,7 @@
## debug 0x80
.lex "MAIN-CONT", $P41
$I42 = 10
- $P41 = new .Continuation
+ $P41 = new 'Continuation'
set_addr $P41, L2
goto L3
L2:
@@ -2129,7 +2129,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "named flat/slurpy" );
.sub main :main
.local pmc h
- h = new .Hash
+ h = new 'Hash'
h['a'] = 20
h['b'] = 10
foo( h :named :flat )
@@ -2281,10 +2281,10 @@
.sub main :main
foo(0, 'abc' => 1)
foo('abc' => 2)
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
push $P0, 1
foo($P0 :flat, 'abc' => 3)
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
foo($P0 :flat, 'abc' => 4)
.end
@@ -2305,7 +2305,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "slurpy named loses :flat arg (#39044)" );
.sub main :main
- $P0 = new .Hash
+ $P0 = new 'Hash'
$P0['a'] = 11
$P0['b'] = 22
$P0['c'] = 33
@@ -2334,7 +2334,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "slurpy named loses :flat arg" );
.sub main :main
- $P0 = new .Hash
+ $P0 = new 'Hash'
$P0['a'] = 11
$P0['b'] = 22
$P0['c'] = 33
@@ -2389,7 +2389,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "RT #40490 - flat/slurpy named arguments"
);
.sub 'main' :main
.local pmc args
- args = new .Hash
+ args = new 'Hash'
args['foo'] = 1
args['bar'] = 2
@@ -2452,10 +2452,10 @@
.sub main :main
foo(0, 'abc' => 1)
foo('abc' => 2)
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
push $P0, 1
foo($P0 :flat, 'abc' => 3)
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
foo($P0 :flat, 'abc' => 4)
.end
Index: t/op/cmp-nonbranch.t
===================================================================
--- t/op/cmp-nonbranch.t (revision 20629)
+++ t/op/cmp-nonbranch.t (working copy)
@@ -78,17 +78,17 @@
.SET_DESC('issame')
init:
- $P0 = new .Integer
- $P1 = new .String
+ $P0 = new 'Integer'
+ $P1 = new 'String'
bsr exp_nok
bsr test_it # not ok
- $P0 = new .String
+ $P0 = new 'String'
bsr test_it # not ok
bsr exp_ok
$P1 = $P0
bsr test_it # ok
- $P0 = new .Null
- $P1 = new .Null
+ $P0 = new 'Null'
+ $P1 = new 'Null'
bsr test_it # ok -- Null is a singleton
.return ()
@@ -105,17 +105,17 @@
.SET_DESC('isntsame')
init:
- $P0 = new .Integer
- $P1 = new .String
+ $P0 = new 'Integer'
+ $P1 = new 'String'
bsr exp_ok
bsr test_it # ok
- $P0 = new .String
+ $P0 = new 'String'
bsr test_it # ok
$P1 = $P0
bsr exp_nok
bsr test_it # not ok
- $P0 = new .Null
- $P1 = new .Null
+ $P0 = new 'Null'
+ $P1 = new 'Null'
bsr test_it # not ok -- Null is a singleton
.return ()
@@ -132,7 +132,7 @@
.SET_DESC('istrue')
init:
- $P0 = new .Integer
+ $P0 = new 'Integer'
$P0 = 0
bsr exp_nok
bsr test_it # not ok
@@ -154,7 +154,7 @@
.SET_DESC('isfalse')
init:
- $P0 = new .Integer
+ $P0 = new 'Integer'
$P0 = 0
bsr exp_ok
bsr test_it # ok
Index: t/op/debuginfo.t
===================================================================
--- t/op/debuginfo.t (revision 20629)
+++ t/op/debuginfo.t (working copy)
@@ -175,7 +175,7 @@
.sub main :main
setfile "foo.p6"
setline 123
- $P0 = new .Integer
+ $P0 = new 'Integer'
assign $P0, 9876
set_global '$a', $P0
Index: t/op/bitwise.t
===================================================================
--- t/op/bitwise.t (revision 20629)
+++ t/op/bitwise.t (working copy)
@@ -524,14 +524,14 @@
i_bytes_per_word = sysinfo .SYSINFO_PARROT_INTSIZE
i_bits_per_word_minus_one = 8 * i_bytes_per_word
dec i_bits_per_word_minus_one
- bits_per_word_minus_one = new .Integer
+ bits_per_word_minus_one = new 'Integer'
bits_per_word_minus_one = i_bits_per_word_minus_one
- integer_modulus = new .BigInt
+ integer_modulus = new 'BigInt'
integer_modulus = 1
integer_modulus <<= bits_per_word_minus_one
## Test shifting a positive number.
- new $P0, .Integer
+ new $P0, 'Integer'
set $P0, 1000001
test_shift($P0, integer_modulus)
@@ -543,7 +543,7 @@
.sub test_shift
.param pmc number
.param pmc integer_modulus
- new $P1, .Integer
+ new $P1, 'Integer'
set $P1, 1
.local int i_number
i_number = number
