* inftarg.c (child_thread_alive): New function to see if a

[deliverable/binutils-gdb.git] / gdb / value.h

diff --git a/gdb/value.h b/gdb/value.h
index 7708a440ba213823a3f2e150bca0af1c8c22f479..82140aeeea737121548242d67ba138a9fd8b3071 100644 (file)
--- a/gdb/value.h
+++ b/gdb/value.h
@@ -147,29 +147,6 @@ extern int value_fetch_lazy PARAMS ((value_ptr val));
 #define VALUE_REGNO(val) (val)->regno
 #define VALUE_OPTIMIZED_OUT(val) ((val)->optimized_out)
 
-/* This is probably not the right thing to do for in-gdb arrays.  FIXME */
-/* Overload the contents field to store literal data for 
-   arrays.  */
-
-#define VALUE_LITERAL_DATA(val)  ((val)->aligner.literal_data)
-
-/* Pointer to 
-   the base substring, for F77 string substring operators.
-   We use this ONLY when doing operations of the form 
-   
-   FOO= 'hello' 
-   FOO(2:4) = 'foo'
-
-   In the above case VALUE_SUBSTRING_* would point to 
-   FOO(2) in the original FOO string. 
-
-   Depending on whether the base object is allocated in the 
-   inferior or the superior process, use VALUE_SUBSTRING_MYADDR or
-   VALUE_SUBSTRING_MEMADDR.  */
-
-#define VALUE_SUBSTRING_MEMADDR(val) (val)->substring_addr.memaddr
-#define VALUE_SUBSTRING_MYADDR(val) (val)->substring_addr.myaddr
-
 /* Convert a REF to the object referenced. */
 
 #define COERCE_REF(arg)    \
@@ -186,8 +163,9 @@ extern int value_fetch_lazy PARAMS ((value_ptr val));
 
 #define COERCE_ARRAY(arg)    \
 { COERCE_REF(arg);                                                     \
-  if (VALUE_REPEATED (arg)                                             \
-      || TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ARRAY)              \
+  if (current_language->c_style_arrays                                 \
+      && (VALUE_REPEATED (arg)                                         \
+         || TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ARRAY))          \
     arg = value_coerce_array (arg);                                    \
   if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_FUNC)                   \
     arg = value_coerce_function (arg);                                  \
@@ -195,6 +173,9 @@ extern int value_fetch_lazy PARAMS ((value_ptr val));
     arg = value_cast (builtin_type_unsigned_int, arg);                 \
 }
 
+#define COERCE_VARYING_ARRAY(arg)      \
+{ if (chill_varying_type (VALUE_TYPE (arg))) arg = varying_to_slice (arg); }
+
 /* If ARG is an enum, convert it to an integer.  */
 
 #define COERCE_ENUM(arg)    \
@@ -480,8 +461,6 @@ extern void
 print_variable_value PARAMS ((struct symbol *var, struct frame_info *frame,
                              GDB_FILE *stream));
 
-extern value_ptr value_arg_coerce PARAMS ((value_ptr));
-
 extern int check_field PARAMS ((value_ptr, const char *));
 
 extern void
@@ -504,12 +483,12 @@ extern int baseclass_offset PARAMS ((struct type *, int, value_ptr, int));
 
 /* From valops.c */
 
-extern value_ptr call_function_by_hand PARAMS ((value_ptr, int, value_ptr *));
+extern value_ptr varying_to_slice PARAMS ((value_ptr));
 
-extern value_ptr f77_value_literal_complex PARAMS ((value_ptr, value_ptr, int));
+extern value_ptr value_slice PARAMS ((value_ptr, int, int));
 
-extern value_ptr f77_value_literal_string PARAMS ((int, int, value_ptr *));
+extern value_ptr call_function_by_hand PARAMS ((value_ptr, int, value_ptr *));
 
-extern value_ptr f77_value_substring PARAMS ((value_ptr, int, int));
+extern value_ptr value_literal_complex PARAMS ((value_ptr, value_ptr, struct type*));
 
 #endif /* !defined (VALUE_H) */