* ch-valprint.c (chill_val_print): On TYPE_CODE_STRING, don't

[binutils.git] / gdb / ch-lang.c

diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c
index 3200982caf11a756055bacdb562701c0543f5b3c..a3d2d143c23b84a9d4767b1b7f34850d61098971 100644 (file)
--- a/gdb/ch-lang.c
+++ b/gdb/ch-lang.c
@@ -192,7 +192,7 @@ chill_is_varying_struct (type)
     return 0;
   if (TYPE_NFIELDS (type) != 2)
     return 0;
-  if (strcmp (TYPE_FIELD_NAME (type, 0), "<var_length>") != 0)
+  if (strcmp (TYPE_FIELD_NAME (type, 0), "__var_length") != 0)
     return 0;
   return 1;
 }
@@ -280,6 +280,8 @@ static const struct op_print chill_op_print_tab[] = {
     {"/",   BINOP_DIV, PREC_MUL, 0},
     {"//",  BINOP_CONCAT, PREC_PREFIX, 0},     /* FIXME: precedence? */
     {"-",   UNOP_NEG, PREC_PREFIX, 0},
+    {"->",  UNOP_IND, PREC_SUFFIX, 1},
+    {"->",  UNOP_ADDR, PREC_PREFIX, 0},
     {NULL,  0, 0, 0}
 };
 
@@ -315,14 +317,13 @@ const struct language_defn chill_language_defn = {
   chill_create_fundamental_type,/* Create fundamental type in this language */
   chill_print_type,            /* Print a type using appropriate syntax */
   chill_val_print,             /* Print a value using appropriate syntax */
-  &BUILTIN_TYPE_LONGEST,       /* longest signed   integral type */
-  &BUILTIN_TYPE_UNSIGNED_LONGEST,/* longest unsigned integral type */
-  &builtin_type_chill_real,    /* longest floating point type */
+  chill_value_print,           /* Print a top-levl value */
   {"",      "B'",  "",   ""},  /* Binary format info */
   {"O'%lo",  "O'",  "o",  ""}, /* Octal format info */
   {"D'%ld",  "D'",  "d",  ""}, /* Decimal format info */
   {"H'%lx",  "H'",  "x",  ""}, /* Hex format info */
   chill_op_print_tab,          /* expression operators for printing */
+  0,                           /* arrays are first-class (not c-style) */
   LANG_MAGIC
 };