[patch] more value_ptr -> struct value *

[Andrew Cagney <ac131313 at cygnus dot com>]

FYI,

Andrew
2001-12-21  Andrew Cagney  <ac131313@redhat.com>

	* cli/cli-script.c (execute_control_command): Replace value_ptr
	with a struct value pointer.
	* ch-lang.c (evaluate_subexp_chill): Ditto.
	* printcmd.c (printf_command): Ditto.
	* tracepoint.c (set_traceframe_context): Ditto.
	(encode_actions): Ditto.
	* eval.c (evaluate_subexp_standard): Ditto.

Index: ch-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/ch-lang.c,v
retrieving revision 1.7
diff -p -u -r1.7 ch-lang.c
--- ch-lang.c	2001/11/10 20:44:37	1.7
+++ ch-lang.c	2001/12/25 21:39:25
@@ -536,7 +536,8 @@ evaluate_subexp_chill (struct type *expe
 
 	  /* Allocate arg vector, including space for the function to be
 	     called in argvec[0] and a terminating NULL */
-	  argvec = (value_ptr *) alloca (sizeof (value_ptr) * (nargs + 2));
+	  argvec = (struct value **) alloca (sizeof (struct value *)
+					     * (nargs + 2));
 	  argvec[0] = arg1;
 	  tem = 1;
 	  for (; tem <= nargs && tem <= TYPE_NFIELDS (type); tem++)
Index: eval.c
===================================================================
RCS file: /cvs/src/src/gdb/eval.c,v
retrieving revision 1.17
diff -p -u -r1.17 eval.c
--- eval.c	2001/12/10 23:05:00	1.17
+++ eval.c	2001/12/25 21:39:30
@@ -620,7 +620,7 @@ evaluate_subexp_standard (struct type *e
 	  return set;
 	}
 
-      argvec = (value_ptr *) alloca (sizeof (value_ptr) * nargs);
+      argvec = (struct value **) alloca (sizeof (struct value *) * nargs);
       for (tem = 0; tem < nargs; tem++)
 	{
 	  /* Ensure that array expressions are coerced into pointer objects. */
@@ -673,7 +673,7 @@ evaluate_subexp_standard (struct type *e
       nargs = longest_to_int (exp->elts[pc + 1].longconst);
       /* Allocate arg vector, including space for the function to be
          called in argvec[0] and a terminating NULL */
-      argvec = (value_ptr *) alloca (sizeof (value_ptr) * (nargs + 3));
+      argvec = (struct value **) alloca (sizeof (struct value *) * (nargs + 3));
       if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR)
 	{
 	  LONGEST fnptr;
@@ -969,7 +969,7 @@ evaluate_subexp_standard (struct type *e
 	  /* It's a function call. */
 	  /* Allocate arg vector, including space for the function to be
 	     called in argvec[0] and a terminating NULL */
-	  argvec = (value_ptr *) alloca (sizeof (value_ptr) * (nargs + 2));
+	  argvec = (struct value **) alloca (sizeof (struct value *) * (nargs + 2));
 	  argvec[0] = arg1;
 	  tem = 1;
 	  for (; tem <= nargs; tem++)
Index: printcmd.c
===================================================================
RCS file: /cvs/src/src/gdb/printcmd.c,v
retrieving revision 1.32
diff -p -u -r1.32 printcmd.c
--- printcmd.c	2001/12/07 21:07:59	1.32
+++ printcmd.c	2001/12/25 21:39:37
@@ -2045,7 +2045,8 @@ printf_command (char *arg, int from_tty)
   int allocated_args = 20;
   struct cleanup *old_cleanups;
 
-  val_args = (value_ptr *) xmalloc (allocated_args * sizeof (value_ptr));
+  val_args = (struct value **) xmalloc (allocated_args
+					* sizeof (struct value *));
   old_cleanups = make_cleanup (free_current_contents, &val_args);
 
   if (s == 0)
@@ -2209,9 +2210,9 @@ printf_command (char *arg, int from_tty)
       {
 	char *s1;
 	if (nargs == allocated_args)
-	  val_args = (value_ptr *) xrealloc ((char *) val_args,
-					     (allocated_args *= 2)
-					     * sizeof (value_ptr));
+	  val_args = (struct value **) xrealloc ((char *) val_args,
+						 (allocated_args *= 2)
+						 * sizeof (struct value *));
 	s1 = s;
 	val_args[nargs] = parse_to_comma_and_eval (&s1);
 
Index: tracepoint.c
===================================================================
RCS file: /cvs/src/src/gdb/tracepoint.c,v
retrieving revision 1.28
diff -p -u -r1.28 tracepoint.c
--- tracepoint.c	2001/11/06 23:38:15	1.28
+++ tracepoint.c	2001/12/25 21:39:44
@@ -254,7 +254,8 @@ set_traceframe_context (CORE_ADDR trace_
 {
   static struct type *func_string, *file_string;
   static struct type *func_range, *file_range;
-  static value_ptr func_val, file_val;
+  struct value *func_val;
+  struct value *file_val;
   static struct type *charstar;
   int len;
 
@@ -1486,7 +1487,7 @@ encode_actions (struct tracepoint *t, ch
   struct expression *exp = NULL;
   struct action_line *action;
   int i;
-  value_ptr tempval;
+  struct value *tempval;
   struct collection_list *collect;
   struct cmd_list_element *cmd;
   struct agent_expr *aexpr;
Index: cli/cli-script.c
===================================================================
RCS file: /cvs/src/src/gdb/cli/cli-script.c,v
retrieving revision 1.8
diff -p -u -r1.8 cli-script.c
--- cli-script.c	2001/12/13 22:42:23	1.8
+++ cli-script.c	2001/12/25 21:39:47
@@ -332,8 +332,8 @@ execute_control_command (struct command_
   struct expression *expr;
   struct command_line *current;
   struct cleanup *old_chain = 0;
-  value_ptr val;
-  value_ptr val_mark;
+  struct value *val;
+  struct value *val_mark;
   int loop;
   enum command_control_type ret;
   char *new_line;