From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <insight-return-3055-listarch-insight=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 8294 invoked by alias); 21 Nov 2001 22:45:01 -0000
Mailing-List: contact insight-help@sourceware.cygnus.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:insight-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/insight/>
List-Post: <mailto:insight@sources.redhat.com>
List-Help: <mailto:insight-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: insight-owner@sources.redhat.com
Received: (qmail 8230 invoked from network); 21 Nov 2001 22:44:56 -0000
X-Authentication-Warning: makita.cygnus.com: keiths owned process doing -bs
Date: Thu, 04 Oct 2001 18:44:00 -0000
From: Keith Seitz <keiths@cygnus.com>
To: Tom Tromey <tromey@redhat.com>
cc: Insight List <insight@sourceware.cygnus.com>
Subject: Re: Startup with --args
In-Reply-To: <87d72biwbh.fsf@creche.redhat.com>
Message-ID: <Pine.GSO.4.33.0111211442230.28893-100000@makita.cygnus.com>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-SW-Source: 2001-q4/txt/msg00052.txt.bz2

On 21 Nov 2001, Tom Tromey wrote:

> It never occurred to me.  Unbelievable.  How about the appended?  It
> is much simpler.

YES! Love that isolation! Of course, late last night I convinced myself
that maybe your original patch is correct, too. :-(

Time will tell.
Keith

> Index: ChangeLog
> from  Tom Tromey  <tromey@redhat.com>
>
> 	* library/interface.tcl (gdbtk_tcl_preloop): Override session's
> 	command-line arguments if required.
>
> Index: library/interface.tcl
> ===================================================================
> RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
> retrieving revision 1.32
> diff -u -r1.32 interface.tcl
> --- library/interface.tcl 2001/11/19 18:43:19 1.32
> +++ library/interface.tcl 2001/11/21 22:36:53
> @@ -113,8 +113,14 @@
>
>    if {$gdb_exe_name != ""} {
>      # At startup, file_changed_hook is called too late for us, so we
> -    # must notice the initial session by hand.
> +    # must notice the initial session by hand.  If the arguments exist
> +    # -- if the user used `gdb --args' -- then we want the new
> +    # arguments to override the session's arguments.
> +    set current_args [gdb_get_inferior_args]
>      session_notice_file_change
> +    if {[string length $current_args] > 0} {
> +      gdb_set_inferior_args $current_args
> +    }
>    }
>
>    gdbtk_update
>

From mboxrd@z Thu Jan  1 00:00:00 1970
From: Keith Seitz <keiths@cygnus.com>
To: Tom Tromey <tromey@redhat.com>
Cc: Insight List <insight@sourceware.cygnus.com>
Subject: Re: Startup with --args
Date: Wed, 21 Nov 2001 14:45:00 -0000
Message-ID: <Pine.GSO.4.33.0111211442230.28893-100000@makita.cygnus.com>
References: <87d72biwbh.fsf@creche.redhat.com>
X-SW-Source: 2001-q4/msg00353.html
Message-ID: <20011121144500.0KF6Jk_EplhVO7ZRxpOoL5VrZf9X5bFo380GO6Al9-w@z>

On 21 Nov 2001, Tom Tromey wrote:

> It never occurred to me.  Unbelievable.  How about the appended?  It
> is much simpler.

YES! Love that isolation! Of course, late last night I convinced myself
that maybe your original patch is correct, too. :-(

Time will tell.
Keith

> Index: ChangeLog
> from  Tom Tromey  <tromey@redhat.com>
>
> 	* library/interface.tcl (gdbtk_tcl_preloop): Override session's
> 	command-line arguments if required.
>
> Index: library/interface.tcl
> ===================================================================
> RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
> retrieving revision 1.32
> diff -u -r1.32 interface.tcl
> --- library/interface.tcl 2001/11/19 18:43:19 1.32
> +++ library/interface.tcl 2001/11/21 22:36:53
> @@ -113,8 +113,14 @@
>
>    if {$gdb_exe_name != ""} {
>      # At startup, file_changed_hook is called too late for us, so we
> -    # must notice the initial session by hand.
> +    # must notice the initial session by hand.  If the arguments exist
> +    # -- if the user used `gdb --args' -- then we want the new
> +    # arguments to override the session's arguments.
> +    set current_args [gdb_get_inferior_args]
>      session_notice_file_change
> +    if {[string length $current_args] > 0} {
> +      gdb_set_inferior_args $current_args
> +    }
>    }
>
>    gdbtk_update
>