[perl #38371] [BUG] t/op/calling.t is failing (IREGs aren't being cleared)
Jerry Gay
# Please include the string: [perl #38371]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=38371 >
on platforms sensitive to IREGs with junk data, or on any platform
when running `TEST_PROG_ARGS=-D40 perl -Ilib t/op/calling.t`, test 78
is failing (as reported on #parrot by jisom)
it seems to me, from the trace below, that IREGs aren't being zeroed
properly. jisom aka joshua isom should be looking at this, but leo
suggested it be ticketed, so it doesn't get lost.
~jerry
below is the failing test output, and the trace.
D:\usr\local\parrot\trunk>parrot t/op/calling.t
error:imcc:syntax error, unexpected IDENTIFIER, expecting $end
in file 't/op/calling.t' line 5
D:\usr\local\parrot\trunk>prove t/op/calling.t
t/op/calling....ok 77/86
# Failed test (t/op/calling.t at line 2007)
# got: '10 1 20 1
t/op/calling....NOK 78# 10 1 20 1
# 10 1 20 1
# 10 1 20 1
# ok
# '
# expected: '10 1 20 1
# 10 1 0 0
# 0 0 20 1
# 0 0 0 0
# ok
# '
t/op/calling....ok 86/86# Looks like you failed 1 test of 86.
t/op/calling....dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 78
Failed 1/86 tests, 98.84% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/op/calling.t 1 256 86 1 1.16% 78
Failed 1/1 test scripts, 0.00% okay. 1/86 subtests failed, 98.84% okay.
D:\usr\local\parrot\trunk>parrot -t t/op/calling_78.pir
0 set_args PMC_C[7] (4), "a", 20, "b", 10
6 set P0, PMC_C[15] - P0=PMCNULL,
9 get_results PMC_C[9]
11 invokecc P0 - P0=Sub=PMC(0x6257b8 pc:47)
47 get_params PMC_C[12] (6), "b", I0, I2, "a", I3, I1 - , , I0=0, I2=0
, , I3=0, I1=0
55 print_item I0 - I0=10
57 print_item I2 - I2=1
59 print_item I3 - I3=20
61 print_item I1 - I1=1
63 print_newline
10 1 20 1
64 set_returns PMC_C[9]
66 returncc
13 set_args PMC_C[2] (2), "b", 10
17 set P0, PMC_C[15] - P0=Sub=PMC(0x6257b8 pc:47),
20 get_results PMC_C[9]
22 invokecc P0 - P0=Sub=PMC(0x6257b8 pc:47)
47 get_params PMC_C[12] (6), "b", I0, I2, "a", I3, I1 - , , I0=10, I2=
1, , I3=20, I1=1
55 print_item I0 - I0=10
57 print_item I2 - I2=1
59 print_item I3 - I3=20
61 print_item I1 - I1=1
63 print_newline
10 1 20 1
64 set_returns PMC_C[9]
66 returncc
24 set_args PMC_C[2] (2), "a", 20
28 set P0, PMC_C[15] - P0=Sub=PMC(0x6257b8 pc:47),
31 get_results PMC_C[9]
33 invokecc P0 - P0=Sub=PMC(0x6257b8 pc:47)
47 get_params PMC_C[12] (6), "b", I0, I2, "a", I3, I1 - , , I0=10, I2=
1, , I3=20, I1=1
55 print_item I0 - I0=10
57 print_item I2 - I2=1
59 print_item I3 - I3=20
61 print_item I1 - I1=1
63 print_newline
10 1 20 1
64 set_returns PMC_C[9]
66 returncc
35 set_args PMC_C[9]
37 set P0, PMC_C[15] - P0=Sub=PMC(0x6257b8 pc:47),
40 get_results PMC_C[9]
42 invokecc P0 - P0=Sub=PMC(0x6257b8 pc:47)
47 get_params PMC_C[12] (6), "b", I0, I2, "a", I3, I1 - , , I0=10, I2=
1, , I3=20, I1=1
55 print_item I0 - I0=10
57 print_item I2 - I2=1
59 print_item I3 - I3=20
61 print_item I1 - I1=1
63 print_newline
10 1 20 1
64 set_returns PMC_C[9]
DOD
GC
66 returncc
44 print "ok\n"
ok
46 end
D:\usr\local\parrot\trunk>