Remove COP address for now.

rocky · Aug 13, 2012 · facaaf2 · facaaf2
1 parent e8a6a5c
commit facaaf2
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Line.pm b/lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Line.pm
@@ -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;

diff --git a/lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Program.pm b/lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Program.pm
@@ -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]) {
+    # if (defined($DB::dbline[$line]) && 0 != $DB::dbline[$line]) {
-	$m = sprintf "COP address: 0x%x.", $DB::dbline[$line];
+    # 	$m = sprintf "COP address: 0x%x.", $DB::dbline[$line];
-	$proc->msg($m);
+    # 	$proc->msg($m);
-    }
+    # }
     if ('return' eq $proc->{event}) {
 	$proc->{commands}{info}->run(['info', 'return']);
     } elsif ('raise' eq  $proc->{event}) {

diff --git a/t/data/line.right b/t/data/line.right
@@ -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