Give every interpreter a command_loop_proc.

  https://sourceware.org/ml/gdb-patches/2013-09/msg00179.html

gdb/ChangeLog

        * cli/cli-interp.c (_initialize_cli_interp): Add a
        command_loop_proc to interp_procs.
        * event-top.c (cli_command_loop): Change signature to match
        interp_command_loop_ftype.
        * event-top.h (cli_command_loop): Same.
        * interps.c (interp_new): Require every interpreter to have a
        command_loop_proc.
        (current_interp_command_loop): Just call the command_loop_proc on
        the current interpreter.
        * tui/tui-interp.c (_initialize_tui_interp): Add a
        command_loop_proc to interp_procs.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8a30eb2990d15da5edd049a9835e49c9631ee415..e4ebab8617860900f232eb5bc6d7dd0ec9a0f228 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,17 @@
+2013-09-06  Andrew Burgess  <aburgess@broadcom.com>
+
+       * cli/cli-interp.c (_initialize_cli_interp): Add a
+       command_loop_proc to interp_procs.
+       * event-top.c (cli_command_loop): Change signature to match
+       interp_command_loop_ftype.
+       * event-top.h (cli_command_loop): Same.
+       * interps.c (interp_new): Require every interpreter to have a
+       command_loop_proc.
+       (current_interp_command_loop): Just call the command_loop_proc on
+       the current interpreter.
+       * tui/tui-interp.c (_initialize_tui_interp): Add a
+       command_loop_proc to interp_procs.
+
 2013-09-06  Ricard Wanderlof  <ricardw@axis.com>
 
        * cris-tdep.c (cris_gdbarch_init): Add call to

diff --git a/gdb/cli/cli-interp.c b/gdb/cli/cli-interp.c
index 1003cc73bb1d146f6d11569c695c5a3f29e4886d..ac3d9a88b2e614858a27cf79b609766ba00ffb83 100644 (file)
--- a/gdb/cli/cli-interp.c
+++ b/gdb/cli/cli-interp.c
@@ -151,7 +151,9 @@ _initialize_cli_interp (void)
     cli_interpreter_suspend,   /* suspend_proc */
     cli_interpreter_exec,      /* exec_proc */
     cli_interpreter_display_prompt_p,  /* prompt_proc_p */
-    cli_ui_out                 /* ui_out_proc */
+    cli_ui_out,                        /* ui_out_proc */
+    NULL,                       /* set_logging_proc */
+    cli_command_loop            /* command_loop_proc */
   };
   struct interp *cli_interp;
 

diff --git a/gdb/event-top.c b/gdb/event-top.c
index f1d55b3c2daec5c60926ccfd405db94e9b482aba..1f2e6fb9e7c3c55317f26f7d962e6f7dc1e30922 100644 (file)
--- a/gdb/event-top.c
+++ b/gdb/event-top.c
@@ -167,9 +167,11 @@ rl_callback_read_char_wrapper (gdb_client_data client_data)
 }
 
 /* Initialize all the necessary variables, start the event loop,
-   register readline, and stdin, start the loop.  */
+   register readline, and stdin, start the loop.  The DATA is the
+   interpreter data cookie, ignored for now.  */
+
 void
-cli_command_loop (void)
+cli_command_loop (void *data)
 {
   display_gdb_prompt (0);
 

diff --git a/gdb/event-top.h b/gdb/event-top.h
index e6166f6a7236d89b757905af17434a3023fd5b16..97142d4686a14ac770e634a68e7f5275f20880a9 100644 (file)
--- a/gdb/event-top.h
+++ b/gdb/event-top.h
@@ -62,6 +62,6 @@ extern void (*input_handler) (char *);
 extern int input_fd;
 extern void (*after_char_processing_hook) (void);
 
-extern void cli_command_loop (void);
+extern void cli_command_loop (void *);
 
 #endif

diff --git a/gdb/interps.c b/gdb/interps.c
index 33e0f721ac4ed057e83a8eb06d50c439ddca85c6..7f1938511cdcc7e392e8c6e07a980c875c185383 100644 (file)
--- a/gdb/interps.c
+++ b/gdb/interps.c
@@ -101,6 +101,9 @@ interp_new (const char *name, const struct interp_procs *procs)
   new_interp->procs = procs;
   new_interp->inited = 0;
 
+  /* Check for required procs.  */
+  gdb_assert (procs->command_loop_proc != NULL);
+
   return new_interp;
 }
 
@@ -319,13 +322,9 @@ current_interp_display_prompt_p (void)
 void
 current_interp_command_loop (void)
 {
-  /* Somewhat messy.  For the moment prop up all the old ways of
-     selecting the command loop.  */
-  if (current_interpreter != NULL
-      && current_interpreter->procs->command_loop_proc != NULL)
-    current_interpreter->procs->command_loop_proc (current_interpreter->data);
-  else
-    cli_command_loop ();
+  gdb_assert (current_interpreter != NULL);
+
+  current_interpreter->procs->command_loop_proc (current_interpreter->data);
 }
 
 int

diff --git a/gdb/tui/tui-interp.c b/gdb/tui/tui-interp.c
index 42526e6452f7e9fd6e3b96f68027a7b6db7d3c44..1095220fd37c2332e0491d4705525eef5ce7755a 100644 (file)
--- a/gdb/tui/tui-interp.c
+++ b/gdb/tui/tui-interp.c
@@ -153,6 +153,8 @@ _initialize_tui_interp (void)
     tui_exec,
     tui_display_prompt_p,
     tui_ui_out,
+    NULL,
+    cli_command_loop
   };
   struct interp *tui_interp;