[RFA]: patch to handle new decode_line_1 prototype

[RFA]: patch to handle new decode_line_1 prototype

[J. Johnston]

[-- Attachment #1: Type: text/plain, Size: 474 bytes --]

The following is an obvious patch to handle the new decode_line_1 parameter that 
has been added in gdb.

I am not subscribed to the mailing list.  I probably have write access due to my 
other maintainer roles on sourceware.

Ok?

-- Jeff J.

2003-12-17  Jeff Johnston  <jjohnstn@redhat.com>

         * generic/gdbtk-bp.c: Change calls to decode_line_1 to add
         new NULL parameter.
         * generic/gdbtk-cmds.c: Ditto.
         * generic/gdbtk-stack.c: Ditto.



[-- Attachment #2: decode-line-1.patch --]
[-- Type: text/plain, Size: 2540 bytes --]

Index: generic/gdbtk-bp.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-bp.c,v
retrieving revision 1.21
diff -u -p -r1.21 gdbtk-bp.c
--- generic/gdbtk-bp.c	11 Nov 2003 18:55:42 -0000	1.21
+++ generic/gdbtk-bp.c	17 Dec 2003 22:49:15 -0000
@@ -905,7 +905,7 @@ tracepoint_exists (char *args)
   char *file = NULL;
   int result = -1;
 
-  sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
+  sals = decode_line_1 (&args, 1, NULL, 0, &canonical, NULL);
   if (sals.nelts == 1)
     {
       resolve_sal_pc (&sals.sals[0]);
Index: generic/gdbtk-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-cmds.c,v
retrieving revision 1.78
diff -u -p -r1.78 gdbtk-cmds.c
--- generic/gdbtk-cmds.c	25 Nov 2003 01:44:06 -0000	1.78
+++ generic/gdbtk-cmds.c	17 Dec 2003 22:49:16 -0000
@@ -938,7 +938,7 @@ gdb_get_line_command (ClientData clientD
     }
 
   args = Tcl_GetStringFromObj (objv[1], NULL);
-  sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
+  sals = decode_line_1 (&args, 1, NULL, 0, &canonical, NULL);
   if (sals.nelts == 1)
     {
       Tcl_SetIntObj (result_ptr->obj_ptr, sals.sals[0].line);
@@ -974,7 +974,7 @@ gdb_get_file_command (ClientData clientD
     }
 
   args = Tcl_GetStringFromObj (objv[1], NULL);
-  sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
+  sals = decode_line_1 (&args, 1, NULL, 0, &canonical, NULL);
   if (sals.nelts == 1)
     {
       Tcl_SetStringObj (result_ptr->obj_ptr,
@@ -1010,7 +1010,7 @@ gdb_get_function_command (ClientData cli
     }
 
   args = Tcl_GetStringFromObj (objv[1], NULL);
-  sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
+  sals = decode_line_1 (&args, 1, NULL, 0, &canonical, NULL);
   if (sals.nelts == 1)
     {
       resolve_sal_pc (&sals.sals[0]);
Index: generic/gdbtk-stack.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-stack.c,v
retrieving revision 1.19
diff -u -p -r1.19 gdbtk-stack.c
--- generic/gdbtk-stack.c	11 Jun 2003 23:29:49 -0000	1.19
+++ generic/gdbtk-stack.c	17 Dec 2003 22:49:16 -0000
@@ -301,7 +301,7 @@ gdb_get_vars_command (ClientData clientD
   if (objc == 2)
     {
       args = Tcl_GetStringFromObj (objv[1], NULL);
-      sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
+      sals = decode_line_1 (&args, 1, NULL, 0, &canonical, NULL);
       if (sals.nelts == 0)
 	{
 	  gdbtk_set_result (interp, "error decoding line");