[ia64-hpux] inferior function call support

[deliverable/binutils-gdb.git] / gdb / ada-lang.h

diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
index c51964a510ecdd82ecc77ec4d649ee4ed7327069..7902124c07ad92f8ac8e1b64b2ff0bcdda4cca3c 100644 (file)
--- a/gdb/ada-lang.h
+++ b/gdb/ada-lang.h
@@ -1,7 +1,7 @@
 /* Ada language support definitions for GDB, the GNU debugger.
 
    Copyright (C) 1992, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-   2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+   2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -30,7 +30,7 @@ struct frame_info;
 /* Names of specific files known to be part of the runtime
    system and that might consider (confusing) debugging information.
    Each name (a basic regular expression string) is followed by a
-   comma.  FIXME: Should be part of a configuration file. */
+   comma.  FIXME: Should be part of a configuration file.  */
 #if defined(__alpha__) && defined(__osf__)
 #define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
    "^[agis]-.*\\.ad[bs]$", \
@@ -48,25 +48,26 @@ struct frame_info;
 #endif
 
 /* Names of compiler-generated auxiliary functions probably of no
-   interest to users. Each name (a basic regular expression string)
-   is followed by a comma. */
+   interest to users.  Each name (a basic regular expression string)
+   is followed by a comma.  */
 #define ADA_KNOWN_AUXILIARY_FUNCTION_NAME_PATTERNS \
-   "___clean[.$a-zA-Z0-9_]*$",
+   "___clean[.$a-zA-Z0-9_]*$", \
+   "___finalizer[.$a-zA-Z0-9_]*$",
 
 /* The maximum number of frame levels searched for non-local,
  * non-global symbols.  This limit exists as a precaution to prevent
- * infinite search loops when the stack is screwed up. */
+ * infinite search loops when the stack is screwed up.  */
 #define MAX_ENCLOSING_FRAME_LEVELS 7
 
 /* Maximum number of steps followed in looking for the ultimate
    referent of a renaming.  This prevents certain infinite loops that
-   can otherwise result. */
+   can otherwise result.  */
 #define MAX_RENAMING_CHAIN_LENGTH 10
 
 struct block;
 
 /* Corresponding encoded/decoded names and opcodes for Ada user-definable
-   operators. */
+   operators.  */
 struct ada_opname_map
 {
   const char *encoded;
@@ -74,12 +75,12 @@ struct ada_opname_map
   enum exp_opcode op;
 };
 
-/* Table of Ada operators in encoded and decoded forms. */
+/* Table of Ada operators in encoded and decoded forms.  */
 /* Defined in ada-lang.c */
 extern const struct ada_opname_map ada_opname_table[];
 
 /* A tuple, (symbol, block), representing one instance of a 
- * symbol-lookup operation. */
+ * symbol-lookup operation.  */
 struct ada_symbol_info {
   struct symbol* sym;
   struct block* block;
@@ -140,9 +141,9 @@ struct ada_task_info
 };
 
 /* Assuming V points to an array of S objects,  make sure that it contains at
-   least M objects, updating V and S as necessary. */
+   least M objects, updating V and S as necessary.  */
 
-#define GROW_VECT(v, s, m)                                              \
+#define GROW_VECT(v, s, m)                                    \
    if ((s) < (m)) (v) = grow_vect (v, &(s), m, sizeof *(v));
 
 extern void *grow_vect (void *, size_t *, size_t, int);
@@ -156,7 +157,7 @@ extern int ada_parse (void);    /* Defined in ada-exp.y */
 extern void ada_error (char *); /* Defined in ada-exp.y */
 
                         /* Defined in ada-typeprint.c */
-extern void ada_print_type (struct type *, char *, struct ui_file *, int,
+extern void ada_print_type (struct type *, const char *, struct ui_file *, int,
                             int);
 
 extern void ada_print_typedef (struct type *type, struct symbol *new_symbol,
@@ -181,9 +182,7 @@ extern void ada_printstr (struct ui_file *, struct type *, const gdb_byte *,
                          const struct value_print_options *);
 
 struct value *ada_convert_actual (struct value *actual,
-                                  struct type *formal_type0,
-                                 struct gdbarch *gdbarch,
-                                  CORE_ADDR *sp);
+                                  struct type *formal_type0);
 
 extern struct value *ada_value_subscript (struct value *, int,
                                           struct value **);
@@ -198,6 +197,8 @@ struct type *ada_type_of_array (struct value *, int);
 
 extern struct value *ada_coerce_to_simple_array_ptr (struct value *);
 
+struct value *ada_coerce_to_simple_array (struct value *);
+
 extern int ada_is_simple_array_type (struct type *);
 
 extern int ada_is_array_descriptor_type (struct type *);
@@ -378,6 +379,10 @@ extern int valid_task_id (int);
 
 extern int ada_get_task_number (ptid_t);
 
+typedef void (ada_task_list_iterator_ftype) (struct ada_task_info *task);
+extern void iterate_over_live_ada_tasks
+  (ada_task_list_iterator_ftype *iterator);
+
 extern int ada_build_task_list (int warn_if_null);
 
 extern int ada_exception_catchpoint_p (struct breakpoint *b);