diff options
Diffstat (limited to 'gcc/dbxout.c')
| -rw-r--r-- | gcc/dbxout.c | 29 |
1 files changed, 27 insertions, 2 deletions
diff --git a/gcc/dbxout.c b/gcc/dbxout.c index 9527c1de26d..452a62d8cb7 100644 --- a/gcc/dbxout.c +++ b/gcc/dbxout.c @@ -343,6 +343,7 @@ static void emit_pending_bincls (void); static inline void emit_pending_bincls_if_required (void); static void dbxout_init (const char *); +static unsigned int get_lang_number (void); static void dbxout_finish (const char *); static void dbxout_start_source_file (unsigned, const char *); static void dbxout_end_source_file (unsigned); @@ -489,6 +490,30 @@ dbxout_function_end (void) } #endif /* DBX_DEBUGGING_INFO */ +/* Get lang description for N_SO stab. */ + +static unsigned int +get_lang_number (void) +{ + const char *language_string = lang_hooks.name; + + if (strcmp (language_string, "GNU C") == 0) + return N_SO_C; + else if (strcmp (language_string, "GNU C++") == 0) + return N_SO_CC; + else if (strcmp (language_string, "GNU F77") == 0) + return N_SO_FORTRAN; + else if (strcmp (language_string, "GNU F95") == 0) + return N_SO_FORTRAN90; /* CHECKME */ + else if (strcmp (language_string, "GNU Pascal") == 0) + return N_SO_PASCAL; + else if (strcmp (language_string, "GNU Objective-C") == 0) + return N_SO_OBJC; + else + return 0; + +} + /* At the beginning of compilation, start writing the symbol table. Initialize `typevec' and output the standard data types of C. */ @@ -521,7 +546,7 @@ dbxout_init (const char *input_file_name) #else /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */ fprintf (asmfile, "%s", ASM_STABS_OP); output_quoted_string (asmfile, cwd); - fprintf (asmfile, ",%d,0,0,", N_SO); + fprintf (asmfile, ",%d,0,%d,", N_SO, get_lang_number ()); assemble_name (asmfile, ltext_label_name); fputc ('\n', asmfile); #endif /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */ @@ -536,7 +561,7 @@ dbxout_init (const char *input_file_name) /* Used to put `Ltext:' before the reference, but that loses on sun 4. */ fprintf (asmfile, "%s", ASM_STABS_OP); output_quoted_string (asmfile, input_file_name); - fprintf (asmfile, ",%d,0,0,", N_SO); + fprintf (asmfile, ",%d,0,%d,", N_SO, get_lang_number ()); assemble_name (asmfile, ltext_label_name); fputc ('\n', asmfile); text_section (); |