Remove chill sanitizations, which are no longer necessary.

This commit is contained in:
Fred Fish
1993-04-16 23:22:41 +00:00
parent b1086bf532
commit 5aefc1ca23
14 changed files with 38 additions and 211 deletions

View File

@ -185,11 +185,9 @@ FLAGS_TO_PASS = \
"AR_FLAGS=$(AR_FLAGS)" \ "AR_FLAGS=$(AR_FLAGS)" \
"CC=$(CC)" \ "CC=$(CC)" \
"CFLAGS=$(CFLAGS)" \ "CFLAGS=$(CFLAGS)" \
$(start-sanitize-chill)\
"CHILLFLAGS=$(CHILLFLAGS)" \ "CHILLFLAGS=$(CHILLFLAGS)" \
"CHILL=$(CHILL)" \ "CHILL=$(CHILL)" \
"CHILL_LIB=$(CHILL_LIB)" \ "CHILL_LIB=$(CHILL_LIB)" \
$(end-sanitize-chill)\
"CXX=$(CXX)" \ "CXX=$(CXX)" \
"CXXFLAGS=$(CXXFLAGS)" \ "CXXFLAGS=$(CXXFLAGS)" \
"RANLIB=$(RANLIB)" \ "RANLIB=$(RANLIB)" \
@ -227,7 +225,6 @@ CXX_FOR_TARGET = ` \
fi; \ fi; \
fi` fi`
$(start-sanitize-chill)
CHILLFLAGS = $(CFLAGS) CHILLFLAGS = $(CFLAGS)
CHILL = gcc CHILL = gcc
CHILL_FOR_TARGET = ` \ CHILL_FOR_TARGET = ` \
@ -242,8 +239,6 @@ CHILL_FOR_TARGET = ` \
fi` fi`
CHILL_LIB = -lchill CHILL_LIB = -lchill
$(end-sanitize-chill)
# The use of $$(x_FOR_TARGET) reduces the command line length by not # The use of $$(x_FOR_TARGET) reduces the command line length by not
# duplicating the lengthy definition. # duplicating the lengthy definition.
TARGET_FLAGS_TO_PASS = \ TARGET_FLAGS_TO_PASS = \
@ -253,12 +248,10 @@ TARGET_FLAGS_TO_PASS = \
'CC=$$(CC_FOR_TARGET)' \ 'CC=$$(CC_FOR_TARGET)' \
"CC_FOR_TARGET=$(CC_FOR_TARGET)" \ "CC_FOR_TARGET=$(CC_FOR_TARGET)" \
"CFLAGS=$(CFLAGS)" \ "CFLAGS=$(CFLAGS)" \
$(start-sanitize-chill)\
"CHILLFLAGS=$(CHILLFLAGS)" \ "CHILLFLAGS=$(CHILLFLAGS)" \
'CHILL=$$(CHILL_FOR_TARGET)' \ 'CHILL=$$(CHILL_FOR_TARGET)' \
"CHILL_FOR_TARGET=$(CHILL_FOR_TARGET)" \ "CHILL_FOR_TARGET=$(CHILL_FOR_TARGET)" \
"CHILL_LIB=$(CHILL_LIB)" \ "CHILL_LIB=$(CHILL_LIB)" \
$(end-sanitize-chill)\
'CXX=$$(CXX_FOR_TARGET)' \ 'CXX=$$(CXX_FOR_TARGET)' \
"CXX_FOR_TARGET=$(CXX_FOR_TARGET)" \ "CXX_FOR_TARGET=$(CXX_FOR_TARGET)" \
"CXXFLAGS=$(CXXFLAGS)" \ "CXXFLAGS=$(CXXFLAGS)" \
@ -738,7 +731,6 @@ c-exp.tab.c: $(srcdir)/c-exp.y $(srcdir)/Makefile.in
< y.tab.c > ././c-exp.tab.c < y.tab.c > ././c-exp.tab.c
-rm y.tab.c -rm y.tab.c
# start-sanitize-chill
# ch-exp.tab.c is generated in target dir from ch-exp.y if it doesn't exist # ch-exp.tab.c is generated in target dir from ch-exp.y if it doesn't exist
# in srcdir, then compiled in target dir to ch-exp.tab.o. # in srcdir, then compiled in target dir to ch-exp.tab.o.
# Remove bogus decls for malloc/realloc/free which conflict with everything # Remove bogus decls for malloc/realloc/free which conflict with everything
@ -755,7 +747,6 @@ ch-exp.tab.c: $(srcdir)/ch-exp.y $(srcdir)/Makefile.in
-e 's/realloc/xrealloc/g' \ -e 's/realloc/xrealloc/g' \
< y.tab.c > ././ch-exp.tab.c < y.tab.c > ././ch-exp.tab.c
-rm y.tab.c -rm y.tab.c
# end-sanitize-chill
# m2-exp.tab.c is generated in target dir from m2-exp.y if it doesn't exist # m2-exp.tab.c is generated in target dir from m2-exp.y if it doesn't exist
# in srcdir, then compiled in target dir to m2-exp.tab.o. # in srcdir, then compiled in target dir to m2-exp.tab.o.
@ -857,12 +848,10 @@ force_update:
# will remove them. # will remove them.
MAKEOVERRIDES= MAKEOVERRIDES=
$(start-sanitize-chill)
## This is ugly, but I don't want GNU make to put these variables in ## 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 ## the environment. Older makes will see this as a set of targets
## with no dependencies and no actions. ## with no dependencies and no actions.
unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET :
$(end-sanitize-chill)
# This is the end of "Makefile.in". When built into "Makefile" # This is the end of "Makefile.in". When built into "Makefile"
# by the configure script, two things are added below this point: # by the configure script, two things are added below this point:

