diff options
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/ch-exp.y | 47 |
2 files changed, 28 insertions, 26 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index b32f4b4..2d4e14b 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ + **** start-sanitize-chill **** +Fri Dec 4 06:56:56 1992 Fred Fish (fnf@cygnus.com) + + * ch-exp.y (match_character_literal): Fix case where no + match at all is found. + **** end-sanitize-chill **** + Thu Dec 3 12:00:06 1992 Fred Fish (fnf@cygnus.com) * c-exp.y (c_create_fundamental_type): New function to create diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y index 96dbda4..4a11c68 100644 --- a/gdb/ch-exp.y +++ b/gdb/ch-exp.y @@ -1014,6 +1014,11 @@ match_character_literal () return (0); } } + else + { + /* Not a character literal. */ + return (0); + } yylval.typed_val.val = ival; yylval.typed_val.type = builtin_type_chill_char; lexptr = tokptr; @@ -1452,44 +1457,34 @@ chill_create_fundamental_type (objfile, typeid) warning ("internal error: no chill fundamental type %d", typeid); break; case FT_BOOLEAN: - type = init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_UNSIGNED, "BOOL", objfile); + type = init_type (TYPE_CODE_BOOL, 1, TYPE_FLAG_UNSIGNED, "BOOL", objfile); break; case FT_CHAR: - type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_UNSIGNED, "CHAR", objfile); + type = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, "CHAR", objfile); break; - case FT_BYTE: - type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_SIGNED, "BYTE", objfile); + case FT_SIGNED_CHAR: + type = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_SIGNED, "BYTE", objfile); break; - case FT_UNSIGNED_BYTE: - type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_UNSIGNED, "UBYTE", objfile); + case FT_UNSIGNED_CHAR: + type = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, "UBYTE", objfile); break; - case FT_INTEGER: - type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_SIGNED, "INT", objfile); + case FT_SHORT: /* Chill ints are 2 bytes */ + type = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_SIGNED, "INT", objfile); break; - case FT_UNSIGNED_INTEGER: - type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_UNSIGNED, "UINT", objfile); + case FT_UNSIGNED_SHORT: /* Chill ints are 2 bytes */ + type = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED, "UINT", objfile); break; - case FT_LONG: - type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_SIGNED, "LONG", objfile); + case FT_INTEGER: /* Chill longs are 4 bytes */ + type = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_SIGNED, "LONG", objfile); break; - case FT_UNSIGNED_LONG: - type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, - TYPE_FLAG_UNSIGNED, "ULONG", objfile); + case FT_UNSIGNED_INTEGER: /* Chill longs are 4 bytes */ + type = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "ULONG", objfile); break; case FT_FLOAT: - type = init_type (TYPE_CODE_FLT, TARGET_FLOAT_BIT / TARGET_CHAR_BIT, - 0, "REAL", objfile); + type = init_type (TYPE_CODE_FLT, 4, 0, "REAL", objfile); break; case FT_DBL_PREC_FLOAT: - type = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT, - 0, "LONG REAL", objfile); + type = init_type (TYPE_CODE_FLT, 8, 0, "LONG_REAL", objfile); break; } return (type); |