Re: [RFA] breakpoint balloon info

[Keith Seitz <keiths at redhat dot com>]

On Thu, 7 Mar 2002, Martin M. Hunt wrote:

> 2002-03-06  Martin M. Hunt  <hunt@redhat.com>
>
> 	* library/srctextwin.itb (SrcTextWin::showBPBalloon):
> 	Reformat output. Add conditions, ignore count, commands.

Don't we need to be a little careful about commands? They could be huge...

Anyway, it all looks innocent enough. Does any of this break the srcwin
tests, by chance? I know we test something about BP balloons in there.

Please commit. Thanks,
Keith


> Index: srctextwin.itb
> ===================================================================
> RCS file: /cvs/src/src/gdb/gdbtk/library/srctextwin.itb,v
> retrieving revision 1.32
> diff -u -p -r1.32 srctextwin.itb
> --- srctextwin.itb	2002/03/05 22:22:20	1.32
> +++ srctextwin.itb	2002/03/07 08:25:09
> @@ -2310,27 +2310,36 @@ body SrcTextWin::showBPBalloon {win x y}
>    }
>
>    set str ""
> -  set need_lf 0
>    foreach b $bps {
>      set bpinfo [gdb_get_breakpoint_info $b]
>      lassign $bpinfo file func linenum addr type enabled disposition \
>        ignore_count commands cond thread hit_count user_specification
> -    if {$thread == "-1"} {set thread "all"}
>      set file [lindex [file split $file] end]
>      if {$enabled} {
>        set enabled "ENA"
>      } else {
>        set enabled "DIS"
>      }
> -    if {$cond == ""} {set cond "none"}
> -    if {$need_lf} {
> -      append str \n
> -    } else {
> -      set need_lf 1
> +
> +    append str [format "breakpoint %d at %s:%d (%#x)\n   %s %s %s" \
> +		  $b $file $linenum $addr $enabled $type $disposition]
> +
> +    if {$thread != "-1"} {
> +      append str "\n   threads: $thread"
> +    }
> +
> +    if {$ignore_count != 0} {
> +      append str "\n   ignore: $ignore_count"
> +    }
> +
> +    if {$cond != ""} {
> +      append str "\n   condition: $cond"
> +    }
> +
> +    if {$commands != ""} {
> +      append str "\n   commands: $commands"
>      }
> -    append str [format "breakpoint %d at %s:%d (%#x)\n\t%s %s %s %s %s" \
> -		  $b $file $linenum $addr $enabled $type $disposition \
> -		  threads=$thread cond=$cond]
> +
>    }
>
>    # Scope out which break type is set here, and use the tag to get
>