1 /* Copyright (C) 1990 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 1, or (at your option)
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with the GNU C Library; see the file COPYING. If not, write to
16 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
26 /* Search the executable FILE for symbols matching those in NL,
27 which is terminated by an element with a NULL `n_un.n_name' member,
28 and fill in the elements of NL. */
30 DEFUN(nlist, (file, nl),
31 CONST char *file AND struct nlist *nl)
36 struct nlist *symbols;
37 unsigned long int string_table_size;
51 if (fread((PTR) &header, sizeof(header), 1, f) != 1)
54 if (fseek(f, N_SYMOFF(header), SEEK_SET) != 0)
57 symbols = (struct nlist *) __alloca(header.a_syms);
58 nsymbols = header.a_syms / sizeof(symbols[0]);
60 if (fread((PTR) symbols, sizeof(symbols[0]), nsymbols, f) != nsymbols)
63 if (fread((PTR) &string_table_size, sizeof(string_table_size), 1, f) != 1)
65 string_table_size -= sizeof(string_table_size);
67 string_table = (char *) __alloca(string_table_size);
68 if (fread((PTR) string_table, string_table_size, 1, f) != 1)
71 for (i = 0; i < nsymbols; ++i)
73 register struct nlist *nlp;
74 for (nlp = nl; nlp->n_un.n_name != NULL; ++nlp)
75 if (!strcmp(nlp->n_un.n_name,
76 &string_table[sizeof(string_table_size) +
77 symbols[i].n_un.n_strx]))
79 char *CONST name = nlp->n_un.n_name;
81 nlp->n_un.n_name = name;