eebb24ad20108563ccd753fb642c0fc189060489
1 /* GDB routines for manipulating objfiles.
2 Copyright 1992 Free Software Foundation, Inc.
3 Contributed by Cygnus Support, using pieces from other GDB modules.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
21 /* This file contains support routines for creating, manipulating, and
22 destroying objfile structures. */
25 #include "bfd.h" /* Binary File Description */
29 #include <sys/types.h>
34 /* Prototypes for local functions */
37 open_mapped_file
PARAMS ((char *basefile
, long mtime
, int mapped
));
40 map_to_address
PARAMS ((void));
42 /* Externally visible variables that are owned by this module. */
44 struct objfile
*object_files
; /* Linked list of all objfiles */
45 int mapped_symbol_files
; /* Try to use mapped symbol files */
47 /* Allocate a new objfile struct, fill it in as best we can, and return it.
48 It is also linked into the list of all known object files. */
51 allocate_objfile (abfd
, filename
, mapped
)
56 struct objfile
*objfile
= NULL
;
61 mapped
|= mapped_symbol_files
;
63 #if !defined(NO_MMALLOC) && defined(HAVE_MMAP)
65 /* If we can support mapped symbol files, try to open/reopen the mapped file
66 that corresponds to the file from which we wish to read symbols. If the
67 objfile is to be mapped, we must malloc the structure itself using the
68 mmap version, and arrange that all memory allocation for the objfile uses
69 the mmap routines. If we are reusing an existing mapped file, from which
70 we get our objfile pointer, we have to make sure that we update the
71 pointers to the alloc/free functions in the obstack, in case these
72 functions have moved within the current gdb. */
74 fd
= open_mapped_file (filename
, bfd_get_mtime (abfd
), mapped
);
77 if (((mapto
= map_to_address ()) == NULL
) ||
78 ((md
= mmalloc_attach (fd
, (void *) mapto
)) == NULL
))
82 else if ((objfile
= (struct objfile
*) mmalloc_getkey (md
, 0)) != NULL
)
85 /* Update pointers to functions to *our* copies */
86 obstack_chunkfun (&objfile
-> psymbol_obstack
, xmmalloc
);
87 obstack_freefun (&objfile
-> psymbol_obstack
, mfree
);
88 obstack_chunkfun (&objfile
-> symbol_obstack
, xmmalloc
);
89 obstack_freefun (&objfile
-> symbol_obstack
, mfree
);
90 obstack_chunkfun (&objfile
-> type_obstack
, xmmalloc
);
91 obstack_freefun (&objfile
-> type_obstack
, mfree
);
92 /* Update memory corruption handler function addresses */
93 init_malloc (objfile
-> md
);
97 objfile
= (struct objfile
*) xmmalloc (md
, sizeof (struct objfile
));
98 (void) memset (objfile
, 0, sizeof (struct objfile
));
100 objfile
-> flags
|= OBJF_MAPPED
;
101 mmalloc_setkey (objfile
-> md
, 0, objfile
);
102 obstack_full_begin (&objfile
-> psymbol_obstack
, 0, 0,
103 xmmalloc
, mfree
, objfile
-> md
,
104 OBSTACK_MMALLOC_LIKE
);
105 obstack_full_begin (&objfile
-> symbol_obstack
, 0, 0,
106 xmmalloc
, mfree
, objfile
-> md
,
107 OBSTACK_MMALLOC_LIKE
);
108 obstack_full_begin (&objfile
-> type_obstack
, 0, 0,
109 xmmalloc
, mfree
, objfile
-> md
,
110 OBSTACK_MMALLOC_LIKE
);
111 /* Set up to detect internal memory corruption */
112 init_malloc (objfile
-> md
);
116 if (mapped
&& (objfile
== NULL
))
118 warning ("symbol table for '%s' will not be mapped", filename
);
121 #else /* defined(NO_MMALLOC) || !defined(HAVE_MMAP) */
125 warning ("this version of gdb does not support mapped symbol tables.");
127 /* Turn off the global flag so we don't try to do mapped symbol tables
128 any more, which shuts up gdb unless the user specifically gives the
129 "mapped" keyword again. */
131 mapped_symbol_files
= 0;
134 #endif /* !defined(NO_MMALLOC) && defined(HAVE_MMAP) */
136 /* If we don't support mapped symbol files, didn't ask for the file to be
137 mapped, or failed to open the mapped file for some reason, then revert
138 back to an unmapped objfile. */
142 objfile
= (struct objfile
*) xmalloc (sizeof (struct objfile
));
143 (void) memset (objfile
, 0, sizeof (struct objfile
));
144 objfile
-> md
= NULL
;
145 obstack_full_begin (&objfile
-> psymbol_obstack
, 0, 0, xmalloc
, free
,
147 obstack_full_begin (&objfile
-> symbol_obstack
, 0, 0, xmalloc
, free
,
149 obstack_full_begin (&objfile
-> type_obstack
, 0, 0, xmalloc
, free
,
154 /* Now, malloc a fresh copy of the filename string. */
156 objfile
-> name
= xmmalloc (objfile
-> md
, strlen (filename
) + 1);
157 strcpy (objfile
-> name
, filename
);
159 objfile
-> obfd
= abfd
;
161 objfile
-> mtime
= bfd_get_mtime (abfd
);
163 /* Push this file onto the head of the linked list of other such files. */
165 objfile
-> next
= object_files
;
166 object_files
= objfile
;
172 /* Destroy an objfile and all the symtabs and psymtabs under it. Note
173 that as much as possible is allocated on the symbol_obstack and
174 psymbol_obstack, so that the memory can be efficiently freed. */
177 free_objfile (objfile
)
178 struct objfile
*objfile
;
184 mfree (objfile
-> md
, objfile
-> name
);
188 bfd_close (objfile
-> obfd
);
191 /* Remove it from the chain of all objfiles. */
193 if (object_files
== objfile
)
195 object_files
= objfile
-> next
;
199 for (ofp
= object_files
; ofp
; ofp
= ofp
-> next
)
201 if (ofp
-> next
== objfile
)
203 ofp
-> next
= objfile
-> next
;
208 obstack_free (&objfile
-> psymbol_obstack
, 0);
209 obstack_free (&objfile
-> symbol_obstack
, 0);
210 obstack_free (&objfile
-> type_obstack
, 0);
214 /* Before the symbol table code was redone to make it easier to
215 selectively load and remove information particular to a specific
216 linkage unit, gdb used to do these things whenever the monolithic
217 symbol table was blown away. How much still needs to be done
218 is unknown, but we play it safe for now and keep each action until
219 it is shown to be no longer needed. */
221 clear_symtab_users_once ();
222 #if defined (CLEAR_SOLIB)
225 clear_pc_function_cache ();
229 /* The last thing we do is free the objfile struct itself */
231 mfree (objfile
-> md
, objfile
);
235 /* Free all the object files at once. */
240 struct objfile
*objfile
, *temp
;
242 ALL_OBJFILES_SAFE (objfile
, temp
)
244 free_objfile (objfile
);
248 /* Many places in gdb want to test just to see if we have any partial
249 symbols available. This function returns zero if none are currently
250 available, nonzero otherwise. */
253 have_partial_symbols ()
258 for (ofp
= object_files
; ofp
; ofp
= ofp
-> next
)
260 if (ofp
-> psymtabs
!= NULL
)
269 /* Many places in gdb want to test just to see if we have any full
270 symbols available. This function returns zero if none are currently
271 available, nonzero otherwise. */
279 for (ofp
= object_files
; ofp
; ofp
= ofp
-> next
)
281 if (ofp
-> symtabs
!= NULL
)
290 /* Many places in gdb want to test just to see if we have any minimal
291 symbols available. This function returns zero if none are currently
292 available, nonzero otherwise. */
295 have_minimal_symbols ()
300 for (ofp
= object_files
; ofp
; ofp
= ofp
-> next
)
302 if (ofp
-> msymbols
!= NULL
)
311 /* Call the function specified by FUNC for each currently available objfile,
312 for as long as this function continues to return NULL. If the function
313 ever returns non-NULL, then the iteration over the objfiles is terminated,
314 and the result is returned to the caller. The function called has full
315 control over the form and content of the information returned via the
316 non-NULL result, which may be as simple as a pointer to the objfile that
317 the iteration terminated on, or as complex as a pointer to a private
318 structure containing multiple results. */
321 iterate_over_objfiles (func
, arg1
, arg2
, arg3
)
322 PTR (*func
) PARAMS ((struct objfile
*, PTR
, PTR
, PTR
));
327 register struct objfile
*objfile
;
330 for (objfile
= object_files
;
331 objfile
!= NULL
&& result
== NULL
;
332 objfile
= objfile
-> next
)
334 result
= (*func
)(objfile
, arg1
, arg2
, arg3
);
339 /* Call the function specified by FUNC for each currently available symbol
340 table, for as long as this function continues to return NULL. If the
341 function ever returns non-NULL, then the iteration over the symbol tables
342 is terminated, and the result is returned to the caller. The function
343 called has full control over the form and content of the information
344 returned via the non-NULL result, which may be as simple as a pointer
345 to the symtab that the iteration terminated on, or as complex as a
346 pointer to a private structure containing multiple results. */
349 iterate_over_symtabs (func
, arg1
, arg2
, arg3
)
350 PTR (*func
) PARAMS ((struct objfile
*, struct symtab
*, PTR
, PTR
, PTR
));
355 register struct objfile
*objfile
;
356 register struct symtab
*symtab
;
359 for (objfile
= object_files
;
360 objfile
!= NULL
&& result
== NULL
;
361 objfile
= objfile
-> next
)
363 for (symtab
= objfile
-> symtabs
;
364 symtab
!= NULL
&& result
== NULL
;
365 symtab
= symtab
-> next
)
367 result
= (*func
)(objfile
, symtab
, arg1
, arg2
, arg3
);
373 /* Call the function specified by FUNC for each currently available partial
374 symbol table, for as long as this function continues to return NULL. If
375 the function ever returns non-NULL, then the iteration over the partial
376 symbol tables is terminated, and the result is returned to the caller.
378 The function called has full control over the form and content of the
379 information returned via the non-NULL result, which may be as simple as a
380 pointer to the partial symbol table that the iteration terminated on, or
381 as complex as a pointer to a private structure containing multiple
385 iterate_over_psymtabs (func
, arg1
, arg2
, arg3
)
386 PTR (*func
) PARAMS ((struct objfile
*, struct partial_symtab
*,
392 register struct objfile
*objfile
;
393 register struct partial_symtab
*psymtab
;
396 for (objfile
= object_files
;
397 objfile
!= NULL
&& result
== NULL
;
398 objfile
= objfile
-> next
)
400 for (psymtab
= objfile
-> psymtabs
;
401 psymtab
!= NULL
&& result
== NULL
;
402 psymtab
= psymtab
-> next
)
404 result
= (*func
)(objfile
, psymtab
, arg1
, arg2
, arg3
);
411 /* Look for a mapped symbol file that corresponds to BASEFILE and is more
412 recent than MTIME. If MAPPED is nonzero, the user has asked that gdb
413 use a mapped symbol file for this base file, so create a new one if
414 one does not currently exist.
416 If found, then return an open file descriptor for the file, otherwise
419 This routine is responsible for implementing the policy that generates
420 the name of the mapped symbol file from the name of a file containing
421 symbols that gdb would like to read. */
424 open_mapped_file (basefile
, mtime
, mapped
)
433 /* For now, all we do is look in the local directory for a file with
434 the name of the base file and an extension of ".syms" */
436 symfilename
= concat ("./", basename (basefile
), ".syms", (char *) NULL
);
438 /* Check to see if the desired file already exists and is more recent than
439 the corresponding base file (specified by the passed MTIME parameter).
440 The open will fail if the file does not already exist. */
442 if ((fd
= open (symfilename
, O_RDWR
)) >= 0)
444 if (fstat (fd
, &sbuf
) != 0)
447 perror_with_name (symfilename
);
449 else if (sbuf
.st_mtime
> mtime
)
460 /* Either the file does not already exist, or the base file has changed
461 since it was created. In either case, if the user has specified use of
462 a mapped file, then create a new mapped file, truncating any existing
465 In the case where there is an existing file, but it is out of date, and
466 the user did not specify mapped, the existing file is just silently
467 ignored. Perhaps we should warn about this case (FIXME?).
469 By default the file is rw for everyone, with the user's umask taking
470 care of turning off the permissions the user wants off. */
474 fd
= open (symfilename
, O_RDWR
| O_CREAT
| O_TRUNC
, 0666);
480 /* Return the base address at which we would like the next objfile's
481 mapped data to start.
483 For now, we use the kludge that the configuration specifies a base
484 address to which it is safe to map the first mmalloc heap, and an
485 increment to add to this address for each successive heap. There are
486 a lot of issues to deal with here to make this work reasonably, including:
488 Avoid memory collisions with existing mapped address spaces
490 Reclaim address spaces when their mmalloc heaps are unmapped
492 When mmalloc heaps are shared between processes they have to be
493 mapped at the same addresses in each
495 Once created, a mmalloc heap that is to be mapped back in must be
496 mapped at the original address. I.E. each objfile will expect to
497 be remapped at it's original address. This becomes a problem if
498 the desired address is already in use.
509 #if defined(MMAP_BASE_ADDRESS) && defined (MMAP_INCREMENT)
511 static CORE_ADDR next
= MMAP_BASE_ADDRESS
;
512 CORE_ADDR mapto
= next
;
514 next
+= MMAP_INCREMENT
;
This page took 0.040764 seconds and 4 git commands to generate.