* 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 f7d9212185368994c167401816a92dd38b156c74..a3d2d143c23b84a9d4767b1b7f34850d61098971 100644 (file)
--- a/gdb/ch-lang.c
+++ b/gdb/ch-lang.c
@@ -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,12 +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_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
 };