Ticket #1181: ops_coverage_hack.patch
File ops_coverage_hack.patch, 1.1 KB (added by plobsing, 12 years ago) |
---|
-
lib/Parrot/Ops2c/Utils.pm
742 742 my $source_escaped = $source; 743 743 $source_escaped =~ s|\.temp||; 744 744 $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}; 746 746 } 747 747 } 748 748 -
lib/Parrot/OpsFile.pm
563 563 564 564 my $file_escaped = $file; 565 565 $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} ); 567 567 568 568 # Constants here are defined in include/parrot/op.h 569 569 or_flag( \$jumps, "PARROT_JUMP_ADDRESS" ) if $absolute;