View File

@ -87,12 +87,10 @@ c_typedef_print (type, new, stream)
type_print(type,"",stream,0); type_print(type,"",stream,0);
break; break;
#endif #endif
/* start-sanitize-chill */
#ifdef _LANG_chill #ifdef _LANG_chill
case language_chill: case language_chill:
error ("Missing Chill support in function c_typedef_print."); /*FIXME*/ error ("Missing Chill support in function c_typedef_print."); /*FIXME*/
#endif #endif
/* end-sanitize-chill */
default: default:
error("Language not supported."); error("Language not supported.");
} }

View File

@ -83,9 +83,7 @@ enum language
language_auto, /* Placeholder for automatic setting */ language_auto, /* Placeholder for automatic setting */
language_c, /* C */ language_c, /* C */
language_cplus, /* C++ */ language_cplus, /* C++ */
/* start-sanitize-chill */
language_chill, /* Chill */ language_chill, /* Chill */
/* end-sanitize-chill */
language_m2 /* Modula-2 */ language_m2 /* Modula-2 */
}; };
@ -117,12 +115,10 @@ inside_entry_file PARAMS ((CORE_ADDR addr));
extern int extern int
inside_main_func PARAMS ((CORE_ADDR pc)); inside_main_func PARAMS ((CORE_ADDR pc));
/* start-sanitize-chill */
/* From ch-lang.c, for the moment. (FIXME) */ /* From ch-lang.c, for the moment. (FIXME) */
extern char * extern char *
chill_demangle PARAMS ((const char *)); chill_demangle PARAMS ((const char *));
/* end-sanitize-chill */
/* From libiberty.a */ /* From libiberty.a */
@ -261,10 +257,7 @@ extern void
gdb_printchar PARAMS ((int, FILE *, int)); gdb_printchar PARAMS ((int, FILE *, int));
extern void extern void
fprint_symbol PARAMS ((FILE *, char *)); fprintf_symbol_filtered PARAMS ((FILE *, char *, enum language, int));
extern void
fputs_demangled PARAMS ((char *, FILE *, int, enum language));
extern void extern void
perror_with_name PARAMS ((char *)); perror_with_name PARAMS ((char *));

View File

