2003-02-12 Andrew Cagney <ac131313@redhat.com>

	* event-top.c (cli_command_loop): Delete declaration.
	(_initialize_event_loop): Delete function setting event_loop_hook.
	* event-top.h (cli_command_loop): Declare.  Update copyright.
	(EVENT_TOP_H): Define.  Wrap header in #ifdef EVENT_TOP_H.
	* interps.c (current_interp_command_loop): When event_loop_p, call
	cli_command_loop.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a7ca6ae7e167412bf36ba8f90e826897093b7f51..681a3b4f139aa1f3ee7e6fe5ccebdf8b021071e8 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+2003-02-12  Andrew Cagney  <ac131313@redhat.com>
+
+       * event-top.c (cli_command_loop): Delete declaration.
+       (_initialize_event_loop): Delete function setting event_loop_hook.
+       * event-top.h (cli_command_loop): Declare.  Update copyright.
+       (EVENT_TOP_H): Define.  Wrap header in #ifdef EVENT_TOP_H.
+       * interps.c (current_interp_command_loop): When event_loop_p, call
+       cli_command_loop.
+
 2003-02-12  Andrew Cagney  <ac131313@redhat.com>
 
        * interps.h (interp_command_loop_ftype): Change return type to

diff --git a/gdb/event-top.c b/gdb/event-top.c
index 2b2c4ff2785ba0d3c218d71ca62cde6873975e35..ceef7b9c9ebed9166000fec85c00edb5eb866ad1 100644 (file)
--- a/gdb/event-top.c
+++ b/gdb/event-top.c
@@ -39,15 +39,12 @@
 /* readline defines this.  */
 #undef savestring
 
-extern void _initialize_event_loop (void);
-
 static void rl_callback_read_char_wrapper (gdb_client_data client_data);
 static void command_line_handler (char *rl);
 static void command_line_handler_continuation (struct continuation_arg *arg);
 static void change_line_handler (void);
 static void change_annotation_level (void);
 static void command_handler (char *command);
-void cli_command_loop (void);
 static void async_do_nothing (gdb_client_data arg);
 static void async_disconnect (gdb_client_data arg);
 static void async_stop_sig (gdb_client_data arg);
@@ -1199,12 +1196,3 @@ gdb_disable_readline (void)
       delete_file_handler (input_fd);
     }
 }
-
-void
-_initialize_event_loop (void)
-{
-  /* Tell gdb to use the cli_command_loop as the main loop. */
-  if (event_loop_p && command_loop_hook == NULL)
-    command_loop_hook = cli_command_loop;
-}
-

diff --git a/gdb/event-top.h b/gdb/event-top.h
index d8c0a963989f472025a58388fdf9c339818c3d22..4c06083db2456e97ffbfda970f597fd9afdf36a7 100644 (file)
--- a/gdb/event-top.h
+++ b/gdb/event-top.h
@@ -1,5 +1,7 @@
-/* Definitions used by GDB event-top.c.
-   Copyright 1999, 2001 Free Software Foundation, Inc.
+/* Definitions used by event-top.c, for GDB, the GNU debugger.
+
+   Copyright 1999, 2001, 2003 Free Software Foundation, Inc.
+
    Written by Elena Zannoni <ezannoni@cygnus.com> of Cygnus Solutions.
 
    This file is part of GDB.
@@ -19,6 +21,9 @@
    Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.  */
 
+#ifndef EVENT_TOP_H
+#define EVENT_TOP_H
+
 /* Stack for prompts.  Each prompt is composed as a prefix, a prompt
    and a suffix.  The prompt to be displayed at any given time is the
    one on top of the stack.  A stack is necessary because of cases in
@@ -111,3 +116,7 @@ extern void (*call_readline) (void *);
 extern void (*input_handler) (char *);
 extern int input_fd;
 extern void (*after_char_processing_hook) (void);
+
+extern void cli_command_loop (void);
+
+#endif

diff --git a/gdb/interps.c b/gdb/interps.c
index 8e33ffc70552dd7fed5c0cb1849df82b79c7e6cf..748b5b649012bb0ecb44d00cff348115b7b09281 100644 (file)
--- a/gdb/interps.c
+++ b/gdb/interps.c
@@ -275,6 +275,8 @@ current_interp_command_loop (void)
   else if (current_interpreter != NULL
           && current_interpreter->procs->command_loop_proc != NULL)
     current_interpreter->procs->command_loop_proc (current_interpreter->data);
+  else if (event_loop_p)
+    cli_command_loop ();
   else
     command_loop ();
 }