OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

1999-02-11 Martin Hunt <hunt@cygnus.com> 

* gdbtk.c, gdbtk-cmds.c, gdbtk-hooks.c: Removed old IDE stuff.
This commit is contained in:
Martin Hunt 1999-02-11 20:53:23 +00:00
parent 8fa71a718c
commit 5288b2e1b2
4 changed files with 4 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/ChangeLog-gdbtk
View File

@ -1,3 +1,7 @@
1999-02-11 Martin Hunt <hunt@cygnus.com>
* gdbtk.c, gdbtk-cmds.c, gdbtk-hooks.c: Removed old IDE stuff.
1999-02-09 Martin Hunt <hunt@cygnus.com> 1999-02-09 Martin Hunt <hunt@cygnus.com>
* gdbtk-hooks.c: Remove gdbtk_ignorable_warning prototype. * gdbtk-hooks.c: Remove gdbtk_ignorable_warning prototype.

8
gdb/gdbtk-cmds.c
View File

@ -44,14 +44,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "guitcl.h" #include "guitcl.h"
#include "gdbtk.h" #include "gdbtk.h"
/* start-sanitize-ide */
#ifdef IDE
#include "event.h"
#include "idetcl.h"
#include "ilutk.h"
#endif
/* end-sanitize-ide */
#ifdef ANSI_PROTOTYPES #ifdef ANSI_PROTOTYPES
#include <stdarg.h> #include <stdarg.h>
#else #else

8
gdb/gdbtk-hooks.c
View File

@ -44,14 +44,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "guitcl.h" #include "guitcl.h"
#include "gdbtk.h" #include "gdbtk.h"
#ifdef IDE
/* start-sanitize-ide */
#include "event.h"
#include "idetcl.h"
#include "ilutk.h"
/* end-sanitize-ide */
#endif
#ifdef ANSI_PROTOTYPES #ifdef ANSI_PROTOTYPES
#include <stdarg.h> #include <stdarg.h>
#else #else

109
gdb/gdbtk.c
View File

