From 93bb6e655c378449e33b2378252e4f44d4bdb478 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Wed, 2 Dec 1992 01:10:49 +0000 Subject: [PATCH] * 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. --- gdb/ChangeLog | 9 +++++++++ gdb/dwarfread.c | 9 +++++++++ 2 files changed, 18 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index e3bad5aa947..0dc5111ee90 100644 --- 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 60360e45985..ef5404524cb 100644 --- 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 -- 2.30.2