Index: ChangeLog 2002-07-24 Andrew Cagney * NEWS: Menion that CHILL has been made obsolete. * gdbtypes.c (chill_varying_type): Make chill references obsolete. * gdbserver/Makefile.in: Ditto. * stabsread.c (read_range_type): Ditto. * gdbtypes.h: Ditto. * language.c (binop_type_check): Ditto. (binop_result_type): Ditto. (integral_type): Ditto. (character_type): Ditto. (string_type): Ditto. (boolean_type): Ditto. (structured_type): Ditto. (lang_bool_type): Ditto. (binop_type_check): Ditto. * language.h (_LANG_chill): Ditto. * dwarfread.c (set_cu_language): Ditto. * dwarfread.c (CHILL_PRODUCER): Ditto. * dwarfread.c (handle_producer): Ditto. * expression.h (enum exp_opcode): Ditto. * eval.c: Ditto for comments. * typeprint.c (typedef_print) [_LANG_chill]: Ditto. * expprint.c (print_subexp): Ditto. (print_subexp): Ditto. * valops.c (value_cast): Ditto. (search_struct_field): Ditto. * value.h (COERCE_VARYING_ARRAY): Ditto. * symfile.c (init_filename_language_table): Ditto. (add_psymbol_with_dem_name_to_list): Ditto. * valarith.c (value_binop): Ditto. (value_neg): Ditto. * valops.c (value_slice): Ditto. * symtab.h (union language_specific): Ditto. (SYMBOL_INIT_LANGUAGE_SPECIFIC): Ditto. (SYMBOL_DEMANGLED_NAME): Ditto. (SYMBOL_CHILL_DEMANGLED_NAME): Ditto. * defs.h (enum language): Ditto. * symtab.c (got_symtab): Ditto. * utils.c (fprintf_symbol_filtered): Ditto. * ch-typeprint.c: Make file obsolete. * ch-valprint.c: Make file obsolete. * ch-lang.h: Make file obsolete. * ch-exp.c: Make file obsolete. * ch-lang.c: Make file obsolete. * Makefile.in (FLAGS_TO_PASS): Do not pass CHILL or CHILLFLAGS or CHILL_LIB. (TARGET_FLAGS_TO_PASS): Ditto. (CHILLFLAGS): Obsolete. (CHILL): Obsolete. (CHILL_FOR_TARGET): Obsolete. (CHILL_LIB): Obsolete. (SFILES): Remove ch-exp.c, ch-lang.c, ch-typeprint.c and ch-valprint.c. (HFILES_NO_SRCDIR): Remove ch-lang.h. (COMMON_OBS): Remove ch-valprint.o, ch-typeprint.o, ch-exp.o and ch-lang.o. (ch-exp.o, ch-lang.o, ch-typeprint.o, ch-valprint.o): Delete targets. Index: doc/ChangeLog 2002-07-24 Andrew Cagney * stabs.texinfo, gdb.texinfo, gdbint.texinfo: Obsolete references to CHILL. Index: testsuite/ChangeLog 2002-07-24 Andrew Cagney * Makefile.in (TARGET_FLAGS_TO_PASS): Remove CHILLFLAGS, CHILL, CHILL_FOR_TARGET and CHILL_LIB. * configure.in (configdirs): Remove gdb.chill. * configure: Regenerate. * lib/gdb.exp: Obsolete references to chill. * gdb.fortran/types.exp: Ditto. * gdb.fortran/exprs.exp: Ditto. Index: Makefile.in =================================================================== RCS file: /cvs/src/src/gdb/Makefile.in,v retrieving revision 1.223 diff -u -r1.223 Makefile.in --- Makefile.in 24 Jul 2002 23:51:35 -0000 1.223 +++ Makefile.in 25 Jul 2002 01:25:15 -0000 @@ -423,9 +423,6 @@ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ - "CHILLFLAGS=$(CHILLFLAGS)" \ - "CHILL=$(CHILL)" \ - "CHILL_LIB=$(CHILL_LIB)" \ "CXX=$(CXX)" \ "CXXFLAGS=$(CXXFLAGS)" \ "DLLTOOL=$(DLLTOOL)" \ @@ -475,25 +472,25 @@ fi; \ fi` -CHILLFLAGS = $(CFLAGS) -CHILL = gcc -CHILL_FOR_TARGET = ` \ - if [ -f $${rootme}/../gcc/Makefile ] ; then \ - echo $${rootme}/../gcc/xgcc -B$${rootme}/../gcc/ -L$${rootme}/../gcc/ch/runtime/; \ - else \ - if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ - echo $(CC); \ - else \ - t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \ - fi; \ - fi` -CHILL_LIB = ` \ - if [ -f $${rootme}/../gcc/ch/runtime/libchill.a ] ; then \ - echo $${rootme}/../gcc/ch/runtime/chillrt0.o \ - $${rootme}/../gcc/ch/runtime/libchill.a; \ - else \ - echo -lchill; \ - fi` +# OBSOLETE CHILLFLAGS = $(CFLAGS) +# OBSOLETE CHILL = gcc +# OBSOLETE CHILL_FOR_TARGET = ` \ +# OBSOLETE if [ -f $${rootme}/../gcc/Makefile ] ; then \ +# OBSOLETE echo $${rootme}/../gcc/xgcc -B$${rootme}/../gcc/ -L$${rootme}/../gcc/ch/runtime/; \ +# OBSOLETE else \ +# OBSOLETE if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ +# OBSOLETE echo $(CC); \ +# OBSOLETE else \ +# OBSOLETE t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \ +# OBSOLETE fi; \ +# OBSOLETE fi` +# OBSOLETE CHILL_LIB = ` \ +# OBSOLETE if [ -f $${rootme}/../gcc/ch/runtime/libchill.a ] ; then \ +# OBSOLETE echo $${rootme}/../gcc/ch/runtime/chillrt0.o \ +# OBSOLETE $${rootme}/../gcc/ch/runtime/libchill.a; \ +# OBSOLETE else \ +# OBSOLETE echo -lchill; \ +# OBSOLETE fi` # The use of $$(x_FOR_TARGET) reduces the command line length by not # duplicating the lengthy definition. @@ -504,10 +501,6 @@ 'CC=$$(CC_FOR_TARGET)' \ "CC_FOR_TARGET=$(CC_FOR_TARGET)" \ "CFLAGS=$(CFLAGS)" \ - "CHILLFLAGS=$(CHILLFLAGS)" \ - 'CHILL=$$(CHILL_FOR_TARGET)' \ - "CHILL_FOR_TARGET=$(CHILL_FOR_TARGET)" \ - "CHILL_LIB=$(CHILL_LIB)" \ 'CXX=$$(CXX_FOR_TARGET)' \ "CXX_FOR_TARGET=$(CXX_FOR_TARGET)" \ "CXXFLAGS=$(CXXFLAGS)" \ @@ -525,7 +518,7 @@ SFILES = ax-general.c ax-gdb.c bcache.c blockframe.c breakpoint.c \ buildsym.c c-exp.y c-lang.c c-typeprint.c c-valprint.c \ - ch-exp.c ch-lang.c ch-typeprint.c ch-valprint.c coffread.c \ + coffread.c \ complaints.c completer.c corefile.c cp-valprint.c dbxread.c \ demangle.c dwarfread.c dwarf2read.c elfread.c environ.c eval.c \ event-loop.c event-top.c \ @@ -682,7 +675,7 @@ objfiles.h parser-defs.h serial.h solib.h \ symfile.h stabsread.h target.h terminal.h typeprint.h xcoffsolib.h \ macrotab.h macroexp.h macroscope.h \ - c-lang.h ch-lang.h f-lang.h \ + c-lang.h f-lang.h \ jv-lang.h \ m2-lang.h p-lang.h \ complaints.h valprint.h \ @@ -735,14 +728,14 @@ exec.o bcache.o objfiles.o minsyms.o maint.o demangle.o \ dbxread.o coffread.o elfread.o \ dwarfread.o dwarf2read.o mipsread.o stabsread.o corefile.o \ - c-lang.o ch-exp.o ch-lang.o f-lang.o \ + c-lang.o f-lang.o \ ui-out.o cli-out.o \ varobj.o wrapper.o \ jv-lang.o jv-valprint.o jv-typeprint.o \ m2-lang.o p-lang.o p-typeprint.o p-valprint.o \ scm-exp.o scm-lang.o scm-valprint.o complaints.o typeprint.o \ - c-typeprint.o ch-typeprint.o f-typeprint.o m2-typeprint.o \ - c-valprint.o cp-valprint.o ch-valprint.o f-valprint.o m2-valprint.o \ + c-typeprint.o f-typeprint.o m2-typeprint.o \ + c-valprint.o cp-valprint.o f-valprint.o m2-valprint.o \ nlmread.o serial.o mdebugread.o top.o utils.o \ ui-file.o \ frame.o doublest.o \ @@ -1197,7 +1190,7 @@ ## This is ugly, but I don't want GNU make to put these variables in ## the environment. Older makes will see this as a set of targets ## with no dependencies and no actions. -unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : +# OBSOLETE unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : ALLDEPFILES = a68v-nat.c \ alpha-nat.c alphabsd-nat.c \ @@ -1345,19 +1338,6 @@ f-valprint.o: f-valprint.c $(defs_h) $(expression_h) $(gdbtypes_h) \ $(language_h) $(symtab_h) $(valprint_h) $(value_h) $(gdb_string_h) - -ch-exp.o: ch-exp.c ch-lang.h $(defs_h) $(language_h) $(parser_defs_h) \ - $(bfd_h) $(symfile_h) $(objfiles_h) $(value_h) - -ch-lang.o: ch-lang.c ch-lang.h $(defs_h) $(expression_h) $(gdbtypes_h) \ - $(language_h) $(parser_defs_h) $(symtab_h) - -ch-typeprint.o: ch-typeprint.c ch-lang.h $(defs_h) $(expression_h) \ - $(gdbcmd_h) $(gdbcore_h) $(gdbtypes_h) $(language_h) $(symtab_h) \ - $(target_h) $(value_h) $(typeprint_h) $(gdb_string_h) - -ch-valprint.o: ch-valprint.c $(defs_h) $(expression_h) $(gdbtypes_h) \ - $(language_h) $(symtab_h) $(valprint_h) $(value_h) $(c_lang_h) coff-solib.o: coff-solib.c $(defs_h) Index: NEWS =================================================================== RCS file: /cvs/src/src/gdb/NEWS,v retrieving revision 1.81 diff -u -r1.81 NEWS --- NEWS 24 Jul 2002 23:51:35 -0000 1.81 +++ NEWS 25 Jul 2002 01:25:16 -0000 @@ -64,6 +64,10 @@ Fujitsu FR30 fr30-*-elf* Motorola Delta 88000 running Sys V m88k-motorola-sysv or delta88 +* OBSOLETE languages + +CHILL, a Pascal like language used by telecommunications companies. + * REMOVED configurations and files AMD 29k family via UDI a29k-amd-udi, udi29k Index: defs.h =================================================================== RCS file: /cvs/src/src/gdb/defs.h,v retrieving revision 1.93 diff -u -r1.93 defs.h --- defs.h 24 Jul 2002 22:46:48 -0000 1.93 +++ defs.h 25 Jul 2002 01:25:18 -0000 @@ -209,7 +209,7 @@ language_c, /* C */ language_cplus, /* C++ */ language_java, /* Java */ - language_chill, /* Chill */ + /* OBSOLETE language_chill, */ /* Chill */ language_fortran, /* Fortran */ language_m2, /* Modula-2 */ language_asm, /* Assembly language */ @@ -300,9 +300,9 @@ extern int inside_main_func (CORE_ADDR pc); -/* From ch-lang.c, for the moment. (FIXME) */ +/* OBSOLETE From ch-lang.c, for the moment. (FIXME) */ -extern char *chill_demangle (const char *); +/* OBSOLETE extern char *chill_demangle (const char *); */ /* From utils.c */ Index: dwarfread.c =================================================================== RCS file: /cvs/src/src/gdb/dwarfread.c,v retrieving revision 1.13 diff -u -r1.13 dwarfread.c --- dwarfread.c 4 Feb 2002 11:55:34 -0000 1.13 +++ dwarfread.c 25 Jul 2002 01:25:19 -0000 @@ -186,9 +186,9 @@ #define LCC_PRODUCER "NCR C/C++" #endif -#ifndef CHILL_PRODUCER -#define CHILL_PRODUCER "GNU Chill " -#endif +/* OBSOLETE #ifndef CHILL_PRODUCER */ +/* OBSOLETE #define CHILL_PRODUCER "GNU Chill " */ +/* OBSOLETE #endif */ /* Flags to target_to_host() that tell whether or not the data object is expected to be signed. Used, for example, when fetching a signed @@ -621,9 +621,9 @@ case LANG_C_PLUS_PLUS: cu_language = language_cplus; break; - case LANG_CHILL: - cu_language = language_chill; - break; + /* OBSOLETE case LANG_CHILL: */ + /* OBSOLETE cu_language = language_chill; */ + /* OBSOLETE break; */ case LANG_MODULA2: cu_language = language_m2; break; @@ -1822,8 +1822,8 @@ else { processing_gcc_compilation = - STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER)) - || STREQN (producer, CHILL_PRODUCER, strlen (CHILL_PRODUCER)); + STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER)); + /* OBSOLETE || STREQN (producer, CHILL_PRODUCER, strlen (CHILL_PRODUCER)); */ } /* Select a demangling style if we can identify the producer and if Index: eval.c =================================================================== RCS file: /cvs/src/src/gdb/eval.c,v retrieving revision 1.22 diff -u -r1.22 eval.c --- eval.c 12 Apr 2002 22:54:17 -0000 1.22 +++ eval.c 25 Jul 2002 01:25:20 -0000 @@ -186,8 +186,8 @@ return NULL; } -/* This function evaluates tuples (in Chill) or brace-initializers - (in C/C++) for structure types. */ +/* This function evaluates tuples (in (OBSOLETE) Chill) or + brace-initializers (in C/C++) for structure types. */ static struct value * evaluate_struct_tuple (struct value *struct_val, @@ -325,13 +325,11 @@ return struct_val; } -/* Recursive helper function for setting elements of array tuples for Chill. - The target is ARRAY (which has bounds LOW_BOUND to HIGH_BOUND); - the element value is ELEMENT; - EXP, POS and NOSIDE are as usual. - Evaluates index expresions and sets the specified element(s) of - ARRAY to ELEMENT. - Returns last index value. */ +/* Recursive helper function for setting elements of array tuples for + (OBSOLETE) Chill. The target is ARRAY (which has bounds LOW_BOUND + to HIGH_BOUND); the element value is ELEMENT; EXP, POS and NOSIDE + are as usual. Evaluates index expresions and sets the specified + element(s) of ARRAY to ELEMENT. Returns last index value. */ static LONGEST init_array_element (struct value *array, struct value *element, Index: expprint.c =================================================================== RCS file: /cvs/src/src/gdb/expprint.c,v retrieving revision 1.7 diff -u -r1.7 expprint.c --- expprint.c 13 May 2002 14:00:36 -0000 1.7 +++ expprint.c 25 Jul 2002 01:25:20 -0000 @@ -217,8 +217,9 @@ } else { - int is_chill = exp->language_defn->la_language == language_chill; - fputs_filtered (is_chill ? " [" : " {", stream); + /* OBSOLETE int is_chill = exp->language_defn->la_language == language_chill; */ + /* OBSOLETE fputs_filtered (is_chill ? " [" : " {", stream); */ + fputs_filtered (" {", stream); for (tem = 0; tem < nargs; tem++) { if (tem != 0) @@ -227,7 +228,8 @@ } print_subexp (exp, pos, stream, PREC_ABOVE_COMMA); } - fputs_filtered (is_chill ? "]" : "}", stream); + /* OBSOLETE fputs_filtered (is_chill ? "]" : "}", stream); */ + fputs_filtered ("}", stream); } return; @@ -235,15 +237,17 @@ tem = longest_to_int (exp->elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1); - if (exp->language_defn->la_language == language_chill) - { - fputs_filtered (".", stream); - fputs_filtered (&exp->elts[pc + 2].string, stream); - fputs_filtered (exp->elts[*pos].opcode == OP_LABELED ? ", " - : ": ", - stream); - } - else +#if 0 + if (0 /* OBSOLETE exp->language_defn->la_language == language_chill */) + { /* OBSOLETE */ + fputs_filtered (".", stream); /* OBSOLETE */ + fputs_filtered (&exp->elts[pc + 2].string, stream); /* OBSOLETE */ + fputs_filtered (exp->elts[*pos].opcode == OP_LABELED ? ", " /* OBSOLETE */ + : ": ", /* OBSOLETE */ + stream); /* OBSOLETE */ + } /* OBSOLETE */ + else /* OBSOLETE */ +#endif { /* Gcc support both these syntaxes. Unsure which is preferred. */ #if 1 Index: expression.h =================================================================== RCS file: /cvs/src/src/gdb/expression.h,v retrieving revision 1.3 diff -u -r1.3 expression.h --- expression.h 1 Aug 2001 18:39:23 -0000 1.3 +++ expression.h 25 Jul 2002 01:25:20 -0000 @@ -109,10 +109,11 @@ the second operand with itself that many times. */ BINOP_CONCAT, - /* For Chill and Pascal. */ + /* For (OBSOLETE) Chill (OBSOLETE) and Pascal. */ BINOP_IN, /* Returns 1 iff ARG1 IN ARG2. */ - /* This is the "colon operator" used various places in Chill. */ + /* This is the "colon operator" used various places in (OBSOLETE) + Chill (OBSOLETE). */ BINOP_RANGE, /* This must be the highest BINOP_ value, for expprint.c. */ @@ -121,12 +122,13 @@ /* Operates on three values computed by following subexpressions. */ TERNOP_COND, /* ?: */ - /* A sub-string/sub-array. Chill syntax: OP1(OP2:OP3). - Return elements OP2 through OP3 of OP1. */ + /* A sub-string/sub-array. (OBSOLETE) Chill (OBSOLETE) syntax: + OP1(OP2:OP3). Return elements OP2 through OP3 of OP1. */ TERNOP_SLICE, - /* A sub-string/sub-array. Chill syntax: OP1(OP2 UP OP3). - Return OP3 elements of OP1, starting with element OP2. */ + /* A sub-string/sub-array. (OBSOLETE) Chill (OBSOLETE) syntax: + OP1(OP2 UP OP3). Return OP3 elements of OP1, starting with + element OP2. */ TERNOP_SLICE_COUNT, /* Multidimensional subscript operator, such as Modula-2 x[a,b,...]. @@ -251,7 +253,7 @@ UNOP_ODD, UNOP_TRUNC, - /* Chill builtin functions. */ + /* (OBSOLETE) Chill (OBSOLETE) builtin functions. */ UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH, UNOP_CARD, UNOP_CHMAX, UNOP_CHMIN, OP_BOOL, /* Modula-2 builtin BOOLEAN type */ @@ -281,12 +283,15 @@ a string, which, of course, is variable length. */ OP_SCOPE, - /* Used to represent named structure field values in brace initializers - (or tuples as they are called in Chill). - The gcc C syntax is NAME:VALUE or .NAME=VALUE, the Chill syntax is - .NAME:VALUE. Multiple labels (as in the Chill syntax - .NAME1,.NAME2:VALUE) is represented as if it were - .NAME1:(.NAME2:VALUE) (though that is not valid Chill syntax). + /* Used to represent named structure field values in brace + initializers (or tuples as they are called in (OBSOLETE) Chill + (OBSOLETE)). + + The gcc C syntax is NAME:VALUE or .NAME=VALUE, the (OBSOLETE) + Chill (OBSOLETE) syntax is .NAME:VALUE. Multiple labels (as in + the (OBSOLETE) Chill (OBSOLETE) syntax .NAME1,.NAME2:VALUE) is + represented as if it were .NAME1:(.NAME2:VALUE) (though that is + not valid (OBSOLETE) Chill (OBSOLETE) syntax). The NAME is represented as for STRUCTOP_STRUCT; VALUE follows. */ OP_LABELED, Index: gdbtypes.c =================================================================== RCS file: /cvs/src/src/gdb/gdbtypes.c,v retrieving revision 1.53 diff -u -r1.53 gdbtypes.c --- gdbtypes.c 14 Jun 2002 14:34:25 -0000 1.53 +++ gdbtypes.c 25 Jul 2002 01:25:22 -0000 @@ -1888,21 +1888,23 @@ || (TYPE_CODE (t) == TYPE_CODE_BOOL))); } -/* Chill varying string and arrays are represented as follows: +/* (OBSOLETE) Chill (OBSOLETE) varying string and arrays are + represented as follows: struct { int __var_length; ELEMENT_TYPE[MAX_SIZE] __var_data}; - Return true if TYPE is such a Chill varying type. */ + Return true if TYPE is such a (OBSOLETE) Chill (OBSOLETE) varying + type. */ -int -chill_varying_type (struct type *type) -{ - if (TYPE_CODE (type) != TYPE_CODE_STRUCT - || TYPE_NFIELDS (type) != 2 - || strcmp (TYPE_FIELD_NAME (type, 0), "__var_length") != 0) - return 0; - return 1; -} +/* OBSOLETE int */ +/* OBSOLETE chill_varying_type (struct type *type) */ +/* OBSOLETE { */ +/* OBSOLETE if (TYPE_CODE (type) != TYPE_CODE_STRUCT */ +/* OBSOLETE || TYPE_NFIELDS (type) != 2 */ +/* OBSOLETE || strcmp (TYPE_FIELD_NAME (type, 0), "__var_length") != 0) */ +/* OBSOLETE return 0; */ +/* OBSOLETE return 1; */ +/* OBSOLETE } */ /* Check whether BASE is an ancestor or base class or DCLASS Return 1 if so, and 0 if not. Index: gdbtypes.h =================================================================== RCS file: /cvs/src/src/gdb/gdbtypes.h,v retrieving revision 1.33 diff -u -r1.33 gdbtypes.h --- gdbtypes.h 14 Jun 2002 14:34:24 -0000 1.33 +++ gdbtypes.h 25 Jul 2002 01:25:22 -0000 @@ -101,13 +101,14 @@ TYPE_CODE_RANGE, /* Range (integers within spec'd bounds) */ /* A string type which is like an array of character but prints - differently (at least for CHILL). It does not contain a length - field as Pascal strings (for many Pascals, anyway) do; if we want - to deal with such strings, we should use a new type code. */ + differently (at least for (OBSOLETE) CHILL (OBSOLETE)). It + does not contain a length field as Pascal strings (for many + Pascals, anyway) do; if we want to deal with such strings, we + should use a new type code. */ TYPE_CODE_STRING, - /* String of bits; like TYPE_CODE_SET but prints differently (at least - for CHILL). */ + /* String of bits; like TYPE_CODE_SET but prints differently (at + least for (OBSOLETE) CHILL (OBSOLETE)). */ TYPE_CODE_BITSTRING, /* Unknown type. The length field is valid if we were able to @@ -994,13 +995,13 @@ extern struct type *builtin_type_m2_real; extern struct type *builtin_type_m2_bool; -/* Chill types */ +/* OBSOLETE Chill types */ -extern struct type *builtin_type_chill_bool; -extern struct type *builtin_type_chill_char; -extern struct type *builtin_type_chill_long; -extern struct type *builtin_type_chill_ulong; -extern struct type *builtin_type_chill_real; +/* OBSOLETE extern struct type *builtin_type_chill_bool; */ +/* OBSOLETE extern struct type *builtin_type_chill_char; */ +/* OBSOLETE extern struct type *builtin_type_chill_long; */ +/* OBSOLETE extern struct type *builtin_type_chill_ulong; */ +/* OBSOLETE extern struct type *builtin_type_chill_real; */ /* Fortran (F77) types */ @@ -1109,7 +1110,7 @@ extern struct type *create_set_type (struct type *, struct type *); -extern int chill_varying_type (struct type *); +/* OBSOLETE extern int chill_varying_type (struct type *); */ extern struct type *lookup_unsigned_typename (char *); Index: language.c =================================================================== RCS file: /cvs/src/src/gdb/language.c,v retrieving revision 1.25 diff -u -r1.25 language.c --- language.c 11 Jul 2002 13:50:49 -0000 1.25 +++ language.c 25 Jul 2002 01:25:23 -0000 @@ -567,8 +567,8 @@ not needed. */ return l1 > l2 ? VALUE_TYPE (v1) : VALUE_TYPE (v2); break; - case language_chill: - error ("Missing Chill support in function binop_result_check."); /*FIXME */ + /* 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 */ @@ -791,8 +791,8 @@ case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_INT ? 0 : 1; - case language_chill: - error ("Missing Chill support in function integral_type."); /*FIXME */ + /* OBSOLETE case language_chill: */ + /* OBSOLETE error ("Missing Chill support in function integral_type."); *//*FIXME */ default: error ("Language not supported."); } @@ -821,7 +821,7 @@ CHECK_TYPEDEF (type); switch (current_language->la_language) { - case language_chill: + /* OBSOLETE case language_chill: */ case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_CHAR ? 0 : 1; @@ -843,7 +843,7 @@ CHECK_TYPEDEF (type); switch (current_language->la_language) { - case language_chill: + /* OBSOLETE case language_chill: */ case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_STRING ? 0 : 1; @@ -868,8 +868,9 @@ { case language_c: case language_cplus: - /* Might be more cleanly handled by having a TYPE_CODE_INT_NOT_BOOL - for CHILL and such languages, or a TYPE_CODE_INT_OR_BOOL for C. */ + /* Might be more cleanly handled by having a + TYPE_CODE_INT_NOT_BOOL for (OBSOLETE) CHILL and such + languages, or a TYPE_CODE_INT_OR_BOOL for C. */ if (TYPE_CODE (type) == TYPE_CODE_INT) return 1; default: @@ -915,8 +916,8 @@ return (TYPE_CODE (type) == TYPE_CODE_STRUCT) || (TYPE_CODE (type) == TYPE_CODE_SET) || (TYPE_CODE (type) == TYPE_CODE_ARRAY); - case language_chill: - error ("Missing Chill support in function structured_type."); /*FIXME */ + /* OBSOLETE case language_chill: */ + /* OBSOLETE error ("Missing Chill support in function structured_type."); *//*FIXME */ default: return (0); } @@ -930,8 +931,10 @@ struct type *type; switch (current_language->la_language) { - case language_chill: - return builtin_type_chill_bool; +#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) @@ -1161,9 +1164,9 @@ } #endif -#ifdef _LANG_chill - case language_chill: - error ("Missing Chill support in function binop_type_check."); /*FIXME */ +#ifdef _LANG_chill /* OBSOLETE */ + /* OBSOLETE case language_chill: */ + /* OBSOLETE error ("Missing Chill support in function binop_type_check."); *//*FIXME */ #endif } Index: language.h =================================================================== RCS file: /cvs/src/src/gdb/language.h,v retrieving revision 1.10 diff -u -r1.10 language.h --- language.h 12 May 2002 04:20:05 -0000 1.10 +++ language.h 25 Jul 2002 01:25:23 -0000 @@ -35,7 +35,7 @@ /* #include "lang_def.h" */ #define _LANG_c #define _LANG_m2 -#define _LANG_chill +/* OBSOLETE #define _LANG_chill */ #define _LANG_fortran #define _LANG_pascal Index: stabsread.c =================================================================== RCS file: /cvs/src/src/gdb/stabsread.c,v retrieving revision 1.36 diff -u -r1.36 stabsread.c --- stabsread.c 18 Jul 2002 17:22:50 -0000 1.36 +++ stabsread.c 25 Jul 2002 01:25:25 -0000 @@ -3739,8 +3739,9 @@ } if (p[0] == ':' && p[1] == ':') { - /* chill the list of fields: the last entry (at the head) is a - partially constructed entry which we now scrub. */ + /* (OBSOLETE) chill (OBSOLETE) the list of fields: the last + entry (at the head) is a partially constructed entry which we + now scrub. */ fip->list = fip->list->next; } return 1; @@ -4889,9 +4890,11 @@ else if (self_subrange && n2 == 0 && n3 == 127) return init_type (TYPE_CODE_INT, 1, 0, NULL, objfile); - else if (current_symbol && SYMBOL_LANGUAGE (current_symbol) == language_chill - && !self_subrange) - goto handle_true_range; +#if 0 + /* OBSOLETE else if (current_symbol && SYMBOL_LANGUAGE (current_symbol) == language_chill */ + /* OBSOLETE && !self_subrange) */ + /* OBSOLETE goto handle_true_range; */ +#endif /* We used to do this only for subrange of self or subrange of int. */ else if (n2 == 0) Index: symfile.c =================================================================== RCS file: /cvs/src/src/gdb/symfile.c,v retrieving revision 1.63 diff -u -r1.63 symfile.c --- symfile.c 12 Jul 2002 15:23:10 -0000 1.63 +++ symfile.c 25 Jul 2002 01:25:26 -0000 @@ -1963,9 +1963,9 @@ add_filename_language (".c++", language_cplus); add_filename_language (".java", language_java); add_filename_language (".class", language_java); - add_filename_language (".ch", language_chill); - add_filename_language (".c186", language_chill); - add_filename_language (".c286", language_chill); + /* OBSOLETE add_filename_language (".ch", language_chill); */ + /* OBSOLETE add_filename_language (".c186", language_chill); */ + /* OBSOLETE add_filename_language (".c286", language_chill); */ add_filename_language (".f", language_fortran); add_filename_language (".F", language_fortran); add_filename_language (".s", language_asm); @@ -2443,9 +2443,9 @@ SYMBOL_CPLUS_DEMANGLED_NAME (&psymbol) = bcache (buf, dem_namelength + 1, objfile->psymbol_cache); break; - case language_chill: - SYMBOL_CHILL_DEMANGLED_NAME (&psymbol) = - bcache (buf, dem_namelength + 1, objfile->psymbol_cache); + /* OBSOLETE case language_chill: */ + /* OBSOLETE SYMBOL_CHILL_DEMANGLED_NAME (&psymbol) = */ + /* OBSOLETE bcache (buf, dem_namelength + 1, objfile->psymbol_cache); */ /* FIXME What should be done for the default case? Ignoring for now. */ } Index: symtab.c =================================================================== RCS file: /cvs/src/src/gdb/symtab.c,v retrieving revision 1.65 diff -u -r1.65 symtab.c --- symtab.c 11 Jul 2002 20:46:19 -0000 1.65 +++ symtab.c 25 Jul 2002 01:25:27 -0000 @@ -438,24 +438,26 @@ gsymbol->language_specific.cplus_specific.demangled_name = NULL; } } - if (demangled == NULL - && (gsymbol->language == language_chill - || gsymbol->language == language_auto)) - { - demangled = - chill_demangle (gsymbol->name); - if (demangled != NULL) - { - gsymbol->language = language_chill; - gsymbol->language_specific.chill_specific.demangled_name = - obsavestring (demangled, strlen (demangled), obstack); - xfree (demangled); - } - else - { - gsymbol->language_specific.chill_specific.demangled_name = NULL; - } - } +#if 0 + /* OBSOLETE if (demangled == NULL */ + /* OBSOLETE && (gsymbol->language == language_chill */ + /* OBSOLETE || gsymbol->language == language_auto)) */ + /* OBSOLETE { */ + /* OBSOLETE demangled = */ + /* OBSOLETE chill_demangle (gsymbol->name); */ + /* OBSOLETE if (demangled != NULL) */ + /* OBSOLETE { */ + /* OBSOLETE gsymbol->language = language_chill; */ + /* OBSOLETE gsymbol->language_specific.chill_specific.demangled_name = */ + /* OBSOLETE obsavestring (demangled, strlen (demangled), obstack); */ + /* OBSOLETE xfree (demangled); */ + /* OBSOLETE } */ + /* OBSOLETE else */ + /* OBSOLETE { */ + /* OBSOLETE gsymbol->language_specific.chill_specific.demangled_name = NULL; */ + /* OBSOLETE } */ + /* OBSOLETE } */ +#endif } Index: symtab.h =================================================================== RCS file: /cvs/src/src/gdb/symtab.h,v retrieving revision 1.35 diff -u -r1.35 symtab.h --- symtab.h 11 Jul 2002 20:46:19 -0000 1.35 +++ symtab.h 25 Jul 2002 01:25:28 -0000 @@ -92,11 +92,13 @@ char *demangled_name; } cplus_specific; - struct chill_specific /* For Chill */ - { - char *demangled_name; - } - chill_specific; +#if 0 + /* OBSOLETE struct chill_specific *//* For Chill */ + /* OBSOLETE { */ + /* OBSOLETE char *demangled_name; */ + /* OBSOLETE } */ + /* OBSOLETE chill_specific; */ +#endif } language_specific; @@ -147,10 +149,10 @@ { \ SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = NULL; \ } \ - else if (SYMBOL_LANGUAGE (symbol) == language_chill) \ - { \ - SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; \ - } \ + /* OBSOLETE else if (SYMBOL_LANGUAGE (symbol) == language_chill) */ \ + /* OBSOLETE { */ \ + /* OBSOLETE SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; */ \ + /* OBSOLETE } */ \ else \ { \ memset (&(symbol)->ginfo.language_specific, 0, \ @@ -171,12 +173,12 @@ (SYMBOL_LANGUAGE (symbol) == language_cplus \ || SYMBOL_LANGUAGE (symbol) == language_java \ ? SYMBOL_CPLUS_DEMANGLED_NAME (symbol) \ - : (SYMBOL_LANGUAGE (symbol) == language_chill \ - ? SYMBOL_CHILL_DEMANGLED_NAME (symbol) \ - : NULL)) + : /* OBSOLETE (SYMBOL_LANGUAGE (symbol) == language_chill */ \ + /* OBSOLETE ? SYMBOL_CHILL_DEMANGLED_NAME (symbol) */ \ + NULL) -#define SYMBOL_CHILL_DEMANGLED_NAME(symbol) \ - (symbol)->ginfo.language_specific.chill_specific.demangled_name +/* OBSOLETE #define SYMBOL_CHILL_DEMANGLED_NAME(symbol) */ +/* OBSOLETE (symbol)->ginfo.language_specific.chill_specific.demangled_name */ /* Macro that returns the "natural source name" of a symbol. In C++ this is the "demangled" form of the name if demangle is on and the "mangled" form Index: typeprint.c =================================================================== RCS file: /cvs/src/src/gdb/typeprint.c,v retrieving revision 1.10 diff -u -r1.10 typeprint.c --- typeprint.c 10 Nov 2001 21:34:56 -0000 1.10 +++ typeprint.c 25 Jul 2002 01:25:28 -0000 @@ -88,16 +88,16 @@ type_print (type, "", stream, 0); break; #endif -#ifdef _LANG_chill - case language_chill: - fprintf_filtered (stream, "SYNMODE "); - if (!TYPE_NAME (SYMBOL_TYPE (new)) || - !STREQ (TYPE_NAME (SYMBOL_TYPE (new)), SYMBOL_NAME (new))) - fprintf_filtered (stream, "%s = ", SYMBOL_SOURCE_NAME (new)); - else - fprintf_filtered (stream, " = "); - type_print (type, "", stream, 0); - break; +#ifdef _LANG_chill /* OBSOLETE */ + /* OBSOLETE case language_chill: */ + /* OBSOLETE fprintf_filtered (stream, "SYNMODE "); */ + /* OBSOLETE if (!TYPE_NAME (SYMBOL_TYPE (new)) || */ + /* OBSOLETE !STREQ (TYPE_NAME (SYMBOL_TYPE (new)), SYMBOL_NAME (new))) */ + /* OBSOLETE fprintf_filtered (stream, "%s = ", SYMBOL_SOURCE_NAME (new)); */ + /* OBSOLETE else */ + /* OBSOLETE fprintf_filtered (stream, " = "); */ + /* OBSOLETE type_print (type, "", stream, 0); */ + /* OBSOLETE break; */ #endif default: error ("Language not supported."); Index: utils.c =================================================================== RCS file: /cvs/src/src/gdb/utils.c,v retrieving revision 1.73 diff -u -r1.73 utils.c --- utils.c 24 Jul 2002 17:58:46 -0000 1.73 +++ utils.c 25 Jul 2002 01:25:29 -0000 @@ -2153,9 +2153,11 @@ case language_java: demangled = cplus_demangle (name, arg_mode | DMGL_JAVA); break; - case language_chill: - demangled = chill_demangle (name); - break; +#if 0 + /* OBSOLETE case language_chill: */ + /* OBSOLETE demangled = chill_demangle (name); */ + /* OBSOLETE break; */ +#endif default: demangled = NULL; break; Index: valarith.c =================================================================== RCS file: /cvs/src/src/gdb/valarith.c,v retrieving revision 1.15 diff -u -r1.15 valarith.c --- valarith.c 10 Apr 2002 00:11:51 -0000 1.15 +++ valarith.c 25 Jul 2002 01:25:29 -0000 @@ -859,7 +859,7 @@ /* Integral operations here. */ /* FIXME: Also mixed integral/booleans, with result an integer. */ /* FIXME: This implements ANSI C rules (also correct for C++). - What about FORTRAN and chill? */ + What about FORTRAN and (OBSOLETE) chill ? */ { unsigned int promoted_len1 = TYPE_LENGTH (type1); unsigned int promoted_len2 = TYPE_LENGTH (type2); @@ -946,12 +946,12 @@ case BINOP_MOD: /* Knuth 1.2.4, integer only. Note that unlike the C '%' op, v1 mod 0 has a defined value, v1. */ - /* Chill specifies that v2 must be > 0, so check for that. */ - if (current_language->la_language == language_chill - && value_as_long (arg2) <= 0) - { - error ("Second operand of MOD must be greater than zero."); - } + /* OBSOLETE Chill specifies that v2 must be > 0, so check for that. */ + /* OBSOLETE if (current_language->la_language == language_chill */ + /* OBSOLETE && value_as_long (arg2) <= 0) */ + /* OBSOLETE { */ + /* OBSOLETE error ("Second operand of MOD must be greater than zero."); */ + /* OBSOLETE } */ if (v2 == 0) { v = v1; @@ -1070,12 +1070,12 @@ case BINOP_MOD: /* Knuth 1.2.4, integer only. Note that unlike the C '%' op, X mod 0 has a defined value, X. */ - /* Chill specifies that v2 must be > 0, so check for that. */ - if (current_language->la_language == language_chill - && v2 <= 0) - { - error ("Second operand of MOD must be greater than zero."); - } + /* OBSOLETE Chill specifies that v2 must be > 0, so check for that. */ + /* OBSOLETE if (current_language->la_language == language_chill */ + /* OBSOLETE && v2 <= 0) */ + /* OBSOLETE { */ + /* OBSOLETE error ("Second operand of MOD must be greater than zero."); */ + /* OBSOLETE } */ if (v2 == 0) { v = v1; @@ -1338,8 +1338,8 @@ return value_from_double (result_type, -value_as_double (arg1)); else if (TYPE_CODE (type) == TYPE_CODE_INT || TYPE_CODE (type) == TYPE_CODE_BOOL) { - /* Perform integral promotion for ANSI C/C++. - FIXME: What about FORTRAN and chill ? */ + /* Perform integral promotion for ANSI C/C++. FIXME: What about + FORTRAN and (OBSOLETE) chill ? */ if (TYPE_LENGTH (type) < TYPE_LENGTH (builtin_type_int)) result_type = builtin_type_int; Index: valops.c =================================================================== RCS file: /cvs/src/src/gdb/valops.c,v retrieving revision 1.65 diff -u -r1.65 valops.c --- valops.c 12 Jul 2002 19:15:30 -0000 1.65 +++ valops.c 25 Jul 2002 01:25:30 -0000 @@ -383,49 +383,49 @@ VALUE_POINTED_TO_OFFSET (arg2) = 0; /* pai: chk_val */ return arg2; } - else if (chill_varying_type (type)) - { - struct type *range1, *range2, *eltype1, *eltype2; - struct value *val; - int count1, count2; - LONGEST low_bound, high_bound; - char *valaddr, *valaddr_data; - /* For lint warning about eltype2 possibly uninitialized: */ - eltype2 = NULL; - if (code2 == TYPE_CODE_BITSTRING) - error ("not implemented: converting bitstring to varying type"); - if ((code2 != TYPE_CODE_ARRAY && code2 != TYPE_CODE_STRING) - || (eltype1 = check_typedef (TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1))), - eltype2 = check_typedef (TYPE_TARGET_TYPE (type2)), - (TYPE_LENGTH (eltype1) != TYPE_LENGTH (eltype2) - /* || TYPE_CODE (eltype1) != TYPE_CODE (eltype2) */ ))) - error ("Invalid conversion to varying type"); - range1 = TYPE_FIELD_TYPE (TYPE_FIELD_TYPE (type, 1), 0); - range2 = TYPE_FIELD_TYPE (type2, 0); - if (get_discrete_bounds (range1, &low_bound, &high_bound) < 0) - count1 = -1; - else - count1 = high_bound - low_bound + 1; - if (get_discrete_bounds (range2, &low_bound, &high_bound) < 0) - count1 = -1, count2 = 0; /* To force error before */ - else - count2 = high_bound - low_bound + 1; - if (count2 > count1) - error ("target varying type is too small"); - val = allocate_value (type); - valaddr = VALUE_CONTENTS_RAW (val); - valaddr_data = valaddr + TYPE_FIELD_BITPOS (type, 1) / 8; - /* Set val's __var_length field to count2. */ - store_signed_integer (valaddr, TYPE_LENGTH (TYPE_FIELD_TYPE (type, 0)), - count2); - /* Set the __var_data field to count2 elements copied from arg2. */ - memcpy (valaddr_data, VALUE_CONTENTS (arg2), - count2 * TYPE_LENGTH (eltype2)); - /* Zero the rest of the __var_data field of val. */ - memset (valaddr_data + count2 * TYPE_LENGTH (eltype2), '\0', - (count1 - count2) * TYPE_LENGTH (eltype2)); - return val; - } + /* OBSOLETE else if (chill_varying_type (type)) */ + /* OBSOLETE { */ + /* OBSOLETE struct type *range1, *range2, *eltype1, *eltype2; */ + /* OBSOLETE struct value *val; */ + /* OBSOLETE int count1, count2; */ + /* OBSOLETE LONGEST low_bound, high_bound; */ + /* OBSOLETE char *valaddr, *valaddr_data; */ + /* OBSOLETE *//* For lint warning about eltype2 possibly uninitialized: */ + /* OBSOLETE eltype2 = NULL; */ + /* OBSOLETE if (code2 == TYPE_CODE_BITSTRING) */ + /* OBSOLETE error ("not implemented: converting bitstring to varying type"); */ + /* OBSOLETE if ((code2 != TYPE_CODE_ARRAY && code2 != TYPE_CODE_STRING) */ + /* OBSOLETE || (eltype1 = check_typedef (TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1))), */ + /* OBSOLETE eltype2 = check_typedef (TYPE_TARGET_TYPE (type2)), */ + /* OBSOLETE (TYPE_LENGTH (eltype1) != TYPE_LENGTH (eltype2) */ + /* OBSOLETE *//*|| TYPE_CODE (eltype1) != TYPE_CODE (eltype2) *//* ))) */ + /* OBSOLETE error ("Invalid conversion to varying type"); */ + /* OBSOLETE range1 = TYPE_FIELD_TYPE (TYPE_FIELD_TYPE (type, 1), 0); */ + /* OBSOLETE range2 = TYPE_FIELD_TYPE (type2, 0); */ + /* OBSOLETE if (get_discrete_bounds (range1, &low_bound, &high_bound) < 0) */ + /* OBSOLETE count1 = -1; */ + /* OBSOLETE else */ + /* OBSOLETE count1 = high_bound - low_bound + 1; */ + /* OBSOLETE if (get_discrete_bounds (range2, &low_bound, &high_bound) < 0) */ + /* OBSOLETE count1 = -1, count2 = 0; *//* To force error before */ + /* OBSOLETE else */ + /* OBSOLETE count2 = high_bound - low_bound + 1; */ + /* OBSOLETE if (count2 > count1) */ + /* OBSOLETE error ("target varying type is too small"); */ + /* OBSOLETE val = allocate_value (type); */ + /* OBSOLETE valaddr = VALUE_CONTENTS_RAW (val); */ + /* OBSOLETE valaddr_data = valaddr + TYPE_FIELD_BITPOS (type, 1) / 8; */ + /* OBSOLETE *//* Set val's __var_length field to count2. */ + /* OBSOLETE store_signed_integer (valaddr, TYPE_LENGTH (TYPE_FIELD_TYPE (type, 0)), */ + /* OBSOLETE count2); */ + /* OBSOLETE *//* Set the __var_data field to count2 elements copied from arg2. */ + /* OBSOLETE memcpy (valaddr_data, VALUE_CONTENTS (arg2), */ + /* OBSOLETE count2 * TYPE_LENGTH (eltype2)); */ + /* OBSOLETE *//* Zero the rest of the __var_data field of val. */ + /* OBSOLETE memset (valaddr_data + count2 * TYPE_LENGTH (eltype2), '\0', */ + /* OBSOLETE (count1 - count2) * TYPE_LENGTH (eltype2)); */ + /* OBSOLETE return val; */ + /* OBSOLETE } */ else if (VALUE_LVAL (arg2) == lval_memory) { return value_at_lazy (type, VALUE_ADDRESS (arg2) + VALUE_OFFSET (arg2), @@ -2074,20 +2074,22 @@ /* Look for a match through the fields of an anonymous union, or anonymous struct. C++ provides anonymous unions. - In the GNU Chill implementation of variant record types, - each has an (anonymous) union type, - each member of the union represents a . - Each is represented as a struct, - with a member for each . */ + In the GNU Chill (OBSOLETE) implementation of + variant record types, each has + an (anonymous) union type, each member of the union + represents a . Each is represented as a struct, with a + member for each . */ struct value *v; int new_offset = offset; - /* This is pretty gross. In G++, the offset in an anonymous - union is relative to the beginning of the enclosing struct. - In the GNU Chill implementation of variant records, - the bitpos is zero in an anonymous union field, so we - have to add the offset of the union here. */ + /* This is pretty gross. In G++, the offset in an + anonymous union is relative to the beginning of the + enclosing struct. In the GNU Chill (OBSOLETE) + implementation of variant records, the bitpos is + zero in an anonymous union field, so we have to add + the offset of the union here. */ if (TYPE_CODE (field_type) == TYPE_CODE_STRUCT || (TYPE_NFIELDS (field_type) > 0 && TYPE_FIELD_BITPOS (field_type, 0) == 0)) @@ -3310,10 +3312,10 @@ if (get_discrete_bounds (range_type, &lowerbound, &upperbound) < 0) error ("slice from bad array or bitstring"); if (lowbound < lowerbound || length < 0 - || lowbound + length - 1 > upperbound - /* Chill allows zero-length strings but not arrays. */ - || (current_language->la_language == language_chill - && length == 0 && TYPE_CODE (array_type) == TYPE_CODE_ARRAY)) + || lowbound + length - 1 > upperbound) + /* OBSOLETE Chill allows zero-length strings but not arrays. */ + /* OBSOLETE || (current_language->la_language == language_chill */ + /* OBSOLETE && length == 0 && TYPE_CODE (array_type) == TYPE_CODE_ARRAY)) */ error ("slice out of range"); /* FIXME-type-allocation: need a way to free this type when we are done with it. */ @@ -3369,8 +3371,8 @@ return slice; } -/* Assuming chill_varying_type (VARRAY) is true, return an equivalent - value as a fixed-length array. */ +/* Assuming OBSOLETE chill_varying_type (VARRAY) is true, return an + equivalent value as a fixed-length array. */ struct value * varying_to_slice (struct value *varray) Index: value.h =================================================================== RCS file: /cvs/src/src/gdb/value.h,v retrieving revision 1.32 diff -u -r1.32 value.h --- value.h 3 Jul 2002 20:36:54 -0000 1.32 +++ value.h 25 Jul 2002 01:25:31 -0000 @@ -242,8 +242,8 @@ do { COERCE_ARRAY(arg); COERCE_ENUM(arg); } while (0) #define COERCE_VARYING_ARRAY(arg, real_arg_type) \ -{ if (chill_varying_type (real_arg_type)) \ - arg = varying_to_slice (arg), real_arg_type = VALUE_TYPE (arg); } +/* OBSOLETE { if (chill_varying_type (real_arg_type)) */ \ +/* OBSOLETE arg = varying_to_slice (arg), real_arg_type = VALUE_TYPE (arg); } */ /* If ARG is an enum, convert it to an integer. */ Index: doc/gdb.texinfo =================================================================== RCS file: /cvs/src/src/gdb/doc/gdb.texinfo,v retrieving revision 1.105 diff -u -r1.105 gdb.texinfo --- doc/gdb.texinfo 24 Jul 2002 23:51:36 -0000 1.105 +++ doc/gdb.texinfo 25 Jul 2002 01:25:38 -0000 @@ -194,10 +194,12 @@ For more information, see @ref{Support,,Supported languages}. For more information, see @ref{C,,C and C++}. -@cindex Chill +@c OBSOLETE @cindex Chill @cindex Modula-2 -Support for Modula-2 and Chill is partial. For information on Modula-2, -see @ref{Modula-2,,Modula-2}. For information on Chill, see @ref{Chill}. +Support for Modula-2 +@c OBSOLETE and Chill +is partial. For information on Modula-2, see @ref{Modula-2,,Modula-2}. +@c OBSOLETE For information on Chill, see @ref{Chill}. @cindex Pascal Debugging Pascal programs which use sets, subranges, file variables, or @@ -7114,10 +7116,10 @@ @itemx .F Fortran source file -@item .ch -@itemx .c186 -@itemx .c286 -CHILL source file +@c OBSOLETE @item .ch +@c OBSOLETE @itemx .c186 +@c OBSOLETE @itemx .c286 +@c OBSOLETE CHILL source file @item .mod Modula-2 source file @@ -7390,7 +7392,9 @@ @node Support @section Supported languages -@value{GDBN} supports C, C@t{++}, Fortran, Java, Chill, assembly, and Modula-2. +@value{GDBN} supports C, C@t{++}, Fortran, Java, +@c OBSOLETE Chill, +assembly, and Modula-2. @c This is false ... Some @value{GDBN} features may be used in expressions regardless of the language you use: the @value{GDBN} @code{@@} and @code{::} operators, @@ -7409,7 +7413,7 @@ @menu * C:: C and C@t{++} * Modula-2:: Modula-2 -* Chill:: Chill +@c OBSOLETE * Chill:: Chill @end menu @node C @@ -8375,504 +8379,504 @@ In @value{GDBN} scripts, the Modula-2 inequality operator @code{#} is interpreted as the beginning of a comment. Use @code{<>} instead. -@node Chill -@subsection Chill - -The extensions made to @value{GDBN} to support Chill only support output -from the @sc{gnu} Chill compiler. Other Chill compilers are not currently -supported, and attempting to debug executables produced by them is most -likely to give an error as @value{GDBN} reads in the executable's symbol -table. - -@c This used to say "... following Chill related topics ...", but since -@c menus are not shown in the printed manual, it would look awkward. -This section covers the Chill related topics and the features -of @value{GDBN} which support these topics. - -@menu -* How modes are displayed:: How modes are displayed -* Locations:: Locations and their accesses -* Values and their Operations:: Values and their Operations -* Chill type and range checks:: -* Chill defaults:: -@end menu - -@node How modes are displayed -@subsubsection How modes are displayed - -The Chill Datatype- (Mode) support of @value{GDBN} is directly related -with the functionality of the @sc{gnu} Chill compiler, and therefore deviates -slightly from the standard specification of the Chill language. The -provided modes are: - -@c FIXME: this @table's contents effectively disable @code by using @r -@c on every @item. So why does it need @code? -@table @code -@item @r{@emph{Discrete modes:}} -@itemize @bullet -@item -@emph{Integer Modes} which are predefined by @code{BYTE, UBYTE, INT, -UINT, LONG, ULONG}, -@item -@emph{Boolean Mode} which is predefined by @code{BOOL}, -@item -@emph{Character Mode} which is predefined by @code{CHAR}, -@item -@emph{Set Mode} which is displayed by the keyword @code{SET}. -@smallexample -(@value{GDBP}) ptype x -type = SET (karli = 10, susi = 20, fritzi = 100) -@end smallexample -If the type is an unnumbered set the set element values are omitted. -@item -@emph{Range Mode} which is displayed by -@smallexample -@code{type = ( : )} -@end smallexample -where @code{, } can be of any discrete literal -expression (e.g. set element names). -@end itemize - -@item @r{@emph{Powerset Mode:}} -A Powerset Mode is displayed by the keyword @code{POWERSET} followed by -the member mode of the powerset. The member mode can be any discrete mode. -@smallexample -(@value{GDBP}) ptype x -type = POWERSET SET (egon, hugo, otto) -@end smallexample - -@item @r{@emph{Reference Modes:}} -@itemize @bullet -@item -@emph{Bound Reference Mode} which is displayed by the keyword @code{REF} -followed by the mode name to which the reference is bound. -@item -@emph{Free Reference Mode} which is displayed by the keyword @code{PTR}. -@end itemize - -@item @r{@emph{Procedure mode}} -The procedure mode is displayed by @code{type = PROC() - EXCEPTIONS ()}. The @code{} is a list of the parameter modes. @code{} indicates -the mode of the result of the procedure if any. The exceptionlist lists -all possible exceptions which can be raised by the procedure. - -@ignore -@item @r{@emph{Instance mode}} -The instance mode is represented by a structure, which has a static -type, and is therefore not really of interest. -@end ignore - -@item @r{@emph{Synchronization Modes:}} -@itemize @bullet -@item -@emph{Event Mode} which is displayed by -@smallexample -@code{EVENT ()} -@end smallexample -where @code{()} is optional. -@item -@emph{Buffer Mode} which is displayed by -@smallexample -@code{BUFFER ()} -@end smallexample -where @code{()} is optional. -@end itemize - -@item @r{@emph{Timing Modes:}} -@itemize @bullet -@item -@emph{Duration Mode} which is predefined by @code{DURATION} -@item -@emph{Absolute Time Mode} which is predefined by @code{TIME} -@end itemize - -@item @r{@emph{Real Modes:}} -Real Modes are predefined with @code{REAL} and @code{LONG_REAL}. - -@item @r{@emph{String Modes:}} -@itemize @bullet -@item -@emph{Character String Mode} which is displayed by -@smallexample -@code{CHARS()} -@end smallexample -followed by the keyword @code{VARYING} if the String Mode is a varying -mode -@item -@emph{Bit String Mode} which is displayed by -@smallexample -@code{BOOLS()} -@end smallexample -@end itemize - -@item @r{@emph{Array Mode:}} -The Array Mode is displayed by the keyword @code{ARRAY()} -followed by the element mode (which may in turn be an array mode). -@smallexample -(@value{GDBP}) ptype x -type = ARRAY (1:42) - ARRAY (1:20) - SET (karli = 10, susi = 20, fritzi = 100) -@end smallexample - -@item @r{@emph{Structure Mode}} -The Structure mode is displayed by the keyword @code{STRUCT()}. The @code{} consists of names and modes of fields -of the structure. Variant structures have the keyword @code{CASE -OF ESAC} in their field list. Since the current version -of the GNU Chill compiler doesn't implement tag processing (no runtime -checks of variant fields, and therefore no debugging info), the output -always displays all variant fields. -@smallexample -(@value{GDBP}) ptype str -type = STRUCT ( - as x, - bs x, - CASE bs OF - (karli): - cs a - (ott): - ds x - ESAC -) -@end smallexample -@end table - -@node Locations -@subsubsection Locations and their accesses - -A location in Chill is an object which can contain values. - -A value of a location is generally accessed by the (declared) name of -the location. The output conforms to the specification of values in -Chill programs. How values are specified -is the topic of the next section, @ref{Values and their Operations}. - -The pseudo-location @code{RESULT} (or @code{result}) can be used to -display or change the result of a currently-active procedure: - -@smallexample -set result := EXPR -@end smallexample - -@noindent -This does the same as the Chill action @code{RESULT EXPR} (which -is not available in @value{GDBN}). - -Values of reference mode locations are printed by @code{PTR()} in case of a free reference mode, and by @code{(REF ) ()} in case of a bound reference. @code{} -represents the address where the reference points to. To access the -value of the location referenced by the pointer, use the dereference -operator @samp{->}. - -Values of procedure mode locations are displayed by -@smallexample -@code{@{ PROC -( ) @}
} -@end smallexample -@code{} is a list of modes according to the parameter -specification of the procedure and @code{
} shows the address of -the entry point. - -@ignore -Locations of instance modes are displayed just like a structure with two -fields specifying the @emph{process type} and the @emph{copy number} of -the investigated instance location@footnote{This comes from the current -implementation of instances. They are implemented as a structure (no -na). The output should be something like @code{[; -]}.}. The field names are @code{__proc_type} and -@code{__proc_copy}. - -Locations of synchronization modes are displayed like a structure with -the field name @code{__event_data} in case of a event mode location, and -like a structure with the field @code{__buffer_data} in case of a buffer -mode location (refer to previous paragraph). - -Structure Mode locations are printed by @code{[.: , -...]}. The @code{} corresponds to the structure mode -definition and the layout of @code{} varies depending of the mode -of the field. If the investigated structure mode location is of variant -structure mode, the variant parts of the structure are enclosed in curled -braces (@samp{@{@}}). Fields enclosed by @samp{@{,@}} are residing -on the same memory location and represent the current values of the -memory location in their specific modes. Since no tag processing is done -all variants are displayed. A variant field is printed by -@code{() = .: }. (who implements the -stuff ???) -@smallexample -(@value{GDBP}) print str1 $4 = [.as: 0, .bs: karli, .: { (karli) = -[.cs: []], (susi) = [.ds: susi]}] -@end smallexample -@end ignore - -Substructures of string mode-, array mode- or structure mode-values -(e.g. array slices, fields of structure locations) are accessed using -certain operations which are described in the next section, @ref{Values -and their Operations}. - -A location value may be interpreted as having a different mode using the -location conversion. This mode conversion is written as @code{()}. The user has to consider that the sizes of the modes -have to be equal otherwise an error occurs. Furthermore, no range -checking of the location against the destination mode is performed, and -therefore the result can be quite confusing. - -@smallexample -(@value{GDBP}) print int (s(3 up 4)) XXX TO be filled in !! XXX -@end smallexample - -@node Values and their Operations -@subsubsection Values and their Operations - -Values are used to alter locations, to investigate complex structures in -more detail or to filter relevant information out of a large amount of -data. There are several (mode dependent) operations defined which enable -such investigations. These operations are not only applicable to -constant values but also to locations, which can become quite useful -when debugging complex structures. During parsing the command line -(e.g. evaluating an expression) @value{GDBN} treats location names as -the values behind these locations. - -This section describes how values have to be specified and which -operations are legal to be used with such values. - -@table @code -@item Literal Values -Literal values are specified in the same manner as in @sc{gnu} Chill programs. -For detailed specification refer to the @sc{gnu} Chill implementation Manual -chapter 1.5. -@c FIXME: if the Chill Manual is a Texinfo documents, the above should -@c be converted to a @ref. - -@ignore -@itemize @bullet -@item -@emph{Integer Literals} are specified in the same manner as in Chill -programs (refer to the Chill Standard z200/88 chpt 5.2.4.2) -@item -@emph{Boolean Literals} are defined by @code{TRUE} and @code{FALSE}. -@item -@emph{Character Literals} are defined by @code{''}. (e.g. -@code{'M'}) -@item -@emph{Set Literals} are defined by a name which was specified in a set -mode. The value delivered by a Set Literal is the set value. This is -comparable to an enumeration in C/C@t{++} language. -@item -@emph{Emptiness Literal} is predefined by @code{NULL}. The value of the -emptiness literal delivers either the empty reference value, the empty -procedure value or the empty instance value. - -@item -@emph{Character String Literals} are defined by a sequence of characters -enclosed in single- or double quotes. If a single- or double quote has -to be part of the string literal it has to be stuffed (specified twice). -@item -@emph{Bitstring Literals} are specified in the same manner as in Chill -programs (refer z200/88 chpt 5.2.4.8). -@item -@emph{Floating point literals} are specified in the same manner as in -(gnu-)Chill programs (refer @sc{gnu} Chill implementation Manual chapter 1.5). -@end itemize -@end ignore - -@item Tuple Values -A tuple is specified by @code{[]}, where @code{} can be omitted if the mode of the tuple is unambiguous. This -unambiguity is derived from the context of a evaluated expression. -@code{} can be one of the following: - -@itemize @bullet -@item @emph{Powerset Tuple} -@item @emph{Array Tuple} -@item @emph{Structure Tuple} -Powerset tuples, array tuples and structure tuples are specified in the -same manner as in Chill programs refer to z200/88 chpt 5.2.5. -@end itemize - -@item String Element Value -A string element value is specified by -@smallexample -@code{()} -@end smallexample -where @code{} is a integer expression. It delivers a character -value which is equivalent to the character indexed by @code{} in -the string. - -@item String Slice Value -A string slice value is specified by @code{()}, where @code{} can be either a range of integer -expressions or specified by @code{ up }. -@code{} denotes the number of elements which the slice contains. -The delivered value is a string value, which is part of the specified -string. - -@item Array Element Values -An array element value is specified by @code{()} and -delivers a array element value of the mode of the specified array. - -@item Array Slice Values -An array slice is specified by @code{()}, where -@code{} can be either a range specified by expressions or by -@code{ up }. @code{} denotes the number of -arrayelements the slice contains. The delivered value is an array value -which is part of the specified array. - -@item Structure Field Values -A structure field value is derived by @code{.}, where @code{} indicates the name of a field specified -in the mode definition of the structure. The mode of the delivered value -corresponds to this mode definition in the structure definition. - -@item Procedure Call Value -The procedure call value is derived from the return value of the -procedure@footnote{If a procedure call is used for instance in an -expression, then this procedure is called with all its side -effects. This can lead to confusing results if used carelessly.}. - -Values of duration mode locations are represented by @code{ULONG} literals. - -Values of time mode locations appear as -@smallexample -@code{TIME(:)} -@end smallexample - - -@ignore -This is not implemented yet: -@item Built-in Value -@noindent -The following built in functions are provided: - -@table @code -@item @code{ADDR()} -@item @code{NUM()} -@item @code{PRED()} -@item @code{SUCC()} -@item @code{ABS()} -@item @code{CARD()} -@item @code{MAX()} -@item @code{MIN()} -@item @code{SIZE()} -@item @code{UPPER()} -@item @code{LOWER()} -@item @code{LENGTH()} -@item @code{SIN()} -@item @code{COS()} -@item @code{TAN()} -@item @code{ARCSIN()} -@item @code{ARCCOS()} -@item @code{ARCTAN()} -@item @code{EXP()} -@item @code{LN()} -@item @code{LOG()} -@item @code{SQRT()} -@end table - -For a detailed description refer to the GNU Chill implementation manual -chapter 1.6. -@end ignore - -@item Zero-adic Operator Value -The zero-adic operator value is derived from the instance value for the -current active process. - -@item Expression Values -The value delivered by an expression is the result of the evaluation of -the specified expression. If there are error conditions (mode -incompatibility, etc.) the evaluation of expressions is aborted with a -corresponding error message. Expressions may be parenthesised which -causes the evaluation of this expression before any other expression -which uses the result of the parenthesised expression. The following -operators are supported by @value{GDBN}: - -@table @code -@item @code{OR, ORIF, XOR} -@itemx @code{AND, ANDIF} -@itemx @code{NOT} -Logical operators defined over operands of boolean mode. - -@item @code{=, /=} -Equality and inequality operators defined over all modes. - -@item @code{>, >=} -@itemx @code{<, <=} -Relational operators defined over predefined modes. - -@item @code{+, -} -@itemx @code{*, /, MOD, REM} -Arithmetic operators defined over predefined modes. - -@item @code{-} -Change sign operator. - -@item @code{//} -String concatenation operator. - -@item @code{()} -String repetition operator. - -@item @code{->} -Referenced location operator which can be used either to take the -address of a location (@code{->loc}), or to dereference a reference -location (@code{loc->}). - -@item @code{OR, XOR} -@itemx @code{AND} -@itemx @code{NOT} -Powerset and bitstring operators. - -@item @code{>, >=} -@itemx @code{<, <=} -Powerset inclusion operators. - -@item @code{IN} -Membership operator. -@end table -@end table - -@node Chill type and range checks -@subsubsection Chill type and range checks - -@value{GDBN} considers two Chill variables mode equivalent if the sizes -of the two modes are equal. This rule applies recursively to more -complex datatypes which means that complex modes are treated -equivalent if all element modes (which also can be complex modes like -structures, arrays, etc.) have the same size. - -Range checking is done on all mathematical operations, assignment, array -index bounds and all built in procedures. - -Strong type checks are forced using the @value{GDBN} command @code{set -check strong}. This enforces strong type and range checks on all -operations where Chill constructs are used (expressions, built in -functions, etc.) in respect to the semantics as defined in the z.200 -language specification. - -All checks can be disabled by the @value{GDBN} command @code{set check -off}. - -@ignore -@c Deviations from the Chill Standard Z200/88 -see last paragraph ? -@end ignore - -@node Chill defaults -@subsubsection Chill defaults - -If type and range checking are set automatically by @value{GDBN}, they -both default to @code{on} whenever the working language changes to -Chill. This happens regardless of whether you or @value{GDBN} -selected the working language. - -If you allow @value{GDBN} to set the language automatically, then entering -code compiled from a file whose name ends with @file{.ch} sets the -working language to Chill. @xref{Automatically, ,Having @value{GDBN} set -the language automatically}, for further details. +@c OBSOLETE @node Chill +@c OBSOLETE @subsection Chill +@c OBSOLETE +@c OBSOLETE The extensions made to @value{GDBN} to support Chill only support output +@c OBSOLETE from the @sc{gnu} Chill compiler. Other Chill compilers are not currently +@c OBSOLETE supported, and attempting to debug executables produced by them is most +@c OBSOLETE likely to give an error as @value{GDBN} reads in the executable's symbol +@c OBSOLETE table. +@c OBSOLETE +@c OBSOLETE @c This used to say "... following Chill related topics ...", but since +@c OBSOLETE @c menus are not shown in the printed manual, it would look awkward. +@c OBSOLETE This section covers the Chill related topics and the features +@c OBSOLETE of @value{GDBN} which support these topics. +@c OBSOLETE +@c OBSOLETE @menu +@c OBSOLETE * How modes are displayed:: How modes are displayed +@c OBSOLETE * Locations:: Locations and their accesses +@c OBSOLETE * Values and their Operations:: Values and their Operations +@c OBSOLETE * Chill type and range checks:: +@c OBSOLETE * Chill defaults:: +@c OBSOLETE @end menu +@c OBSOLETE +@c OBSOLETE @node How modes are displayed +@c OBSOLETE @subsubsection How modes are displayed +@c OBSOLETE +@c OBSOLETE The Chill Datatype- (Mode) support of @value{GDBN} is directly related +@c OBSOLETE with the functionality of the @sc{gnu} Chill compiler, and therefore deviates +@c OBSOLETE slightly from the standard specification of the Chill language. The +@c OBSOLETE provided modes are: +@c OBSOLETE +@c OBSOLETE @c FIXME: this @table's contents effectively disable @code by using @r +@c OBSOLETE @c on every @item. So why does it need @code? +@c OBSOLETE @table @code +@c OBSOLETE @item @r{@emph{Discrete modes:}} +@c OBSOLETE @itemize @bullet +@c OBSOLETE @item +@c OBSOLETE @emph{Integer Modes} which are predefined by @code{BYTE, UBYTE, INT, +@c OBSOLETE UINT, LONG, ULONG}, +@c OBSOLETE @item +@c OBSOLETE @emph{Boolean Mode} which is predefined by @code{BOOL}, +@c OBSOLETE @item +@c OBSOLETE @emph{Character Mode} which is predefined by @code{CHAR}, +@c OBSOLETE @item +@c OBSOLETE @emph{Set Mode} which is displayed by the keyword @code{SET}. +@c OBSOLETE @smallexample +@c OBSOLETE (@value{GDBP}) ptype x +@c OBSOLETE type = SET (karli = 10, susi = 20, fritzi = 100) +@c OBSOLETE @end smallexample +@c OBSOLETE If the type is an unnumbered set the set element values are omitted. +@c OBSOLETE @item +@c OBSOLETE @emph{Range Mode} which is displayed by +@c OBSOLETE @smallexample +@c OBSOLETE @code{type = ( : )} +@c OBSOLETE @end smallexample +@c OBSOLETE where @code{, } can be of any discrete literal +@c OBSOLETE expression (e.g. set element names). +@c OBSOLETE @end itemize +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Powerset Mode:}} +@c OBSOLETE A Powerset Mode is displayed by the keyword @code{POWERSET} followed by +@c OBSOLETE the member mode of the powerset. The member mode can be any discrete mode. +@c OBSOLETE @smallexample +@c OBSOLETE (@value{GDBP}) ptype x +@c OBSOLETE type = POWERSET SET (egon, hugo, otto) +@c OBSOLETE @end smallexample +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Reference Modes:}} +@c OBSOLETE @itemize @bullet +@c OBSOLETE @item +@c OBSOLETE @emph{Bound Reference Mode} which is displayed by the keyword @code{REF} +@c OBSOLETE followed by the mode name to which the reference is bound. +@c OBSOLETE @item +@c OBSOLETE @emph{Free Reference Mode} which is displayed by the keyword @code{PTR}. +@c OBSOLETE @end itemize +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Procedure mode}} +@c OBSOLETE The procedure mode is displayed by @code{type = PROC() +@c OBSOLETE EXCEPTIONS ()}. The @code{} is a list of the parameter modes. @code{} indicates +@c OBSOLETE the mode of the result of the procedure if any. The exceptionlist lists +@c OBSOLETE all possible exceptions which can be raised by the procedure. +@c OBSOLETE +@c OBSOLETE @ignore +@c OBSOLETE @item @r{@emph{Instance mode}} +@c OBSOLETE The instance mode is represented by a structure, which has a static +@c OBSOLETE type, and is therefore not really of interest. +@c OBSOLETE @end ignore +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Synchronization Modes:}} +@c OBSOLETE @itemize @bullet +@c OBSOLETE @item +@c OBSOLETE @emph{Event Mode} which is displayed by +@c OBSOLETE @smallexample +@c OBSOLETE @code{EVENT ()} +@c OBSOLETE @end smallexample +@c OBSOLETE where @code{()} is optional. +@c OBSOLETE @item +@c OBSOLETE @emph{Buffer Mode} which is displayed by +@c OBSOLETE @smallexample +@c OBSOLETE @code{BUFFER ()} +@c OBSOLETE @end smallexample +@c OBSOLETE where @code{()} is optional. +@c OBSOLETE @end itemize +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Timing Modes:}} +@c OBSOLETE @itemize @bullet +@c OBSOLETE @item +@c OBSOLETE @emph{Duration Mode} which is predefined by @code{DURATION} +@c OBSOLETE @item +@c OBSOLETE @emph{Absolute Time Mode} which is predefined by @code{TIME} +@c OBSOLETE @end itemize +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Real Modes:}} +@c OBSOLETE Real Modes are predefined with @code{REAL} and @code{LONG_REAL}. +@c OBSOLETE +@c OBSOLETE @item @r{@emph{String Modes:}} +@c OBSOLETE @itemize @bullet +@c OBSOLETE @item +@c OBSOLETE @emph{Character String Mode} which is displayed by +@c OBSOLETE @smallexample +@c OBSOLETE @code{CHARS()} +@c OBSOLETE @end smallexample +@c OBSOLETE followed by the keyword @code{VARYING} if the String Mode is a varying +@c OBSOLETE mode +@c OBSOLETE @item +@c OBSOLETE @emph{Bit String Mode} which is displayed by +@c OBSOLETE @smallexample +@c OBSOLETE @code{BOOLS()} +@c OBSOLETE @end smallexample +@c OBSOLETE @end itemize +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Array Mode:}} +@c OBSOLETE The Array Mode is displayed by the keyword @code{ARRAY()} +@c OBSOLETE followed by the element mode (which may in turn be an array mode). +@c OBSOLETE @smallexample +@c OBSOLETE (@value{GDBP}) ptype x +@c OBSOLETE type = ARRAY (1:42) +@c OBSOLETE ARRAY (1:20) +@c OBSOLETE SET (karli = 10, susi = 20, fritzi = 100) +@c OBSOLETE @end smallexample +@c OBSOLETE +@c OBSOLETE @item @r{@emph{Structure Mode}} +@c OBSOLETE The Structure mode is displayed by the keyword @code{STRUCT()}. The @code{} consists of names and modes of fields +@c OBSOLETE of the structure. Variant structures have the keyword @code{CASE +@c OBSOLETE OF ESAC} in their field list. Since the current version +@c OBSOLETE of the GNU Chill compiler doesn't implement tag processing (no runtime +@c OBSOLETE checks of variant fields, and therefore no debugging info), the output +@c OBSOLETE always displays all variant fields. +@c OBSOLETE @smallexample +@c OBSOLETE (@value{GDBP}) ptype str +@c OBSOLETE type = STRUCT ( +@c OBSOLETE as x, +@c OBSOLETE bs x, +@c OBSOLETE CASE bs OF +@c OBSOLETE (karli): +@c OBSOLETE cs a +@c OBSOLETE (ott): +@c OBSOLETE ds x +@c OBSOLETE ESAC +@c OBSOLETE ) +@c OBSOLETE @end smallexample +@c OBSOLETE @end table +@c OBSOLETE +@c OBSOLETE @node Locations +@c OBSOLETE @subsubsection Locations and their accesses +@c OBSOLETE +@c OBSOLETE A location in Chill is an object which can contain values. +@c OBSOLETE +@c OBSOLETE A value of a location is generally accessed by the (declared) name of +@c OBSOLETE the location. The output conforms to the specification of values in +@c OBSOLETE Chill programs. How values are specified +@c OBSOLETE is the topic of the next section, @ref{Values and their Operations}. +@c OBSOLETE +@c OBSOLETE The pseudo-location @code{RESULT} (or @code{result}) can be used to +@c OBSOLETE display or change the result of a currently-active procedure: +@c OBSOLETE +@c OBSOLETE @smallexample +@c OBSOLETE set result := EXPR +@c OBSOLETE @end smallexample +@c OBSOLETE +@c OBSOLETE @noindent +@c OBSOLETE This does the same as the Chill action @code{RESULT EXPR} (which +@c OBSOLETE is not available in @value{GDBN}). +@c OBSOLETE +@c OBSOLETE Values of reference mode locations are printed by @code{PTR()} in case of a free reference mode, and by @code{(REF ) ()} in case of a bound reference. @code{} +@c OBSOLETE represents the address where the reference points to. To access the +@c OBSOLETE value of the location referenced by the pointer, use the dereference +@c OBSOLETE operator @samp{->}. +@c OBSOLETE +@c OBSOLETE Values of procedure mode locations are displayed by +@c OBSOLETE @smallexample +@c OBSOLETE @code{@{ PROC +@c OBSOLETE ( ) @}
} +@c OBSOLETE @end smallexample +@c OBSOLETE @code{} is a list of modes according to the parameter +@c OBSOLETE specification of the procedure and @code{
} shows the address of +@c OBSOLETE the entry point. +@c OBSOLETE +@c OBSOLETE @ignore +@c OBSOLETE Locations of instance modes are displayed just like a structure with two +@c OBSOLETE fields specifying the @emph{process type} and the @emph{copy number} of +@c OBSOLETE the investigated instance location@footnote{This comes from the current +@c OBSOLETE implementation of instances. They are implemented as a structure (no +@c OBSOLETE na). The output should be something like @code{[; +@c OBSOLETE ]}.}. The field names are @code{__proc_type} and +@c OBSOLETE @code{__proc_copy}. +@c OBSOLETE +@c OBSOLETE Locations of synchronization modes are displayed like a structure with +@c OBSOLETE the field name @code{__event_data} in case of a event mode location, and +@c OBSOLETE like a structure with the field @code{__buffer_data} in case of a buffer +@c OBSOLETE mode location (refer to previous paragraph). +@c OBSOLETE +@c OBSOLETE Structure Mode locations are printed by @code{[.: , +@c OBSOLETE ...]}. The @code{} corresponds to the structure mode +@c OBSOLETE definition and the layout of @code{} varies depending of the mode +@c OBSOLETE of the field. If the investigated structure mode location is of variant +@c OBSOLETE structure mode, the variant parts of the structure are enclosed in curled +@c OBSOLETE braces (@samp{@{@}}). Fields enclosed by @samp{@{,@}} are residing +@c OBSOLETE on the same memory location and represent the current values of the +@c OBSOLETE memory location in their specific modes. Since no tag processing is done +@c OBSOLETE all variants are displayed. A variant field is printed by +@c OBSOLETE @code{() = .: }. (who implements the +@c OBSOLETE stuff ???) +@c OBSOLETE @smallexample +@c OBSOLETE (@value{GDBP}) print str1 $4 = [.as: 0, .bs: karli, .: { (karli) = +@c OBSOLETE [.cs: []], (susi) = [.ds: susi]}] +@c OBSOLETE @end smallexample +@c OBSOLETE @end ignore +@c OBSOLETE +@c OBSOLETE Substructures of string mode-, array mode- or structure mode-values +@c OBSOLETE (e.g. array slices, fields of structure locations) are accessed using +@c OBSOLETE certain operations which are described in the next section, @ref{Values +@c OBSOLETE and their Operations}. +@c OBSOLETE +@c OBSOLETE A location value may be interpreted as having a different mode using the +@c OBSOLETE location conversion. This mode conversion is written as @code{()}. The user has to consider that the sizes of the modes +@c OBSOLETE have to be equal otherwise an error occurs. Furthermore, no range +@c OBSOLETE checking of the location against the destination mode is performed, and +@c OBSOLETE therefore the result can be quite confusing. +@c OBSOLETE +@c OBSOLETE @smallexample +@c OBSOLETE (@value{GDBP}) print int (s(3 up 4)) XXX TO be filled in !! XXX +@c OBSOLETE @end smallexample +@c OBSOLETE +@c OBSOLETE @node Values and their Operations +@c OBSOLETE @subsubsection Values and their Operations +@c OBSOLETE +@c OBSOLETE Values are used to alter locations, to investigate complex structures in +@c OBSOLETE more detail or to filter relevant information out of a large amount of +@c OBSOLETE data. There are several (mode dependent) operations defined which enable +@c OBSOLETE such investigations. These operations are not only applicable to +@c OBSOLETE constant values but also to locations, which can become quite useful +@c OBSOLETE when debugging complex structures. During parsing the command line +@c OBSOLETE (e.g. evaluating an expression) @value{GDBN} treats location names as +@c OBSOLETE the values behind these locations. +@c OBSOLETE +@c OBSOLETE This section describes how values have to be specified and which +@c OBSOLETE operations are legal to be used with such values. +@c OBSOLETE +@c OBSOLETE @table @code +@c OBSOLETE @item Literal Values +@c OBSOLETE Literal values are specified in the same manner as in @sc{gnu} Chill programs. +@c OBSOLETE For detailed specification refer to the @sc{gnu} Chill implementation Manual +@c OBSOLETE chapter 1.5. +@c OBSOLETE @c FIXME: if the Chill Manual is a Texinfo documents, the above should +@c OBSOLETE @c be converted to a @ref. +@c OBSOLETE +@c OBSOLETE @ignore +@c OBSOLETE @itemize @bullet +@c OBSOLETE @item +@c OBSOLETE @emph{Integer Literals} are specified in the same manner as in Chill +@c OBSOLETE programs (refer to the Chill Standard z200/88 chpt 5.2.4.2) +@c OBSOLETE @item +@c OBSOLETE @emph{Boolean Literals} are defined by @code{TRUE} and @code{FALSE}. +@c OBSOLETE @item +@c OBSOLETE @emph{Character Literals} are defined by @code{''}. (e.g. +@c OBSOLETE @code{'M'}) +@c OBSOLETE @item +@c OBSOLETE @emph{Set Literals} are defined by a name which was specified in a set +@c OBSOLETE mode. The value delivered by a Set Literal is the set value. This is +@c OBSOLETE comparable to an enumeration in C/C@t{++} language. +@c OBSOLETE @item +@c OBSOLETE @emph{Emptiness Literal} is predefined by @code{NULL}. The value of the +@c OBSOLETE emptiness literal delivers either the empty reference value, the empty +@c OBSOLETE procedure value or the empty instance value. +@c OBSOLETE +@c OBSOLETE @item +@c OBSOLETE @emph{Character String Literals} are defined by a sequence of characters +@c OBSOLETE enclosed in single- or double quotes. If a single- or double quote has +@c OBSOLETE to be part of the string literal it has to be stuffed (specified twice). +@c OBSOLETE @item +@c OBSOLETE @emph{Bitstring Literals} are specified in the same manner as in Chill +@c OBSOLETE programs (refer z200/88 chpt 5.2.4.8). +@c OBSOLETE @item +@c OBSOLETE @emph{Floating point literals} are specified in the same manner as in +@c OBSOLETE (gnu-)Chill programs (refer @sc{gnu} Chill implementation Manual chapter 1.5). +@c OBSOLETE @end itemize +@c OBSOLETE @end ignore +@c OBSOLETE +@c OBSOLETE @item Tuple Values +@c OBSOLETE A tuple is specified by @code{[]}, where @code{} can be omitted if the mode of the tuple is unambiguous. This +@c OBSOLETE unambiguity is derived from the context of a evaluated expression. +@c OBSOLETE @code{} can be one of the following: +@c OBSOLETE +@c OBSOLETE @itemize @bullet +@c OBSOLETE @item @emph{Powerset Tuple} +@c OBSOLETE @item @emph{Array Tuple} +@c OBSOLETE @item @emph{Structure Tuple} +@c OBSOLETE Powerset tuples, array tuples and structure tuples are specified in the +@c OBSOLETE same manner as in Chill programs refer to z200/88 chpt 5.2.5. +@c OBSOLETE @end itemize +@c OBSOLETE +@c OBSOLETE @item String Element Value +@c OBSOLETE A string element value is specified by +@c OBSOLETE @smallexample +@c OBSOLETE @code{()} +@c OBSOLETE @end smallexample +@c OBSOLETE where @code{} is a integer expression. It delivers a character +@c OBSOLETE value which is equivalent to the character indexed by @code{} in +@c OBSOLETE the string. +@c OBSOLETE +@c OBSOLETE @item String Slice Value +@c OBSOLETE A string slice value is specified by @code{()}, where @code{} can be either a range of integer +@c OBSOLETE expressions or specified by @code{ up }. +@c OBSOLETE @code{} denotes the number of elements which the slice contains. +@c OBSOLETE The delivered value is a string value, which is part of the specified +@c OBSOLETE string. +@c OBSOLETE +@c OBSOLETE @item Array Element Values +@c OBSOLETE An array element value is specified by @code{()} and +@c OBSOLETE delivers a array element value of the mode of the specified array. +@c OBSOLETE +@c OBSOLETE @item Array Slice Values +@c OBSOLETE An array slice is specified by @code{()}, where +@c OBSOLETE @code{} can be either a range specified by expressions or by +@c OBSOLETE @code{ up }. @code{} denotes the number of +@c OBSOLETE arrayelements the slice contains. The delivered value is an array value +@c OBSOLETE which is part of the specified array. +@c OBSOLETE +@c OBSOLETE @item Structure Field Values +@c OBSOLETE A structure field value is derived by @code{.}, where @code{} indicates the name of a field specified +@c OBSOLETE in the mode definition of the structure. The mode of the delivered value +@c OBSOLETE corresponds to this mode definition in the structure definition. +@c OBSOLETE +@c OBSOLETE @item Procedure Call Value +@c OBSOLETE The procedure call value is derived from the return value of the +@c OBSOLETE procedure@footnote{If a procedure call is used for instance in an +@c OBSOLETE expression, then this procedure is called with all its side +@c OBSOLETE effects. This can lead to confusing results if used carelessly.}. +@c OBSOLETE +@c OBSOLETE Values of duration mode locations are represented by @code{ULONG} literals. +@c OBSOLETE +@c OBSOLETE Values of time mode locations appear as +@c OBSOLETE @smallexample +@c OBSOLETE @code{TIME(:)} +@c OBSOLETE @end smallexample +@c OBSOLETE +@c OBSOLETE +@c OBSOLETE @ignore +@c OBSOLETE This is not implemented yet: +@c OBSOLETE @item Built-in Value +@c OBSOLETE @noindent +@c OBSOLETE The following built in functions are provided: +@c OBSOLETE +@c OBSOLETE @table @code +@c OBSOLETE @item @code{ADDR()} +@c OBSOLETE @item @code{NUM()} +@c OBSOLETE @item @code{PRED()} +@c OBSOLETE @item @code{SUCC()} +@c OBSOLETE @item @code{ABS()} +@c OBSOLETE @item @code{CARD()} +@c OBSOLETE @item @code{MAX()} +@c OBSOLETE @item @code{MIN()} +@c OBSOLETE @item @code{SIZE()} +@c OBSOLETE @item @code{UPPER()} +@c OBSOLETE @item @code{LOWER()} +@c OBSOLETE @item @code{LENGTH()} +@c OBSOLETE @item @code{SIN()} +@c OBSOLETE @item @code{COS()} +@c OBSOLETE @item @code{TAN()} +@c OBSOLETE @item @code{ARCSIN()} +@c OBSOLETE @item @code{ARCCOS()} +@c OBSOLETE @item @code{ARCTAN()} +@c OBSOLETE @item @code{EXP()} +@c OBSOLETE @item @code{LN()} +@c OBSOLETE @item @code{LOG()} +@c OBSOLETE @item @code{SQRT()} +@c OBSOLETE @end table +@c OBSOLETE +@c OBSOLETE For a detailed description refer to the GNU Chill implementation manual +@c OBSOLETE chapter 1.6. +@c OBSOLETE @end ignore +@c OBSOLETE +@c OBSOLETE @item Zero-adic Operator Value +@c OBSOLETE The zero-adic operator value is derived from the instance value for the +@c OBSOLETE current active process. +@c OBSOLETE +@c OBSOLETE @item Expression Values +@c OBSOLETE The value delivered by an expression is the result of the evaluation of +@c OBSOLETE the specified expression. If there are error conditions (mode +@c OBSOLETE incompatibility, etc.) the evaluation of expressions is aborted with a +@c OBSOLETE corresponding error message. Expressions may be parenthesised which +@c OBSOLETE causes the evaluation of this expression before any other expression +@c OBSOLETE which uses the result of the parenthesised expression. The following +@c OBSOLETE operators are supported by @value{GDBN}: +@c OBSOLETE +@c OBSOLETE @table @code +@c OBSOLETE @item @code{OR, ORIF, XOR} +@c OBSOLETE @itemx @code{AND, ANDIF} +@c OBSOLETE @itemx @code{NOT} +@c OBSOLETE Logical operators defined over operands of boolean mode. +@c OBSOLETE +@c OBSOLETE @item @code{=, /=} +@c OBSOLETE Equality and inequality operators defined over all modes. +@c OBSOLETE +@c OBSOLETE @item @code{>, >=} +@c OBSOLETE @itemx @code{<, <=} +@c OBSOLETE Relational operators defined over predefined modes. +@c OBSOLETE +@c OBSOLETE @item @code{+, -} +@c OBSOLETE @itemx @code{*, /, MOD, REM} +@c OBSOLETE Arithmetic operators defined over predefined modes. +@c OBSOLETE +@c OBSOLETE @item @code{-} +@c OBSOLETE Change sign operator. +@c OBSOLETE +@c OBSOLETE @item @code{//} +@c OBSOLETE String concatenation operator. +@c OBSOLETE +@c OBSOLETE @item @code{()} +@c OBSOLETE String repetition operator. +@c OBSOLETE +@c OBSOLETE @item @code{->} +@c OBSOLETE Referenced location operator which can be used either to take the +@c OBSOLETE address of a location (@code{->loc}), or to dereference a reference +@c OBSOLETE location (@code{loc->}). +@c OBSOLETE +@c OBSOLETE @item @code{OR, XOR} +@c OBSOLETE @itemx @code{AND} +@c OBSOLETE @itemx @code{NOT} +@c OBSOLETE Powerset and bitstring operators. +@c OBSOLETE +@c OBSOLETE @item @code{>, >=} +@c OBSOLETE @itemx @code{<, <=} +@c OBSOLETE Powerset inclusion operators. +@c OBSOLETE +@c OBSOLETE @item @code{IN} +@c OBSOLETE Membership operator. +@c OBSOLETE @end table +@c OBSOLETE @end table +@c OBSOLETE +@c OBSOLETE @node Chill type and range checks +@c OBSOLETE @subsubsection Chill type and range checks +@c OBSOLETE +@c OBSOLETE @value{GDBN} considers two Chill variables mode equivalent if the sizes +@c OBSOLETE of the two modes are equal. This rule applies recursively to more +@c OBSOLETE complex datatypes which means that complex modes are treated +@c OBSOLETE equivalent if all element modes (which also can be complex modes like +@c OBSOLETE structures, arrays, etc.) have the same size. +@c OBSOLETE +@c OBSOLETE Range checking is done on all mathematical operations, assignment, array +@c OBSOLETE index bounds and all built in procedures. +@c OBSOLETE +@c OBSOLETE Strong type checks are forced using the @value{GDBN} command @code{set +@c OBSOLETE check strong}. This enforces strong type and range checks on all +@c OBSOLETE operations where Chill constructs are used (expressions, built in +@c OBSOLETE functions, etc.) in respect to the semantics as defined in the z.200 +@c OBSOLETE language specification. +@c OBSOLETE +@c OBSOLETE All checks can be disabled by the @value{GDBN} command @code{set check +@c OBSOLETE off}. +@c OBSOLETE +@c OBSOLETE @ignore +@c OBSOLETE @c Deviations from the Chill Standard Z200/88 +@c OBSOLETE see last paragraph ? +@c OBSOLETE @end ignore +@c OBSOLETE +@c OBSOLETE @node Chill defaults +@c OBSOLETE @subsubsection Chill defaults +@c OBSOLETE +@c OBSOLETE If type and range checking are set automatically by @value{GDBN}, they +@c OBSOLETE both default to @code{on} whenever the working language changes to +@c OBSOLETE Chill. This happens regardless of whether you or @value{GDBN} +@c OBSOLETE selected the working language. +@c OBSOLETE +@c OBSOLETE If you allow @value{GDBN} to set the language automatically, then entering +@c OBSOLETE code compiled from a file whose name ends with @file{.ch} sets the +@c OBSOLETE working language to Chill. @xref{Automatically, ,Having @value{GDBN} set +@c OBSOLETE the language automatically}, for further details. @node Symbols @chapter Examining the Symbol Table Index: doc/gdbint.texinfo =================================================================== RCS file: /cvs/src/src/gdb/doc/gdbint.texinfo,v retrieving revision 1.95 diff -u -r1.95 gdbint.texinfo --- doc/gdbint.texinfo 24 Jul 2002 23:51:36 -0000 1.95 +++ doc/gdbint.texinfo 25 Jul 2002 01:25:41 -0000 @@ -1834,7 +1834,7 @@ DWARF 1 is a debugging format that was originally designed to be used with ELF in SVR4 systems. -@c CHILL_PRODUCER +@c OBSOLETE CHILL_PRODUCER @c GCC_PRODUCER @c GPLUS_PRODUCER @c LCC_PRODUCER Index: doc/stabs.texinfo =================================================================== RCS file: /cvs/src/src/gdb/doc/stabs.texinfo,v retrieving revision 1.6 diff -u -r1.6 stabs.texinfo --- doc/stabs.texinfo 9 May 2002 18:12:00 -0000 1.6 +++ doc/stabs.texinfo 25 Jul 2002 01:25:42 -0000 @@ -1754,7 +1754,8 @@ enumeration or a subrange, and the type is a bitmask whose length is specified by the number of elements in @var{type-information}. -In CHILL, if it is a bitstring instead of a set, also use the @samp{S} +In CHILL, @c OBSOLETE +if it is a bitstring instead of a set, also use the @samp{S} type attribute (@pxref{String Field}). @item * @var{type-information} @@ -1955,7 +1956,8 @@ Pascal Stringptr. What is this? This is an AIX feature. @end table -Languages, such as CHILL which have a string type which is basically +Languages, such as CHILL @c OBSOLETE +which have a string type which is basically just an array of characters use the @samp{S} type attribute (@pxref{String Field}). Index: gdbserver/Makefile.in =================================================================== RCS file: /cvs/src/src/gdb/gdbserver/Makefile.in,v retrieving revision 1.19 diff -u -r1.19 Makefile.in --- gdbserver/Makefile.in 11 Jun 2002 17:32:39 -0000 1.19 +++ gdbserver/Makefile.in 25 Jul 2002 01:25:42 -0000 @@ -230,7 +230,7 @@ ## This is ugly, but I don't want GNU make to put these variables in ## the environment. Older makes will see this as a set of targets ## with no dependencies and no actions. -unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : +# OBSOLETE unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : gdb_proc_service_h = $(srcdir)/../gdb_proc_service.h $(srcdir)/../gregset.h regdat_sh = $(srcdir)/../regformats/regdat.sh Index: testsuite/Makefile.in =================================================================== RCS file: /cvs/src/src/gdb/testsuite/Makefile.in,v retrieving revision 1.3 diff -u -r1.3 Makefile.in --- testsuite/Makefile.in 6 Mar 2001 08:21:47 -0000 1.3 +++ testsuite/Makefile.in 25 Jul 2002 01:25:46 -0000 @@ -67,10 +67,6 @@ 'CC=$$(CC_FOR_TARGET)' \ "CC_FOR_TARGET=$(CC_FOR_TARGET)" \ "CFLAGS=$(TESTSUITE_CFLAGS)" \ - "CHILLFLAGS=$(CHILLFLAGS)" \ - 'CHILL=$$(CHILL_FOR_TARGET)' \ - "CHILL_FOR_TARGET=$(CHILL_FOR_TARGET)" \ - "CHILL_LIB=$(CHILL_LIB)" \ 'CXX=$$(CXX_FOR_TARGET)' \ "CXX_FOR_TARGET=$(CXX_FOR_TARGET)" \ "CXXFLAGS=$(CXXFLAGS)" \ Index: testsuite/configure =================================================================== RCS file: /cvs/src/src/gdb/testsuite/configure,v retrieving revision 1.5 diff -u -r1.5 configure --- testsuite/configure 20 May 2002 01:07:14 -0000 1.5 +++ testsuite/configure 25 Jul 2002 01:25:47 -0000 @@ -32,7 +32,6 @@ program_transform_name=s,x,x, silent= site= -sitefile= srcdir= target=NONE verbose= @@ -147,7 +146,6 @@ --help print this message --no-create do not create output files --quiet, --silent do not print \`checking...' messages - --site-file=FILE use FILE as the site file --version print the version of autoconf that created configure Directory and file names: --prefix=PREFIX install architecture-independent files in PREFIX @@ -318,11 +316,6 @@ -site=* | --site=* | --sit=*) site="$ac_optarg" ;; - -site-file | --site-file | --site-fil | --site-fi | --site-f) - ac_prev=sitefile ;; - -site-file=* | --site-file=* | --site-fil=* | --site-fi=* | --site-f=*) - sitefile="$ac_optarg" ;; - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) @@ -488,16 +481,12 @@ srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` # Prefer explicitly selected file to automatically selected ones. -if test -z "$sitefile"; then - if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi +if test -z "$CONFIG_SITE"; then + if test "x$prefix" != xNONE; then + CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" + else + CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi -else - CONFIG_SITE="$sitefile" fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then @@ -586,7 +575,7 @@ fi echo $ac_n "checking host system type""... $ac_c" 1>&6 -echo "configure:590: checking host system type" >&5 +echo "configure:579: checking host system type" >&5 host_alias=$host case "$host_alias" in @@ -607,7 +596,7 @@ echo "$ac_t""$host" 1>&6 echo $ac_n "checking target system type""... $ac_c" 1>&6 -echo "configure:611: checking target system type" >&5 +echo "configure:600: checking target system type" >&5 target_alias=$target case "$target_alias" in @@ -625,7 +614,7 @@ echo "$ac_t""$target" 1>&6 echo $ac_n "checking build system type""... $ac_c" 1>&6 -echo "configure:629: checking build system type" >&5 +echo "configure:618: checking build system type" >&5 build_alias=$build case "$build_alias" in @@ -655,7 +644,6 @@ gdb.c++ \ gdb.java \ gdb.disasm \ - gdb.chill \ gdb.mi \ gdb.threads \ gdb.trace" @@ -750,12 +738,12 @@ # End stuff to support --enable-shared echo $ac_n "checking for Cygwin environment""... $ac_c" 1>&6 -echo "configure:754: checking for Cygwin environment" >&5 +echo "configure:742: checking for Cygwin environment" >&5 if eval "test \"`echo '$''{'ac_cv_cygwin'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:758: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_cygwin=yes else @@ -783,19 +771,19 @@ CYGWIN= test "$ac_cv_cygwin" = yes && CYGWIN=yes echo $ac_n "checking for mingw32 environment""... $ac_c" 1>&6 -echo "configure:787: checking for mingw32 environment" >&5 +echo "configure:775: checking for mingw32 environment" >&5 if eval "test \"`echo '$''{'ac_cv_mingw32'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:787: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_mingw32=yes else @@ -814,7 +802,7 @@ echo $ac_n "checking for executable suffix""... $ac_c" 1>&6 -echo "configure:818: checking for executable suffix" >&5 +echo "configure:806: checking for executable suffix" >&5 if eval "test \"`echo '$''{'ac_cv_exeext'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -824,10 +812,10 @@ rm -f conftest* echo 'int main () { return 0; }' > conftest.$ac_ext ac_cv_exeext= - if { (eval echo configure:828: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then + if { (eval echo configure:816: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then for file in conftest.*; do case $file in - *.c | *.o | *.obj | *.ilk | *.pdb) ;; + *.c | *.o | *.obj) ;; *) ac_cv_exeext=`echo $file | sed -e s/conftest//` ;; esac done Index: testsuite/configure.in =================================================================== RCS file: /cvs/src/src/gdb/testsuite/configure.in,v retrieving revision 1.5 diff -u -r1.5 configure.in --- testsuite/configure.in 20 May 2002 01:07:14 -0000 1.5 +++ testsuite/configure.in 25 Jul 2002 01:25:47 -0000 @@ -19,7 +19,6 @@ gdb.c++ \ gdb.java \ gdb.disasm \ - gdb.chill \ gdb.mi \ gdb.threads \ gdb.trace" Index: testsuite/gdb.fortran/exprs.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.fortran/exprs.exp,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 exprs.exp --- testsuite/gdb.fortran/exprs.exp 16 Apr 1999 01:34:34 -0000 1.1.1.1 +++ testsuite/gdb.fortran/exprs.exp 25 Jul 2002 01:25:47 -0000 @@ -17,7 +17,7 @@ # Please email any bugs, comments, and/or additions to this file to: # bug-gdb@prep.ai.mit.edu -# This file was adapted from Chill tests by Stan Shebs (shebs@cygnus.com). +# This file was adapted from (OBSOLETE) Chill tests by Stan Shebs (shebs@cygnus.com). if $tracelevel then { strace $tracelevel Index: testsuite/gdb.fortran/types.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.fortran/types.exp,v retrieving revision 1.2 diff -u -r1.2 types.exp --- testsuite/gdb.fortran/types.exp 6 Mar 2001 08:21:57 -0000 1.2 +++ testsuite/gdb.fortran/types.exp 25 Jul 2002 01:25:47 -0000 @@ -17,7 +17,7 @@ # Please email any bugs, comments, and/or additions to this file to: # bug-gdb@prep.ai.mit.edu -# This file was adapted from Chill tests by Stan Shebs (shebs@cygnus.com). +# This file was adapted from (OBSOLETE) Chill tests by Stan Shebs (shebs@cygnus.com). if $tracelevel then { strace $tracelevel Index: testsuite/lib/gdb.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v retrieving revision 1.20 diff -u -r1.20 gdb.exp --- testsuite/lib/gdb.exp 11 Jun 2002 20:37:05 -0000 1.20 +++ testsuite/lib/gdb.exp 25 Jul 2002 01:25:48 -0000 @@ -27,17 +27,17 @@ load_lib libgloss.exp global GDB -global CHILL_LIB -global CHILL_RT0 +# OBSOLETE global CHILL_LIB +# OBSOLETE global CHILL_RT0 -if ![info exists CHILL_LIB] { - set CHILL_LIB [findfile $base_dir/../../gcc/ch/runtime/libchill.a "$base_dir/../../gcc/ch/runtime/libchill.a" [transform -lchill]] -} -verbose "using CHILL_LIB = $CHILL_LIB" 2 -if ![info exists CHILL_RT0] { - set CHILL_RT0 [findfile $base_dir/../../gcc/ch/runtime/chillrt0.o "$base_dir/../../gcc/ch/runtime/chillrt0.o" ""] -} -verbose "using CHILL_RT0 = $CHILL_RT0" 2 +# OBSOLETE if ![info exists CHILL_LIB] { +# OBSOLETE set CHILL_LIB [findfile $base_dir/../../gcc/ch/runtime/libchill.a "$base_dir/../../gcc/ch/runtime/libchill.a" [transform -lchill]] +# OBSOLETE } +# OBSOLETE verbose "using CHILL_LIB = $CHILL_LIB" 2 +# OBSOLETE if ![info exists CHILL_RT0] { +# OBSOLETE set CHILL_RT0 [findfile $base_dir/../../gcc/ch/runtime/chillrt0.o "$base_dir/../../gcc/ch/runtime/chillrt0.o" ""] +# OBSOLETE } +# OBSOLETE verbose "using CHILL_RT0 = $CHILL_RT0" 2 if [info exists TOOL_EXECUTABLE] { set GDB $TOOL_EXECUTABLE; @@ -920,25 +920,25 @@ return 0 } -# * For crosses, the CHILL runtime doesn't build because it can't find -# setjmp.h, stdio.h, etc. -# * For AIX (as of 16 Mar 95), (a) there is no language code for -# CHILL in output_epilog in gcc/config/rs6000/rs6000.c, (b) collect2 -# does not get along with AIX's too-clever linker. -# * On Irix5, there is a bug whereby set of bool, etc., don't get -# TYPE_LOW_BOUND for the bool right because force_to_range_type doesn't -# work with stub types. -# Lots of things seem to fail on the PA, and since it's not a supported -# chill target at the moment, don't run the chill tests. - -proc skip_chill_tests {} { - if ![info exists do_chill_tests] { - return 1; - } - eval set skip_chill [expr ![isnative] || [istarget "*-*-aix*"] || [istarget "*-*-irix5*"] || [istarget "*-*-irix6*"] || [istarget "alpha-*-osf*"] || [istarget "hppa*-*-*"]] - verbose "Skip chill tests is $skip_chill" - return $skip_chill -} +# OBSOLETE # * For crosses, the CHILL runtime doesn't build because it +# OBSOLETE # can't find setjmp.h, stdio.h, etc. +# OBSOLETE # * For AIX (as of 16 Mar 95), (a) there is no language code for +# OBSOLETE # CHILL in output_epilog in gcc/config/rs6000/rs6000.c, (b) collect2 +# OBSOLETE # does not get along with AIX's too-clever linker. +# OBSOLETE # * On Irix5, there is a bug whereby set of bool, etc., don't get +# OBSOLETE # TYPE_LOW_BOUND for the bool right because force_to_range_type doesn't +# OBSOLETE # work with stub types. +# OBSOLETE # Lots of things seem to fail on the PA, and since it's not a supported +# OBSOLETE # chill target at the moment, don't run the chill tests. + +# OBSOLETE proc skip_chill_tests {} { +# OBSOLETE if ![info exists do_chill_tests] { +# OBSOLETE return 1; +# OBSOLETE } +# OBSOLETE eval set skip_chill [expr ![isnative] || [istarget "*-*-aix*"] || [istarget "*-*-irix5*"] || [istarget "*-*-irix6*"] || [istarget "alpha-*-osf*"] || [istarget "hppa*-*-*"]] +# OBSOLETE verbose "Skip chill tests is $skip_chill" +# OBSOLETE return $skip_chill +# OBSOLETE } # Skip all the tests in the file if you are not on an hppa running # hpux target.