This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
Re: [RFA] most-recently used file fix
- From: Keith Seitz <keiths at redhat dot com>
- To: "Martin M. Hunt" <hunt at redhat dot com>
- Cc: Insight Mailing List <insight at sources dot redhat dot com>
- Date: Fri, 11 Jan 2002 13:58:26 -0800 (PST)
- Subject: 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
>