diff options
Diffstat (limited to 'gdb/language.c')
-rw-r--r-- | gdb/language.c | 25 |
1 files changed, 5 insertions, 20 deletions
diff --git a/gdb/language.c b/gdb/language.c index 6d5d9611ee7..1a24b39bc8f 100644 --- a/gdb/language.c +++ b/gdb/language.c @@ -1,6 +1,8 @@ /* Multiple source language support for GDB. - Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002 - Free Software Foundation, Inc. + + Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, + 2001, 2002, 2003 Free Software Foundation, Inc. + Contributed by the Department of Computer Science at the State University of New York at Buffalo. @@ -568,8 +570,6 @@ binop_result_type (struct value *v1, struct value *v2) not needed. */ return l1 > l2 ? VALUE_TYPE (v1) : VALUE_TYPE (v2); break; - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function binop_result_check."); */ /*FIXME */ } internal_error (__FILE__, __LINE__, "failed internal consistency check"); return (struct type *) 0; /* For lint */ @@ -793,8 +793,6 @@ integral_type (struct type *type) case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_INT ? 0 : 1; - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function integral_type."); *//*FIXME */ default: error ("Language not supported."); } @@ -823,7 +821,6 @@ character_type (struct type *type) CHECK_TYPEDEF (type); switch (current_language->la_language) { - /* OBSOLETE case language_chill: */ case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_CHAR ? 0 : 1; @@ -846,7 +843,6 @@ string_type (struct type *type) CHECK_TYPEDEF (type); switch (current_language->la_language) { - /* OBSOLETE case language_chill: */ case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_STRING ? 0 : 1; @@ -874,7 +870,7 @@ boolean_type (struct type *type) case language_cplus: case language_objc: /* Might be more cleanly handled by having a - TYPE_CODE_INT_NOT_BOOL for (OBSOLETE) CHILL and such + TYPE_CODE_INT_NOT_BOOL for (the deleted) CHILL and such languages, or a TYPE_CODE_INT_OR_BOOL for C. */ if (TYPE_CODE (type) == TYPE_CODE_INT) return 1; @@ -923,8 +919,6 @@ structured_type (struct type *type) return (TYPE_CODE (type) == TYPE_CODE_STRUCT) || (TYPE_CODE (type) == TYPE_CODE_SET) || (TYPE_CODE (type) == TYPE_CODE_ARRAY); - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function structured_type."); *//*FIXME */ default: return (0); } @@ -938,10 +932,6 @@ lang_bool_type (void) struct type *type; switch (current_language->la_language) { -#if 0 - /* OBSOLETE case language_chill: */ - /* OBSOLETE return builtin_type_chill_bool; */ -#endif case language_fortran: sym = lookup_symbol ("logical", NULL, VAR_NAMESPACE, NULL, NULL); if (sym) @@ -1172,11 +1162,6 @@ binop_type_check (struct value *arg1, struct value *arg2, int op) } #endif -#ifdef _LANG_chill /* OBSOLETE */ - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function binop_type_check."); *//*FIXME */ -#endif - } } } |