# New Ticket Created by  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>

Reply via email to