@ -197,11 +197,9 @@ typedef unsigned int DIE_REF; /* Reference to a DIE */
#define LCC_PRODUCER "NCR C/C++" #define LCC_PRODUCER "NCR C/C++"
#endif #endif
/* start-sanitize-chill */
#ifndef CHILL_PRODUCER #ifndef CHILL_PRODUCER
#define CHILL_PRODUCER "GNU Chill " #define CHILL_PRODUCER "GNU Chill "
#endif #endif
/* end-sanitize-chill */
/* Flags to target_to_host() that tell whether or not the data object is /* 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 expected to be signed. Used, for example, when fetching a signed
@ -674,11 +672,9 @@ set_cu_language (dip)
case LANG_C_PLUS_PLUS: case LANG_C_PLUS_PLUS:
cu_language = language_cplus; cu_language = language_cplus;
break; break;
/* start-sanitize-chill */
case LANG_CHILL: case LANG_CHILL:
cu_language = language_chill; cu_language = language_chill;
break; break;
/* end-sanitize-chill */
case LANG_MODULA2: case LANG_MODULA2:
cu_language = language_m2; cu_language = language_m2;
break; break;
@ -1903,9 +1899,7 @@ handle_producer (producer)
processing_gcc_compilation = processing_gcc_compilation =
STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER)) STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER))
/* start-sanitize-chill */
|| STREQN (producer, CHILL_PRODUCER, strlen (CHILL_PRODUCER)) || STREQN (producer, CHILL_PRODUCER, strlen (CHILL_PRODUCER))
/* end-sanitize-chill */
|| STREQN (producer, GCC_PRODUCER, strlen (GCC_PRODUCER)); || STREQN (producer, GCC_PRODUCER, strlen (GCC_PRODUCER));
/* Select a demangling style if we can identify the producer and if /* Select a demangling style if we can identify the producer and if

View File

@ -503,7 +503,6 @@ extern struct type *builtin_type_m2_card;
extern struct type *builtin_type_m2_real; extern struct type *builtin_type_m2_real;
extern struct type *builtin_type_m2_bool; extern struct type *builtin_type_m2_bool;
/* start-sanitize-chill */
/* Chill types */ /* Chill types */
extern struct type *builtin_type_chill_bool; extern struct type *builtin_type_chill_bool;
@ -511,7 +510,6 @@ extern struct type *builtin_type_chill_char;
extern struct type *builtin_type_chill_long; extern struct type *builtin_type_chill_long;
extern struct type *builtin_type_chill_ulong; extern struct type *builtin_type_chill_ulong;
extern struct type *builtin_type_chill_real; extern struct type *builtin_type_chill_real;
/* end-sanitize-chill */
/* LONG_LONG is defined if the host has "long long". */ /* LONG_LONG is defined if the host has "long long". */

View File

