Re: [RFA] syntax error in interface.tcl

[Mo DeJong <mdejong at cygnus dot com>]

On Thu, 5 Jul 2001, John R. Moore wrote:

> This only fixes the syntax, I didn't follow what the syntax does:
> 
> John
> 
> 2001-07-05  John R. Moore  <jmoore@cygnus.com>
>         * interface.tcl (gdbtk_locate_main): Correct syntax.
> 
> Index: gdb/gdbtk/library/interface.tcl
> ===================================================================
> RCS file: /cvs/cvsfiles/devo/gdb/gdbtk/library/interface.tcl,v
> retrieving revision 1.13
> diff -p -u -r1.13 interface.tcl
> --- gdb/gdbtk/library/interface.tcl	2001/06/14 21:03:25	1.13
> +++ gdb/gdbtk/library/interface.tcl	2001/07/06 00:25:10
> @@ -787,7 +787,7 @@ proc gdbtk_locate_main {} {
>        return $linespec
>      }
>    }
> -  if {![catch gdb_entry_point entry_point]
> +  if {![catch {gdb_entry_point entry_point}] \
>        && ![catch {gdb_loc "*$entry_point"} linespec]} {
>      return $linespec
>    }


I don't think this is correct. You should not need a \
at the end of a line in {} block.

For example, this is legal Tcl code:

if {0 ||
    1 } {
  puts true
}

Mo DeJong
Red Hat Inc