This is the mail archive of the insight@sources.redhat.com mailing list for the Insight project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [RFA] most-recently used file fix


Yes, indeed!

What the heck was I thinking when I checked that muck in?

Thanks,
Keith

On Fri, 11 Jan 2002, Martin M. Hunt wrote:

> This fixes a bug on Windows where loading a file from the
> most-recently used list (under the File pulldown menu) fails.
>
> --
> Martin Hunt
> GDB Engineer
> Red Hat, Inc.
>
>
>
> 2002-01-11  Martin M. Hunt  <hunt@redhat.com>
>
>         * library/interface.tcl (gdbtk_tcl_exec_file_display):
>         Set pathname in host-independent manner using "file" and
> 	gdb_current_directory.
>
> Index: library/interface.tcl
> ===================================================================
> RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
> retrieving revision 1.39
> diff -u -p -r1.39 interface.tcl
> --- interface.tcl	2002/01/08 19:34:48	1.39
> +++ interface.tcl	2002/01/11 21:39:25
> @@ -769,10 +769,9 @@ proc gdbtk_tcl_exec_file_display {filena
>    # quotes, so we need to strip them here.
>    # We need to make sure that we turn filename into
>    # an absolute path or sessions won't work.
> -  set filename [string trim $filename \']
> -  if {[string index $filename 0] != "/"} {
> -    set pwd [pwd]
> -    set filename "$pwd/$filename"
> +  if {[file tail $filename] == $filename} {
> +    # want full pathname
> +    set filename [file join $::gdb_current_directory $filename]
>    }
>    set_exe_name $filename
>    set gdb_exe_changed 0
>


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]