1 /* Copyright (C) 1991 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 2, 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
[symbols
[i
].n_un
.n_strx
-
77 sizeof(string_table_size
)]))
79 char *CONST name
= nlp
->n_un
.n_name
;
81 nlp
->n_un
.n_name
= name
;