FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2007-10-09 Pierre Muller <muller@ics.u-strasbg.fr>

Browse source 
* p-lang.h (pascal_main_name): Add declaration.
        * p-lang.c (GPC_P_INITIALIZE, GPC_MAIN_PROGRAM_NAME_1)
        (GPC_MAIN_PROGRAM_NAME_2): New constants.
        (pascal_main_name): New function.
        * symtab.c: Include p-lang.h.
        (find_main_name): Add call to pascal_main_name.
        * Makefile.in (symtab.o): Add dependency on p-lang.h.
This commit is contained in:
Pierre Muller 2007-10-09 06:59:27 +00:00
parent 944d6884ea
commit cd6c7346a6
5 changed files with 73 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
gdb/symtab.c
View file

@ -40,6 +40,7 @@
#include "filenames.h" /* for FILENAME_CMP */
#include "objc-lang.h"
#include "ada-lang.h"
#include "p-lang.h"
#include "hashtab.h"
@ -4126,7 +4127,7 @@ set_main_name (const char *name)
static void
find_main_name (void)
{
char *new_main_name;
const char *new_main_name;
/* Try to see if the main procedure is in Ada. */
/* FIXME: brobecker/2005-03-07: Another way of doing this would
@ -4151,6 +4152,13 @@ find_main_name (void)
return;
}
new_main_name = pascal_main_name ();
if (new_main_name != NULL)
{
set_main_name (new_main_name);
return;
}
/* The languages above didn't identify the name of the main procedure.
Fallback to "main". */
set_main_name ("main");