Permalink
Browse files

Remove COP address for now.

  • Loading branch information...
1 parent e8a6a5c commit facaaf2d9402b1e5949faa6b32ddc2553fcca6da Rocky Bernstein committed Aug 13, 2012
@@ -61,8 +61,9 @@ sub run($$)
$proc->msg($m);
local(*DB::dbline) = "::_<$filename";
if (defined($DB::dbline[$line]) && 0 != $DB::dbline[$line]) {
- $m = sprintf "COP address: 0x%x.", $DB::dbline[$line];
- $proc->msg($m);
+ ;
+ # $m = sprintf "COP address: 0x%x.", $DB::dbline[$line];
+ # $proc->msg($m);
} else {
$proc->msg("Line not showing as associated with code\n")
unless $end_line;
@@ -29,10 +29,10 @@ sub run($$)
}
$m = sprintf "Program stop event: %s.", $proc->{event};
$proc->msg($m);
- if (defined($DB::dbline[$line]) && 0 != $DB::dbline[$line]) {
- $m = sprintf "COP address: 0x%x.", $DB::dbline[$line];
- $proc->msg($m);
- }
+ # if (defined($DB::dbline[$line]) && 0 != $DB::dbline[$line]) {
+ # $m = sprintf "COP address: 0x%x.", $DB::dbline[$line];
+ # $proc->msg($m);
+ # }
if ('return' eq $proc->{event}) {
$proc->{commands}{info}->run(['info', 'return']);
} elsif ('raise' eq $proc->{event}) {
View
@@ -3,7 +3,6 @@ die sprintf "Need two integer arguments, got %d", scalar(@ARGV) unless
@ARGV == 2;
basename is on.
Line 18, file gcd.pl
-COP address: 0x12345678.
Line 19, file gcd.pl
Line not showing as associated with code

0 comments on commit facaaf2

Please sign in to comment.