Ticket #1181: ops_coverage_hack.patch

File ops_coverage_hack.patch, 1.1 KB (added by plobsing, 7 years ago)

  • lib/Parrot/Ops2c/Utils.pm

     
    742742        my $source_escaped = $source; 
    743743        $source_escaped =~ s|\.temp||; 
    744744        $source_escaped =~ s|(\\)|$1$1|g;    # escape backslashes 
    745         print $fh qq{#line $line "$source_escaped"\n}; 
     745        print $fh qq{#line $line "./$source_escaped"\n}; 
    746746    } 
    747747} 
    748748 

  • lib/Parrot/OpsFile.pm

     
    563563 
    564564        my $file_escaped = $file; 
    565565        $file_escaped =~ s|(\\)|$1$1|g;    # escape backslashes 
    566         $op->body( $nolines ? $body : qq{#line $line "$file_escaped"\n$body} ); 
     566        $op->body( $nolines ? $body : qq{#line $line "./$file_escaped"\n$body} ); 
    567567 
    568568        # Constants here are defined in include/parrot/op.h 
    569569        or_flag( \$jumps, "PARROT_JUMP_ADDRESS"  ) if $absolute;