@ -165,9 +165,7 @@ set_language_command (ignore, from_tty)
printf ("local or auto Automatic setting based on source file\n"); printf ("local or auto Automatic setting based on source file\n");
printf ("c Use the C language\n"); printf ("c Use the C language\n");
printf ("c++ Use the C++ language\n"); printf ("c++ Use the C++ language\n");
/* start-sanitize-chill */
printf ("chill Use the Chill language\n"); printf ("chill Use the Chill language\n");
/* end-sanitize-chill */
printf ("modula-2 Use the Modula-2 language\n"); printf ("modula-2 Use the Modula-2 language\n");
/* Restore the silly string. */ /* Restore the silly string. */
set_language(current_language->la_language); set_language(current_language->la_language);
@ -460,10 +458,8 @@ binop_result_type(v1,v2)
not needed. */ not needed. */
return l1 > l2 ? VALUE_TYPE(v1) : VALUE_TYPE(v2); return l1 > l2 ? VALUE_TYPE(v1) : VALUE_TYPE(v2);
break; break;
/* start-sanitize-chill */ case language_chill:
case language_chill:
error ("Missing Chill support in function binop_result_check.");/*FIXME*/ error ("Missing Chill support in function binop_result_check.");/*FIXME*/
/* end-sanitize-chill */
} }
abort(); abort();
return (struct type *)0; /* For lint */ return (struct type *)0; /* For lint */
@ -634,10 +630,8 @@ integral_type (type)
(TYPE_CODE(type) != TYPE_CODE_ENUM) ? 0 : 1; (TYPE_CODE(type) != TYPE_CODE_ENUM) ? 0 : 1;
case language_m2: case language_m2:
return TYPE_CODE(type) != TYPE_CODE_INT ? 0 : 1; return TYPE_CODE(type) != TYPE_CODE_INT ? 0 : 1;
/* start-sanitize-chill */
case language_chill: case language_chill:
error ("Missing Chill support in function integral_type."); /*FIXME*/ error ("Missing Chill support in function integral_type."); /*FIXME*/
/* end-sanitize-chill */
default: default:
error ("Language not supported."); error ("Language not supported.");
} }
@ -665,9 +659,7 @@ character_type (type)
{ {
switch(current_language->la_language) switch(current_language->la_language)
{ {
/* start-sanitize-chill */
case language_chill: case language_chill:
/* end-sanitize-chill */
case language_m2: case language_m2:
return TYPE_CODE(type) != TYPE_CODE_CHAR ? 0 : 1; return TYPE_CODE(type) != TYPE_CODE_CHAR ? 0 : 1;
@ -688,9 +680,7 @@ string_type (type)
{ {
switch(current_language->la_language) switch(current_language->la_language)
{ {
/* start-sanitize-chill */
case language_chill: case language_chill:
/* end-sanitize-chill */
case language_m2: case language_m2:
return TYPE_CODE(type) != TYPE_CODE_STRING ? 0 : 1; return TYPE_CODE(type) != TYPE_CODE_STRING ? 0 : 1;
@ -710,9 +700,7 @@ boolean_type (type)
{ {
switch(current_language->la_language) switch(current_language->la_language)
{ {
/* start-sanitize-chill */
case language_chill: case language_chill:
/* end-sanitize-chill */
case language_m2: case language_m2:
return TYPE_CODE(type) != TYPE_CODE_BOOL ? 0 : 1; return TYPE_CODE(type) != TYPE_CODE_BOOL ? 0 : 1;
@ -757,10 +745,8 @@ structured_type(type)
return (TYPE_CODE(type) == TYPE_CODE_STRUCT) || return (TYPE_CODE(type) == TYPE_CODE_STRUCT) ||
(TYPE_CODE(type) == TYPE_CODE_SET) || (TYPE_CODE(type) == TYPE_CODE_SET) ||
(TYPE_CODE(type) == TYPE_CODE_ARRAY); (TYPE_CODE(type) == TYPE_CODE_ARRAY);
/* start-sanitize-chill */
case language_chill: case language_chill:
error ("Missing Chill support in function structured_type."); /*FIXME*/ error ("Missing Chill support in function structured_type."); /*FIXME*/
/* end-sanitize-chill */
default: default:
return (0); return (0);
} }
@ -805,10 +791,8 @@ value_true(val)
return 0; /* BOOLEAN with value FALSE */ return 0; /* BOOLEAN with value FALSE */
break; break;
/* start-sanitize-chill */
case language_chill: case language_chill:
error ("Missing Chill support in function value_type."); /*FIXME*/ error ("Missing Chill support in function value_type."); /*FIXME*/
/* end-sanitize-chill */
default: default:
error ("Language not supported."); error ("Language not supported.");
@ -979,12 +963,10 @@ binop_type_check(arg1,arg2,op)
} }
#endif #endif
/* start-sanitize-chill */
#ifdef _LANG_chill #ifdef _LANG_chill
case language_chill: case language_chill:
error ("Missing Chill support in function binop_type_check.");/*FIXME*/ error ("Missing Chill support in function binop_type_check.");/*FIXME*/
#endif #endif
/* end-sanitize-chill */
} }
} }

View File

@ -33,9 +33,7 @@ struct objfile;
/* #include "lang_def.h" */ /* #include "lang_def.h" */
#define _LANG_c #define _LANG_c
#define _LANG_m2 #define _LANG_m2
/* start-sanitize-chill */
#define _LANG_chill #define _LANG_chill
/* end-sanitize-chill */
/* range_mode == /* range_mode ==
range_mode_auto: range_check set automatically to default of language. range_mode_auto: range_check set automatically to default of language.

View File

@ -442,6 +442,34 @@ syms_from_objfile (objfile, addr, mainline, verbo)
section_offsets = (*objfile -> sf -> sym_offsets) (objfile, addr); section_offsets = (*objfile -> sf -> sym_offsets) (objfile, addr);
objfile->section_offsets = section_offsets; objfile->section_offsets = section_offsets;
/* This is a hack. As far as I can tell, section offsets are not
target dependent. They are all set to addr with a couple of
exceptions. The exceptions are sysvr4 shared libraries, whose
offsets are kept in solib structures anyway and rs6000 xcoff
which handles shared libraries in a completely unique way.
Section offsets are built similarly, except that they are built
by adding addr in all cases because there is no clear mapping
from section_offsets into actual sections. Note that solib.c
has a different algorythm for finding section offsets.
These should probably all be collapsed into some target
independent form of shared library support. FIXME. */
if (addr)
{
struct obj_section *s;
for (s = objfile->sections; s < objfile->sections_end; ++s)
{
s->addr -= s->offset;
s->addr += addr;
s->endaddr -= s->offset;
s->endaddr += addr;
s->offset += addr;
}
}
(*objfile -> sf -> sym_read) (objfile, section_offsets, mainline); (*objfile -> sf -> sym_read) (objfile, section_offsets, mainline);
/* Don't allow char * to have a typename (else would get caddr_t.) */ /* Don't allow char * to have a typename (else would get caddr_t.) */
@ -942,10 +970,8 @@ deduce_language_from_filename (filename)
return language_c; return language_c;
else if(STREQ(c,".cc") || STREQ(c,".C")) else if(STREQ(c,".cc") || STREQ(c,".C"))
return language_cplus; return language_cplus;
/* start-sanitize-chill */
else if(STREQ(c,".ch") || STREQ(c,".c186") || STREQ(c,".c286")) else if(STREQ(c,".ch") || STREQ(c,".c186") || STREQ(c,".c286"))
return language_chill; return language_chill;
/* end-sanitize-chill */
return language_unknown; /* default */ return language_unknown; /* default */
} }
@ -1331,21 +1357,6 @@ add_psymbol_addr_to_list (name, namelength, namespace, class, list, val,
#endif /* !INLINE_ADD_PSYMBOL */ #endif /* !INLINE_ADD_PSYMBOL */
/* Returns a section whose range includes PC or NULL if none found. */
struct section_table *
find_pc_section(pc)
CORE_ADDR pc;
{
struct section_table *s;
s = find_pc_section_from_targets(pc);
if (s == NULL)
s = find_pc_section_from_so_list(pc);
return(s);
}
void void
_initialize_symfile () _initialize_symfile ()

View File

@ -91,13 +91,11 @@ struct general_symbol_info
{ {
char *demangled_name; char *demangled_name;
} cplus_specific; } cplus_specific;
/* start-sanitize-chill */
/* For Chill */ /* For Chill */
struct chill_specific struct chill_specific
{ {
char *demangled_name; char *demangled_name;
} chill_specific; } chill_specific;
/* end-sanitize-chill */
} lang_u; } lang_u;
} lang_specific; } lang_specific;
@ -134,12 +132,10 @@ extern int demangle; /* We reference it, so go ahead and declare it. */
{ \ { \
SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = NULL; \ SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = NULL; \
} \ } \
/* start-sanitize-chill */ \
else if (SYMBOL_LANGUAGE (symbol) == language_chill) \ else if (SYMBOL_LANGUAGE (symbol) == language_chill) \
{ \ { \
SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; \ SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; \
} \ } \
/* end-sanitize-chill */ \
else \ else \
{ \ { \
memset (&(symbol)->ginfo.lang_specific.lang_u, 0, \ memset (&(symbol)->ginfo.lang_specific.lang_u, 0, \
@ -176,7 +172,6 @@ extern int demangle; /* We reference it, so go ahead and declare it. */
SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = NULL; \ SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = NULL; \
} \ } \
} \ } \
/* start-sanitize-chill */ \
if (demangled == NULL \ if (demangled == NULL \
&& (SYMBOL_LANGUAGE (symbol) == language_chill \ && (SYMBOL_LANGUAGE (symbol) == language_chill \
|| SYMBOL_LANGUAGE (symbol) == language_auto)) \ || SYMBOL_LANGUAGE (symbol) == language_auto)) \
@ -195,7 +190,6 @@ extern int demangle; /* We reference it, so go ahead and declare it. */
SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; \ SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; \
} \ } \
} \ } \
/* end-sanitize-chill */ \
if (SYMBOL_LANGUAGE (symbol) == language_auto) \ if (SYMBOL_LANGUAGE (symbol) == language_auto) \
{ \ { \
SYMBOL_LANGUAGE (symbol) = language_unknown; \ SYMBOL_LANGUAGE (symbol) = language_unknown; \
@ -205,20 +199,6 @@ extern int demangle; /* We reference it, so go ahead and declare it. */
/* Macro that returns the demangled name for a symbol based on the language /* Macro that returns the demangled name for a symbol based on the language
for that symbol. If no demangled name exists, returns NULL. */ for that symbol. If no demangled name exists, returns NULL. */
#define SYMBOL_DEMANGLED_NAME(symbol) \
(SYMBOL_LANGUAGE (symbol) == language_cplus \
? SYMBOL_CPLUS_DEMANGLED_NAME (symbol) \
: NULL)
/* start-sanitize-chill */
#define SYMBOL_CHILL_DEMANGLED_NAME(symbol) \
(symbol)->ginfo.lang_specific.lang_u.chill_specific.demangled_name
/* Redefine SYMBOL_DEMANGLED_NAME. This is simplier than trying to
devise a macro for which part of it can be cleanly sanitized away. */
#undef SYMBOL_DEMANGLED_NAME
#define SYMBOL_DEMANGLED_NAME(symbol) \ #define SYMBOL_DEMANGLED_NAME(symbol) \
(SYMBOL_LANGUAGE (symbol) == language_cplus \ (SYMBOL_LANGUAGE (symbol) == language_cplus \
? SYMBOL_CPLUS_DEMANGLED_NAME (symbol) \ ? SYMBOL_CPLUS_DEMANGLED_NAME (symbol) \
@ -226,7 +206,8 @@ extern int demangle; /* We reference it, so go ahead and declare it. */
? SYMBOL_CHILL_DEMANGLED_NAME (symbol) \ ? SYMBOL_CHILL_DEMANGLED_NAME (symbol) \
: NULL)) : NULL))
/* end-sanitize-chill */ #define SYMBOL_CHILL_DEMANGLED_NAME(symbol) \
(symbol)->ginfo.lang_specific.lang_u.chill_specific.demangled_name
/* Macro that returns the "natural source name" of a symbol. In C++ this is /* 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 the "demangled" form of the name if demangle is on and the "mangled" form

View File

@ -15,10 +15,6 @@
Do-first: Do-first:
if ( echo $* | grep keep\-chill > /dev/null ) ; then
keep_these_too="gdb.t30 gdb.t31"
fi
# All files listed between the "Things-to-keep:" line and the # All files listed between the "Things-to-keep:" line and the
# "Do-last:" line will be kept. All other files will be removed. # "Do-last:" line will be kept. All other files will be removed.
# Directories listed in this section will have their own Sanitize # Directories listed in this section will have their own Sanitize
@ -55,6 +51,9 @@ gdb.t20
gdb.t21 gdb.t21
gdb.t22 gdb.t22
gdb.t23 gdb.t23
gdb.t30
gdb.t31
lib lib
# are executed as a /bin/sh shell script after everything else is # are executed as a /bin/sh shell script after everything else is
@ -62,53 +61,6 @@ lib
Do-last: Do-last:
echo Thawing away the \"chill\"...
# Don't try to clean directories here, as the 'mv' command will fail.
# Also, grep fails on NFS mounted directories.
if ( echo $* | grep keep\-chill > /dev/null ) ; then
for i in * ; do
if test ! -d $i && (grep sanitize-chill $i > /dev/null) ; then
echo Keeping chill stuff in $i
fi
done
else
for i in * ; do
if test ! -d $i && (grep sanitize-chill $i > /dev/null) ; then
echo Thawing the \"chill\" out of $i...
cp $i new
sed '/start\-sanitize\-chill/,/end-\sanitize\-chill/d' < $i > new
if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
echo Caching $i in .Recover...
mv $i .Recover
fi
mv new $i
fi
done
echo Thawing the \"chill\" out of configure.in...
cp configure.in new
sed -e '
s/gdb.t30//g
s/gdb.t31//g
' < configure.in > new
if [ -n "${safe}" -a ! -f .Recover/configure.in ] ; then
echo Caching configure.in in .Recover...
mv configure.in .Recover
fi
mv new configure.in
echo Thawing the \"chill\" out of Makefile.in...
cp Makefile.in new
sed -e '
/CHILL=/d
/CHILLFLAGS=/d
s/gdb.t30//g
s/gdb.t31//g
' < Makefile.in > new
if [ -n "${safe}" -a ! -f .Recover/Makefile.in ] ; then
echo Caching Makefile.in in .Recover...
mv Makefile.in .Recover
fi
mv new Makefile.in
fi fi
# eof # eof

View File

@ -115,21 +115,17 @@ Wed Mar 24 14:43:38 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com)
Wed Mar 24 09:48:03 1993 Fred Fish (fnf@cygnus.com) Wed Mar 24 09:48:03 1993 Fred Fish (fnf@cygnus.com)
**** start-sanitize-chill ****
* gdb.t31/gdbme.ch: Re-enable code that previously caused * gdb.t31/gdbme.ch: Re-enable code that previously caused
compiler to coredump. compiler to coredump.
* gdb.t31/chillvars.exp: Re-enable tests that depend on that * gdb.t31/chillvars.exp: Re-enable tests that depend on that
code. code.
**** end-sanitize-chill ****
Tue Mar 23 08:53:42 1993 Fred Fish (fnf@cygnus.com) Tue Mar 23 08:53:42 1993 Fred Fish (fnf@cygnus.com)
**** start-sanitize-chill ****
* gdb.t31/gdbme.ch: Comment out code that causes chill compiler * gdb.t31/gdbme.ch: Comment out code that causes chill compiler
coredump. coredump.
* gdb.t31/chillvars.exp: Comment out tests that depend on that * gdb.t31/chillvars.exp: Comment out tests that depend on that
code. code.
**** end-sanitize-chill ****
Sun Mar 21 17:56:47 1993 Rob Savoye (rob at darkstar.cygnus.com) Sun Mar 21 17:56:47 1993 Rob Savoye (rob at darkstar.cygnus.com)
@ -159,12 +155,9 @@ Tue Mar 16 15:37:11 1993 Fred Fish (fnf@cygnus.com)
setting sevenbit-strings. setting sevenbit-strings.
* gdb.t04/setvar.exp, gdb.t13/bitfields.exp: Make commands * gdb.t04/setvar.exp, gdb.t13/bitfields.exp: Make commands
to set sevenbit-strings consistent across tests. to set sevenbit-strings consistent across tests.
**** start-sanitize-chill ****
gdb.t30/chexp.exp, gdb.t31/chillvars.exp: Make commands to gdb.t30/chexp.exp, gdb.t31/chillvars.exp: Make commands to
set sevenbit-strings consistent across tests. set sevenbit-strings consistent across tests.
**** end-sanitize-chill ****
>>>>>>> 1.16
Fri Mar 12 08:47:20 1993 Fred Fish (fnf@cygnus.com) Fri Mar 12 08:47:20 1993 Fred Fish (fnf@cygnus.com)
* gdb.t21/demangle.exp (proc demangle): Adjust quotes in an * gdb.t21/demangle.exp (proc demangle): Adjust quotes in an
@ -253,7 +246,6 @@ Wed Feb 24 08:05:38 1993 Ian Lance Taylor (ian@cygnus.com)
Wed Feb 24 08:03:38 1993 Fred Fish (fnf@cygnus.com) Wed Feb 24 08:03:38 1993 Fred Fish (fnf@cygnus.com)
**** start-sanitize-chill ****
* gdb.t31/chillvars.exp (test_structs): New proc to test printing * gdb.t31/chillvars.exp (test_structs): New proc to test printing
of Chill STRUCT types and STRUCT values. of Chill STRUCT types and STRUCT values.
* gdb.t31/chillvars.exp (test_strings): Expect "CHAR" now, rather * gdb.t31/chillvars.exp (test_strings): Expect "CHAR" now, rather
@ -261,7 +253,6 @@ Wed Feb 24 08:03:38 1993 Fred Fish (fnf@cygnus.com)
* gdb.t31/in-gdbme.ch (simple_struct, nested_struct, struct1, * gdb.t31/in-gdbme.ch (simple_struct, nested_struct, struct1,
struct2): New struct definitions and initializations to test struct2): New struct definitions and initializations to test
simple Chill STRUCT types. simple Chill STRUCT types.
**** end-sanitize-chill ****
Tue Feb 23 11:55:06 1993 Fred Fish (fnf@cygnus.com) Tue Feb 23 11:55:06 1993 Fred Fish (fnf@cygnus.com)
@ -282,11 +273,9 @@ Tue Feb 23 11:55:06 1993 Fred Fish (fnf@cygnus.com)
* gdb.t21/demangle.exp: Add many new test strings to demangle, * gdb.t21/demangle.exp: Add many new test strings to demangle,
and fix a whole bunch that had incorrect expected output but were and fix a whole bunch that had incorrect expected output but were
passing anyway because of the bug in "proc demangle". passing anyway because of the bug in "proc demangle".
**** start-sanitize-chill ****
* gdb.t31/chillvars.exp: Remove setup_xfail for printing string * gdb.t31/chillvars.exp: Remove setup_xfail for printing string
type. type.
* gdb.t31/in-gdbme.ch: Uncomment string4, now compiles. * gdb.t31/in-gdbme.ch: Uncomment string4, now compiles.
**** end-sanitize-chill ****
Mon Feb 22 07:54:03 1993 Mike Werner (mtw@poseidon.cygnus.com) Mon Feb 22 07:54:03 1993 Mike Werner (mtw@poseidon.cygnus.com)

View File

@ -30,11 +30,9 @@ INSTALL_PROGRAM = $(INSTALL)
INSTALL_DATA = $(INSTALL) INSTALL_DATA = $(INSTALL)
CFLAGS = -g CFLAGS = -g
$(start-sanitize-chill)
CHILLFLAGS = $(CFLAGS) CHILLFLAGS = $(CFLAGS)
CHILL_LIB = -lchill CHILL_LIB = -lchill
$(end-sanitize-chill) CXXFLAGS = -g
CXXFLAGS = -g -O
LINK= ln -s LINK= ln -s
SUBDIRS= SUBDIRS=
@ -52,7 +50,6 @@ CC = ` \
fi; \ fi; \
fi` fi`
$(start-sanitize-chill)
CHILL = ` \ CHILL = ` \
if [ -f $${rootme}../../gcc/Makefile ] ; then \ if [ -f $${rootme}../../gcc/Makefile ] ; then \
echo $${rootme}../../gcc/xgcc -B$${rootme}../../gcc/ -L$${rootme}../../chillrt/; \ echo $${rootme}../../gcc/xgcc -B$${rootme}../../gcc/ -L$${rootme}../../chillrt/; \
@ -63,7 +60,6 @@ CHILL = ` \
t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \ t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \
fi; \ fi; \
fi` fi`
$(end-sanitize-chill)
CXX = ` \ CXX = ` \
if [ -f $${rootme}../../gcc/Makefile ] ; then \ if [ -f $${rootme}../../gcc/Makefile ] ; then \
@ -96,11 +92,9 @@ FLAGS_TO_PASS = \
"CXXFLAGS=$(CXXFLAGS)" \ "CXXFLAGS=$(CXXFLAGS)" \
"CC=$(CC)" \ "CC=$(CC)" \
"CFLAGS=$(CFLAGS)" \ "CFLAGS=$(CFLAGS)" \
$(start-sanitize-chill)\
"CHILLFLAGS=$(CHILLFLAGS)" \ "CHILLFLAGS=$(CHILLFLAGS)" \
"CHILL=$(CHILL)" \ "CHILL=$(CHILL)" \
"CHILL_LIB=$(CHILL_LIB)" \ "CHILL_LIB=$(CHILL_LIB)" \
$(end-sanitize-chill)\
"INSTALL=$(INSTALL)" \ "INSTALL=$(INSTALL)" \
"INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_DATA=$(INSTALL_DATA)" \
"INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \
@ -120,24 +114,8 @@ install-info:
dvi: dvi:
install: install:
-parent=`echo $(datadir)|sed -e 's@/[^/]*$$@@'`; \
if [ -d $$parent ] ; then true ; else mkdir $$parent ; fi
-if [ -d $(datadir) ] ; then true ; else mkdir $(datadir) ; fi
-parent=`echo $(targetdir)|sed -e 's@/[^/]*$$@@'`; \
if [ -d $$parent ] ; then true ; else mkdir $$parent ; fi
-if [ -d $(targetdir) ] ; then true ; else mkdir $(targetdir) ; fi
-for file in ./lib/*.exp; \
do \
$(INSTALL_DATA) $$file $(datadir) ; \
done
-for file in ./*-init.exp; \
do \
$(INSTALL_DATA) $$file $(targetdir) ; \
done
uninstall: force uninstall: force
# -rm -f $(datadir)/*.exp
-rm -fr $(targetdir)
site.exp: ./config.status site.exp: ./config.status
@echo "Making a new config file..." @echo "Making a new config file..."
@ -165,8 +143,8 @@ site.exp: ./config.status
@rm -f ./tmp1 ./tmp0 @rm -f ./tmp1 ./tmp0
installcheck: installcheck:
check: all site.exp check: all
$(RUNTEST) $(RUNTESTFLAGS) --tool gdb GDB=$(GDB) $(RUNTEST) $(RUNTESTFLAGS) --tool gdb GDB=$(GDB) --srcdir $(srcdir)
subdir_do: force subdir_do: force
@for i in $(DODIRS); do \ @for i in $(DODIRS); do \

View File

@ -15,10 +15,6 @@
Do-first: Do-first:
if ( echo $* | grep keep\-chill > /dev/null ) ; then
keep_these_too=""
fi
# All files listed between the "Things-to-keep:" line and the # All files listed between the "Things-to-keep:" line and the
# "Do-last:" line will be kept. All other files will be removed. # "Do-last:" line will be kept. All other files will be removed.
# Directories listed in this section will have their own Sanitize # Directories listed in this section will have their own Sanitize
@ -38,35 +34,5 @@ vx-gdb.exp
# done. # done.
Do-last: Do-last:
echo Thawing away the \"chill\"...
# Don't try to clean directories here, as the 'mv' command will fail.
# Also, grep fails on NFS mounted directories.
if ( echo $* | grep keep\-chill > /dev/null ) ; then
for i in * ; do
if test ! -d $i && (grep sanitize-chill $i > /dev/null) ; then
echo Keeping chill stuff in $i
fi
done
else
for i in * ; do
if test ! -d $i && (grep sanitize-chill $i > /dev/null) ; then
echo Thawing the \"chill\" out of $i...
cp $i new
sed '/start\-sanitize\-chill/,/end-\sanitize\-chill/d' < $i > new
if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
echo Caching $i in .Recover...
mv $i .Recover
fi
mv new $i
fi
done
fi
# eof # eof
CVS
mips-gdb.exp
nind-gdb.exp
udi-gdb.exp
unix-gdb.exp
vx-gdb.exp

View File

@ -1348,11 +1348,9 @@ fprintf_symbol_filtered (stream, name, lang, arg_mode)
case language_cplus: case language_cplus:
demangled = cplus_demangle (name, arg_mode); demangled = cplus_demangle (name, arg_mode);
break; break;
/* start-sanitize-chill */
case language_chill: case language_chill:
demangled = chill_demangle (name); demangled = chill_demangle (name);
break; break;
/* end-sanitize-chill */
default: default:
demangled = NULL; demangled = NULL;
break; break;