darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-27 05:50:43 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Mon Jun 15 13:18:21 1998 Jim Ingham <jingham@cygnus.com>

Browse Source 
* gdbtk.c (gdbtk_init): Add elements to the auto_path AS LIST
       ELEMENTS.  This allows gdbtk to work when installed in a directory
       which has a space in the path.  D. Moseley pointed out the bug.
This commit is contained in:
Jim Ingham 1998-06-16 19:36:47 +00:00
parent 702968c54b
commit 0436459d40
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/ChangeLog-gdbtk
View File

@ -1,3 +1,10 @@
Mon Jun 15 13:18:21 1998 Jim Ingham <jingham@cygnus.com>
* gdbtk.c (gdbtk_init): Add elements to the auto_path AS LIST
ELEMENTS. This allows gdbtk to work when installed in a directory
which has a space in the path. D. Moseley pointed out the bug.
Tue Jun 9 14:10:46 1998 Keith Seitz <keiths@cygnus.com>
* gdbtk.c (gdb_get_vars_command): Return static variables and

12
gdb/gdbtk.c
View File

@ -2127,6 +2127,7 @@ gdbtk_init ( argv0 )
struct cleanup *old_chain;
char *lib, *gdbtk_lib, *gdbtk_lib_tmp, *gdbtk_file;
int i, found_main;
Tcl_Obj *auto_path_elem, *auto_path_name;
#ifndef WINNT
struct sigaction action;
static sigset_t nullsigmask = {0};
@ -2379,9 +2380,14 @@ gdbtk_init ( argv0 )
found_main = 0;
/* see if GDBTK_LIBRARY is a path list */
lib = strtok (gdbtk_lib_tmp, GDBTK_PATH_SEP);
auto_path_elem = Tcl_NewObj ();
auto_path_name = Tcl_NewStringObj ("auto_path", -1);
do
{
if (Tcl_VarEval (interp, "lappend auto_path ", lib, NULL) != TCL_OK)
Tcl_SetStringObj (auto_path_elem, lib, -1);
if (Tcl_ObjSetVar2 (interp, auto_path_name, NULL, auto_path_elem,
TCL_GLOBAL_ONLY | TCL_LIST_ELEMENT ) == NULL)
{
fputs_unfiltered (Tcl_GetVar (interp, "errorInfo", 0), gdb_stderr);
error ("");
@ -2399,7 +2405,9 @@ gdbtk_init ( argv0 )
while ((lib = strtok (NULL, ":")) != NULL);
free (gdbtk_lib_tmp);
Tcl_DecrRefCount(auto_path_elem);
Tcl_DecrRefCount(auto_path_name);
if (!found_main)
{
/* Try finding it with the auto path. */