# New Ticket Created by Colin Kuskie
# Please include the string: [perl #44671]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44671 >
The attached patch changes the deprecated .Class syntax to the more modern
'Class'.
Index: t/compilers/imcc/syn/macro.t
===================================================================
--- t/compilers/imcc/syn/macro.t (revision 20629)
+++ t/compilers/imcc/syn/macro.t (working copy)
@@ -179,11 +179,11 @@
open $FOO, '>', 'macro.tempfile'; # Clobber previous
print $FOO <<'ENDF';
.macro multiply(A,B)
- new P0, .Float
+ new P0, 'Float'
set P0, .A
- new P1, .Float
+ new P1, 'Float'
set P1, .B
- new P2, .Float
+ new P2, 'Float'
mul P2, P1, P0
.endm
ENDF
@@ -205,7 +205,7 @@
.sub test :main
.macro newid(ID, CLASS)
.sym .CLASS .ID
- .ID = new .CLASS
+ .ID = new 'CLASS'
.endm
.newid(var, Undef)
var = 10
@@ -221,7 +221,7 @@
.sub test :main
.macro newlex(ID, CLASS)
.sym .CLASS .ID
- .ID = new .CLASS
+ .ID = new 'CLASS'
# store_lex -1, .ID , .ID # how to stringify .ID
.endm
.newlex(var, Undef)
Index: t/compilers/imcc/syn/pcc.t
===================================================================
--- t/compilers/imcc/syn/pcc.t (revision 20629)
+++ t/compilers/imcc/syn/pcc.t (working copy)
@@ -170,7 +170,7 @@
.sub test :main
.local int i
i=5
- new $P1, .Continuation
+ new $P1, 'Continuation'
set_addr $P1, after_loop
loop:
$I2 = _addtwo($P1, i)
@@ -238,7 +238,7 @@
goto loop
done:
print "done in coroutine\n"
- new $P0, .Exception
+ new $P0, 'Exception'
throw $P0
.end
CODE
@@ -259,16 +259,16 @@
pir_output_is( <<'CODE', <<'OUT', ".arg :flat" );
.sub _main
.local pmc x, y, z, ar, ar2, s
- x = new .String
+ x = new 'String'
x = "first\n"
- y = new .String
+ y = new 'String'
y = "middle\n"
- z = new .String
+ z = new 'String'
z = "last\n"
- ar = new .ResizablePMCArray
+ ar = new 'ResizablePMCArray'
push ar, "ok 1\n"
push ar, "ok 2\n"
- ar2 = new .ResizablePMCArray
+ ar2 = new 'ResizablePMCArray'
push ar2, "ok 3\n"
push ar2, "ok 4\n"
push ar2, "ok 5\n"
@@ -315,16 +315,16 @@
pir_output_is( <<'CODE', <<'OUT', "foo (arg :flat)" );
.sub _main
.local pmc x, y, z, ar, ar2
- x = new .String
+ x = new 'String'
x = "first\n"
- y = new .String
+ y = new 'String'
y = "middle\n"
- z = new .String
+ z = new 'String'
z = "last\n"
- ar = new .ResizablePMCArray
+ ar = new 'ResizablePMCArray'
push ar, "ok 1\n"
push ar, "ok 2\n"
- ar2 = new .ResizablePMCArray
+ ar2 = new 'ResizablePMCArray'
push ar2, "ok 3\n"
push ar2, "ok 4\n"
push ar2, "ok 5\n"
Index: t/compilers/imcc/reg/alloc.t
===================================================================
--- t/compilers/imcc/reg/alloc.t (revision 20629)
+++ t/compilers/imcc/reg/alloc.t (working copy)
@@ -12,14 +12,14 @@
# detected this program prints "Hi\nalligator\n"
.sub main :main
- $P0 = new .String
+ $P0 = new 'String'
$P0 = "Hi\n"
$I0 = 2
lab:
print $P0
dec $I0
unless $I0 goto ex
- new $P1, .Continuation
+ new $P1, 'Continuation'
set_addr $P1, lab
$P2 = find_name "alligator"
set_args "(0)", $P1
@@ -38,7 +38,7 @@
pir_output_is( <<'CODE', <<'OUT', "alligator 2 - r9629" );
.sub xyz
.local pmc args
- args = new .ResizablePMCArray
+ args = new 'ResizablePMCArray'
push args, "abc"
push args, "def"
push args, "POPME"
@@ -115,7 +115,7 @@
pir_output_is( <<'CODE', <<'OUT', "Explicit large register: P, PIR" );
.sub main
- P32 = new .String
+ P32 = new 'String'
P32 = "ok\n"
print P32
.end
@@ -150,7 +150,7 @@
OUT
pasm_output_is( <<'CODE', <<'OUT', "Explicit large register: P, PASM" );
- new P32, .String
+ new P32, 'String'
set P32, "ok\n"
print P32
end
