binutils-gdb/gprof/source.c

264 lines
5.9 KiB
C
Raw Normal View History

/* source.c - Keep track of source files.
Copyright (C) 2000-2019 Free Software Foundation, Inc.
This file is part of GNU Binutils.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
2007-07-06 12:40:34 +02:00
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
2005-05-09 08:55:25 +02:00
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
02110-1301, USA. */
1999-05-03 09:29:11 +02:00
#include "gprof.h"
#include "libiberty.h"
#include "filenames.h"
1999-05-03 09:29:11 +02:00
#include "search_list.h"
#include "source.h"
#define EXT_ANNO "-ann" /* Postfix of annotated files. */
1999-05-03 09:29:11 +02:00
/* Default option values. */
bfd_boolean create_annotation_files = FALSE;
1999-05-03 09:29:11 +02:00
Search_List src_search_list = {0, 0};
1999-05-03 09:29:11 +02:00
Source_File *first_src_file = 0;
Source_File *
source_file_lookup_path (const char *path)
1999-05-03 09:29:11 +02:00
{
Source_File *sf;
for (sf = first_src_file; sf; sf = sf->next)
{
if (FILENAME_CMP (path, sf->name) == 0)
break;
1999-05-03 09:29:11 +02:00
}
1999-05-03 09:29:11 +02:00
if (!sf)
{
/* Create a new source file descriptor. */
1999-05-03 09:29:11 +02:00
sf = (Source_File *) xmalloc (sizeof (*sf));
1999-05-03 09:29:11 +02:00
memset (sf, 0, sizeof (*sf));
1999-05-03 09:29:11 +02:00
sf->name = xstrdup (path);
sf->next = first_src_file;
first_src_file = sf;
}
1999-05-03 09:29:11 +02:00
return sf;
}
Source_File *
source_file_lookup_name (const char *filename)
1999-05-03 09:29:11 +02:00
{
const char *fname;
Source_File *sf;
/* The user cannot know exactly how a filename will be stored in
the debugging info (e.g., ../include/foo.h
vs. /usr/include/foo.h). So we simply compare the filename
component of a path only. */
1999-05-03 09:29:11 +02:00
for (sf = first_src_file; sf; sf = sf->next)
{
fname = strrchr (sf->name, '/');
1999-05-03 09:29:11 +02:00
if (fname)
++fname;
1999-05-03 09:29:11 +02:00
else
fname = sf->name;
if (FILENAME_CMP (filename, fname) == 0)
break;
1999-05-03 09:29:11 +02:00
}
1999-05-03 09:29:11 +02:00
return sf;
}
FILE *
annotate_source (Source_File *sf, unsigned int max_width,
void (*annote) (char *, unsigned int, int, void *),
void *arg)
1999-05-03 09:29:11 +02:00
{
static bfd_boolean first_file = TRUE;
1999-05-03 09:29:11 +02:00
int i, line_num, nread;
bfd_boolean new_line;
1999-05-03 09:29:11 +02:00
char buf[8192];
char fname[PATH_MAX];
char *annotation, *name_only;
FILE *ifp, *ofp;
Search_List_Elem *sle = src_search_list.head;
/* Open input file. If open fails, walk along search-list until
open succeeds or reaching end of list. */
1999-05-03 09:29:11 +02:00
strcpy (fname, sf->name);
if (IS_ABSOLUTE_PATH (sf->name))
sle = 0; /* Don't use search list for absolute paths. */
1999-05-03 09:29:11 +02:00
name_only = 0;
while (TRUE)
1999-05-03 09:29:11 +02:00
{
DBG (SRCDEBUG, printf ("[annotate_source]: looking for %s, trying %s\n",
sf->name, fname));
1999-05-03 09:29:11 +02:00
ifp = fopen (fname, FOPEN_RB);
if (ifp)
break;
1999-05-03 09:29:11 +02:00
if (!sle && !name_only)
{
name_only = strrchr (sf->name, '/');
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
{
char *bslash = strrchr (sf->name, '\\');
if (name_only == NULL || (bslash != NULL && bslash > name_only))
name_only = bslash;
if (name_only == NULL && sf->name[0] != '\0' && sf->name[1] == ':')
name_only = (char *)sf->name + 1;
}
#endif
1999-05-03 09:29:11 +02:00
if (name_only)
{
/* Try search-list again, but this time with name only. */
1999-05-03 09:29:11 +02:00
++name_only;
sle = src_search_list.head;
}
}
1999-05-03 09:29:11 +02:00
if (sle)
{
strcpy (fname, sle->path);
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
/* d:foo is not the same thing as d:/foo! */
if (fname[strlen (fname) - 1] == ':')
strcat (fname, ".");
#endif
1999-05-03 09:29:11 +02:00
strcat (fname, "/");
1999-05-03 09:29:11 +02:00
if (name_only)
strcat (fname, name_only);
1999-05-03 09:29:11 +02:00
else
strcat (fname, sf->name);
1999-05-03 09:29:11 +02:00
sle = sle->next;
}
else
{
if (errno == ENOENT)
fprintf (stderr, _("%s: could not locate `%s'\n"),
whoami, sf->name);
1999-05-03 09:29:11 +02:00
else
perror (sf->name);
1999-05-03 09:29:11 +02:00
return 0;
}
}
ofp = stdout;
1999-05-03 09:29:11 +02:00
if (create_annotation_files)
{
/* Try to create annotated source file. */
1999-05-03 09:29:11 +02:00
const char *filename;
/* Create annotation files in the current working directory. */
1999-05-03 09:29:11 +02:00
filename = strrchr (sf->name, '/');
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
{
char *bslash = strrchr (sf->name, '\\');
if (filename == NULL || (bslash != NULL && bslash > filename))
filename = bslash;
if (filename == NULL && sf->name[0] != '\0' && sf->name[1] == ':')
filename = sf->name + 1;
}
#endif
1999-05-03 09:29:11 +02:00
if (filename)
++filename;
1999-05-03 09:29:11 +02:00
else
filename = sf->name;
1999-05-03 09:29:11 +02:00
strcpy (fname, filename);
strcat (fname, EXT_ANNO);
#ifdef __MSDOS__
{
/* foo.cpp-ann can overwrite foo.cpp due to silent truncation of
file names on 8+3 filesystems. Their `stat' better be good... */
struct stat buf1, buf2;
if (stat (filename, &buf1) == 0
&& stat (fname, &buf2) == 0
&& buf1.st_ino == buf2.st_ino)
{
char *dot = strrchr (fname, '.');
if (dot)
*dot = '\0';
strcat (fname, ".ann");
}
}
#endif
1999-05-03 09:29:11 +02:00
ofp = fopen (fname, "w");
1999-05-03 09:29:11 +02:00
if (!ofp)
{
perror (fname);
return 0;
}
}
/* Print file names if output goes to stdout
and there are more than one source file. */
1999-05-03 09:29:11 +02:00
if (ofp == stdout)
{
if (first_file)
first_file = FALSE;
1999-05-03 09:29:11 +02:00
else
fputc ('\n', ofp);
1999-05-03 09:29:11 +02:00
if (first_output)
first_output = FALSE;
1999-05-03 09:29:11 +02:00
else
fprintf (ofp, "\f\n");
1999-05-03 09:29:11 +02:00
fprintf (ofp, _("*** File %s:\n"), sf->name);
}
* po/bfd.pot: Updated by the Translation project. * po/binutils.pot: Updated by the Translation project. * po/gold.pot: Updated by the Translation project. * po/gold.pot: Updated by the Translation project. * po/gprof.pot: Updated by the Translation project. * po/sv.po: Updated Swedish translation. * po/ld.pot: Updated by the Translation project. * po/fi.po: Updated Finnish translation. * po/ld.pot: Updated by the Translation project. * po/fi.po: Updated Finnish translation. Updated sources to compile cleanly with -Wc++-compat: * basic_blocks.c: Add casts. * cg_dfn.c: Add cast. * corefile.c: Add casts. * gmon_io.c: Add casts. * hist.c: Add cast. * source.c: Add cast. * sym_ids.c (struct match): Moved to top level. Updated soruces in ld/* to compile cleanly with -Wc++-compat: * ld.h (enum endian_enum,enum symbolic_enum,enum dynamic_list_enum): Move to top level. * ldcref.c: Add casts. * ldctor.c: Add casts. * ldexp.c * ldexp.h (enum node_tree_enum,enum phase_enum): Move to top level. * ldlang.c: Add casts. (lang_insert_orphan): Use enum name instead of integer. * ldlang.h (enum statement_enum): Move to top level. * ldmain.c: Add casts. * ldwrite.c: Add casts. * lexsup.c: Add casts. (enum control_enum): Move to top level. * mri.c: Add casts. (mri_draw_tree): Use enum name instead of integer. Updated sources to compile cleanly with -Wc++-compat: * basic_blocks.c: Add casts. * cg_dfn.c: Add cast. * corefile.c: Add casts. * gmon_io.c: Add casts. * hist.c: Add cast. * source.c: Add cast. * sym_ids.c (struct match): Moved to top level. * as.c (main): Call dwarf2_init. * config/obj-elf.c (struct group_list): New field. (build_group_lists): Use hash lookup. (free_section_idx): New function. (elf_frob_file): Adjust. * dwarf2dbg.c (all_segs_hash, last_seg_ptr): New variables. (get_line_subseg): Adjust. (dwarf2_init): New function. * dwarf2dbg.h (dwarf2_init): New declaration.
2009-09-11 17:27:38 +02:00
annotation = (char *) xmalloc (max_width + 1);
1999-05-03 09:29:11 +02:00
line_num = 1;
new_line = TRUE;
1999-05-03 09:29:11 +02:00
while ((nread = fread (buf, 1, sizeof (buf), ifp)) > 0)
{
for (i = 0; i < nread; ++i)
{
if (new_line)
{
(*annote) (annotation, max_width, line_num, arg);
fputs (annotation, ofp);
++line_num;
}
1999-05-03 09:29:11 +02:00
new_line = (buf[i] == '\n');
fputc (buf[i], ofp);
}
}
1999-05-03 09:29:11 +02:00
free (annotation);
fclose (ifp);
1999-05-03 09:29:11 +02:00
return ofp;
}