# 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