Ticket #281: tt281-debuginfo-fastcore.patch

File tt281-debuginfo-fastcore.patch, 2.7 KB (added by rurban, 6 years ago)
  • src/runops_cores.c

    old new  
    279279runops_fast_core(PARROT_INTERP, ARGIN(opcode_t *pc)) 
    280280{ 
    281281    ASSERT_ARGS(runops_fast_core) 
     282 
     283    /* disable pc */ 
     284    CONTEXT(interp)->current_pc = NULL; 
     285 
    282286    while (pc) { 
    283287        DO_OP(pc, interp); 
    284288    } 
     
    307311runops_cgoto_core(PARROT_INTERP, ARGIN(opcode_t *pc)) 
    308312{ 
    309313    ASSERT_ARGS(runops_cgoto_core) 
     314 
     315    /* disable pc */ 
     316    CONTEXT(interp)->current_pc = NULL; 
     317 
    310318#ifdef HAVE_COMPUTED_GOTO 
    311319    pc = cg_core(pc, interp); 
    312320    return pc; 
  • t/op/debuginfo.t

    old new  
    2323 
    2424=cut 
    2525 
    26 pasm_output_like( <<'CODE', <<'OUTPUT', "getline, getfile" ); 
     26$ENV{TEST_PROG_ARGS} ||= ''; 
     27my $nolineno = $ENV{TEST_PROG_ARGS} =~ /-f|-g/ 
     28    ? "\\(unknown file\\)\n-1" : "debuginfo_\\d+\\.pasm\n\\d"; 
     29 
     30SKIP: { 
     31skip "disabled on fast-core",1 if $ENV{TEST_PROG_ARGS} =~ /-f/; 
     32 
     33pasm_output_like( <<'CODE', <<"OUTPUT", "getline, getfile" ); 
    2734.pcc_sub main: 
    2835    getfile S0 
    2936    getline I0 
    30     print S0 
    31     print "\n" 
    32     print I0 
    33     print "\n" 
     37    say S0 
     38    say I0 
    3439    end 
    3540CODE 
    36 /debuginfo_\d+\.pasm 
    37 \d/ 
     41/$nolineno/ 
    3842OUTPUT 
     43} 
    3944 
    4045pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - Null PMC access" ); 
    4146.sub main 
     
    159164called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/ 
    160165OUTPUT 
    161166 
     167$nolineno = $ENV{TEST_PROG_ARGS} =~ /-f|-g/ 
     168    ? '\(\(unknown file\):-1\)' : '\(xyz.pir:126\)'; 
     169 
     170SKIP: { 
     171skip "disabled on fast-core",2 if $ENV{TEST_PROG_ARGS} =~ /-f/; 
     172 
    162173# See "RT #43269 and .annotate 
    163 pir_error_output_like( <<'CODE', <<'OUTPUT', "setfile and setline" ); 
     174pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" ); 
    164175.sub main :main 
    165176    setfile "xyz.pir" 
    166177    setline 123 
     
    169180    'no_such_function'($S0, $I0) 
    170181.end 
    171182CODE 
    172 /\(xyz.pir:126\)/ 
     183/$nolineno/ 
    173184OUTPUT 
    174185 
     186$nolineno = $ENV{TEST_PROG_ARGS} =~ /-f|-g/ 
     187    ? '\(\(unknown file\):-1\)' : '\(foo.p6:128\)'; 
    175188# See "RT #43269 and .annotate 
    176 pir_error_output_like( <<'CODE', <<'OUTPUT', "setfile and setline" ); 
     189pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" ); 
    177190.sub main :main 
    178191    setfile "foo.p6" 
    179192    setline 123 
     
    188201    'nsf'($P1) 
    189202.end 
    190203CODE 
    191 /\(foo.p6:128\)/ 
     204/$nolineno/ 
    192205OUTPUT 
    193206 
     207} 
     208 
    194209# Local Variables: 
    195210#   mode: cperl 
    196211#   cperl-indent-level: 4