@ -44,14 +44,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "guitcl.h" #include "guitcl.h"
#include "gdbtk.h" #include "gdbtk.h"
/* start-sanitize-ide */
#ifdef IDE
#include "event.h"
#include "idetcl.h"
#include "ilutk.h"
#endif
/* end-sanitize-ide */
#ifdef ANSI_PROTOTYPES #ifdef ANSI_PROTOTYPES
#include <stdarg.h> #include <stdarg.h>
#else #else
@ -317,12 +309,6 @@ gdbtk_cleanup (dummy)
PTR dummy; PTR dummy;
{ {
Tcl_Eval (gdbtk_interp, "gdbtk_cleanup"); Tcl_Eval (gdbtk_interp, "gdbtk_cleanup");
#ifdef IDE
{
struct ide_event_handle *h = (struct ide_event_handle *) dummy;
ide_interface_deregister_all (h);
}
#endif
Tcl_Finalize (); Tcl_Finalize ();
} }
@ -342,14 +328,6 @@ gdbtk_init ( argv0 )
char s[5]; char s[5];
Tcl_Obj *auto_path_elem, *auto_path_name; Tcl_Obj *auto_path_elem, *auto_path_name;
/* start-sanitize-ide */
#ifdef IDE
struct ide_event_handle *h;
const char *errmsg;
char *libexecdir;
#endif
/* end-sanitize-ide */
/* If there is no DISPLAY environment variable, Tk_Init below will fail, /* If there is no DISPLAY environment variable, Tk_Init below will fail,
causing gdb to abort. If instead we simply return here, gdb will causing gdb to abort. If instead we simply return here, gdb will
gracefully degrade to using the command line interface. */ gracefully degrade to using the command line interface. */
@ -380,84 +358,12 @@ gdbtk_init ( argv0 )
sprintf (s, "%d", inhibit_gdbinit); sprintf (s, "%d", inhibit_gdbinit);
Tcl_SetVar2 (gdbtk_interp, "GDBStartup", "inhibit_prefs", s, TCL_GLOBAL_ONLY); Tcl_SetVar2 (gdbtk_interp, "GDBStartup", "inhibit_prefs", s, TCL_GLOBAL_ONLY);
/* start-sanitize-ide */
#ifndef IDE
/* end-sanitize-ide */
/* For the IDE we register the cleanup later, after we've
initialized events. */
make_final_cleanup (gdbtk_cleanup, NULL); make_final_cleanup (gdbtk_cleanup, NULL);
/* start-sanitize-ide */
#endif /* IDE */
/* end-sanitize-ide */
/* Initialize the Paths variable. */ /* Initialize the Paths variable. */
if (ide_initialize_paths (gdbtk_interp, "") != TCL_OK) if (ide_initialize_paths (gdbtk_interp, "") != TCL_OK)
error ("ide_initialize_paths failed: %s", gdbtk_interp->result); error ("ide_initialize_paths failed: %s", gdbtk_interp->result);
/* start-sanitize-ide */
#ifdef IDE
/* Find the directory where we expect to find idemanager. We ignore
errors since it doesn't really matter if this fails. */
libexecdir = Tcl_GetVar2 (gdbtk_interp, "Paths", "libexecdir", TCL_GLOBAL_ONLY);
IluTk_Init ();
h = ide_event_init_from_environment (&errmsg, libexecdir);
make_final_cleanup (gdbtk_cleanup, h);
if (h == NULL)
{
Tcl_AppendResult (gdbtk_interp, "can't initialize event system: ", errmsg,
(char *) NULL);
fprintf(stderr, "WARNING: ide_event_init_client failed: %s\n", gdbtk_interp->result);
Tcl_SetVar (gdbtk_interp, "IDE_ENABLED", "0", 0);
}
else
{
if (ide_create_tclevent_command (gdbtk_interp, h) != TCL_OK)
error ("ide_create_tclevent_command failed: %s", gdbtk_interp->result);
if (ide_create_edit_command (gdbtk_interp, h) != TCL_OK)
error ("ide_create_edit_command failed: %s", gdbtk_interp->result);
if (ide_create_property_command (gdbtk_interp, h) != TCL_OK)
error ("ide_create_property_command failed: %s", gdbtk_interp->result);
if (ide_create_build_command (gdbtk_interp, h) != TCL_OK)
error ("ide_create_build_command failed: %s", gdbtk_interp->result);
if (ide_create_window_register_command (gdbtk_interp, h, "gdb-restore")
!= TCL_OK)
error ("ide_create_window_register_command failed: %s",
gdbtk_interp->result);
if (ide_create_window_command (gdbtk_interp, h) != TCL_OK)
error ("ide_create_window_command failed: %s", gdbtk_interp->result);
if (ide_create_exit_command (gdbtk_interp, h) != TCL_OK)
error ("ide_create_exit_command failed: %s", gdbtk_interp->result);
if (ide_create_help_command (gdbtk_interp) != TCL_OK)
error ("ide_create_help_command failed: %s", gdbtk_interp->result);
/*
if (ide_initialize (gdbtk_interp, "gdb") != TCL_OK)
error ("ide_initialize failed: %s", gdbtk_interp->result);
*/
Tcl_SetVar (gdbtk_interp, "IDE_ENABLED", "1", 0);
}
#else
/* end-sanitize-ide */
Tcl_SetVar (gdbtk_interp, "IDE_ENABLED", "0", 0);
/* start-sanitize-ide */
#endif /* IDE */
/* end-sanitize-ide */
/* We don't want to open the X connection until we've done all the
IDE initialization. Otherwise, goofy looking unfinished windows
pop up when ILU drops into the TCL event loop. */
if (Tk_Init(gdbtk_interp) != TCL_OK) if (Tk_Init(gdbtk_interp) != TCL_OK)
error ("Tk_Init failed: %s", gdbtk_interp->result); error ("Tk_Init failed: %s", gdbtk_interp->result);
@ -493,11 +399,6 @@ gdbtk_init ( argv0 )
error ("sizebox creation failed"); error ("sizebox creation failed");
if (ide_create_winprint_command (gdbtk_interp) != TCL_OK) if (ide_create_winprint_command (gdbtk_interp) != TCL_OK)
error ("windows print code initialization failed"); error ("windows print code initialization failed");
/* start-sanitize-ide */
/* An interface to ShellExecute. */
if (ide_create_shell_execute_command (gdbtk_interp) != TCL_OK)
error ("shell execute command initialization failed");
/* end-sanitize-ide */
if (ide_create_win_grab_command (gdbtk_interp) != TCL_OK) if (ide_create_win_grab_command (gdbtk_interp) != TCL_OK)
error ("grab support command initialization failed"); error ("grab support command initialization failed");
/* Path conversion functions. */ /* Path conversion functions. */
@ -604,16 +505,6 @@ gdbtk_find_main";
} }
} }
/* start-sanitize-ide */
#ifdef IDE
/* Don't do this until we have initialized. Otherwise, we may get a
run command before we are ready for one. */
if (ide_run_server_init (gdbtk_interp, h) != TCL_OK)
error ("ide_run_server_init failed: %s", gdbtk_interp->result);
#endif
/* end-sanitize-ide */
/* Now source in the filename provided by the --tclcommand option. /* Now source in the filename provided by the --tclcommand option.
This is mostly used for the gdbtk testsuite... */ This is mostly used for the gdbtk testsuite... */