* dwarfread.c (CHILL_PRODUCER): Add producer string for

	GNU chill.
	* dwarfread.c (handle_producer):  Test CHILL_PRODUCER as well
	as GCC_PRODUCER and GPLUS_PRODUCER.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index e3bad5aa947237855fbc8dd939eedde9b1b2c91d..0dc5111ee904bd3d8b924a66aa905ecef990d17a 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+       **** start-sanitize-chill ****
+Tue Dec  1 17:07:31 1992  Fred Fish  (fnf@cygnus.com)
+
+       * dwarfread.c (CHILL_PRODUCER):  Add producer string for
+       GNU chill.
+       * dwarfread.c (handle_producer):  Test CHILL_PRODUCER as well
+       as GCC_PRODUCER and GPLUS_PRODUCER.
+       **** end-sanitize-chill ****
+
 Mon Nov 30 18:46:58 1992  Stu Grossman  (grossman at cygnus.com)
 
        * remote-udi.c (udi_wait):  Don't stop if TIP says that remote is

diff --git a/gdb/dwarfread.c b/gdb/dwarfread.c
index 60360e45985edcff449bb28350438fa49d82b3a0..ef5404524cbfb1f1871189f820053b7bdb774de7 100644 (file)
--- a/gdb/dwarfread.c
+++ b/gdb/dwarfread.c
@@ -92,6 +92,12 @@ typedef unsigned int DIE_REF;        /* Reference to a DIE */
 #define CFRONT_PRODUCER "CFRONT "      /* A wild a** guess... */
 #endif
 
+/* start-sanitize-chill */
+#ifndef CHILL_PRODUCER
+#define CHILL_PRODUCER "GNU Chill "
+#endif
+/* end-sanitize-chill */
+
 #define STREQ(a,b)             (strcmp(a,b)==0)
 #define STREQN(a,b,n)          (strncmp(a,b,n)==0)
 
@@ -1678,6 +1684,9 @@ handle_producer (producer)
 
   processing_gcc_compilation =
     STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER))
+      /* start-sanitize-chill */
+      || STREQN (producer, CHILL_PRODUCER, strlen (CHILL_PRODUCER))
+      /* end-sanitize-chill */
       || STREQN (producer, GCC_PRODUCER, strlen (GCC_PRODUCER));
 
   /* Select a demangling style if we can identify the producer and if