*** empty log message ***

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

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 2520b8efd9932bf024593bf9167aa39ec61718f8..fd73fc58daef4cf9ec8321acb11c23f63777d505 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -10166,6 +10166,7 @@ const struct language_defn ada_language_defn = {
   ada_lookup_symbol,
   ada_lookup_minimal_symbol,
 #endif /* GNAT_GDB */
+  array_row_major,
   &ada_exp_descriptor,
   parse,
   ada_error,
@@ -10184,16 +10185,10 @@ const struct language_defn ada_language_defn = {
   ada_la_decode,                /* Language specific symbol demangler */
   NULL,                         /* Language specific class_name_from_physname */
   {"", "", "", ""},             /* Binary format info */
-#if 0
-  {"8#%lo#", "8#", "o", "#"},   /* Octal format info */
-  {"%ld", "", "d", ""},         /* Decimal format info */
-  {"16#%lx#", "16#", "x", "#"}, /* Hex format info */
-#else
   /* Copied from c-lang.c.  */
   {"0%lo", "0", "o", ""},       /* Octal format info */
   {"%ld", "", "d", ""},         /* Decimal format info */
   {"0x%lx", "0x", "x", ""},     /* Hex format info */
-#endif
   ada_op_print_tab,             /* expression operators for printing */
   0,                            /* c-style arrays */
   1,                            /* String lower bound */
@@ -10267,9 +10262,9 @@ Show the maximum number of bytes allowed in a dynamic-sized object.",
 
   obstack_init (&symbol_list_obstack);
 
-  decoded_names_store = htab_create_alloc_ex
+  decoded_names_store = htab_create_alloc
     (256, htab_hash_string, (int (*)(const void *, const void *)) streq,
-     NULL, NULL, xmcalloc, xmfree);
+     NULL, xcalloc, xfree);
 }
 
 /* Create a fundamental Ada type using default reasonable for the current