1 /* BFD library -- caching of file descriptors.
3 Copyright 1990, 1991, 1992, 1993, 1994, 1996, 2000, 2001, 2002,
4 2003, 2004 Free Software Foundation, Inc.
6 Hacked by Steve Chamberlain of Cygnus Support (steve@cygnus.com).
8 This file is part of BFD, the Binary File Descriptor library.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
28 The file caching mechanism is embedded within BFD and allows
29 the application to open as many BFDs as it wants without
30 regard to the underlying operating system's file descriptor
31 limit (often as low as 20 open files). The module in
32 <<cache.c>> maintains a least recently used list of
33 <<BFD_CACHE_MAX_OPEN>> files, and exports the name
34 <<bfd_cache_lookup>>, which runs around and makes sure that
35 the required BFD is open. If not, then it chooses a file to
36 close, closes it and opens the one wanted, returning its file
46 #include "libiberty.h"
50 BFD_CACHE_MAX_OPEN macro
53 The maximum number of files which the cache will keep open at
56 .#define BFD_CACHE_MAX_OPEN 10
60 /* The number of BFD files we have open. */
62 static int open_files
;
69 extern bfd *bfd_last_cache;
72 Zero, or a pointer to the topmost BFD on the chain. This is
73 used by the <<bfd_cache_lookup>> macro in @file{libbfd.h} to
74 determine when it can avoid a function call.
77 bfd
*bfd_last_cache
= NULL
;
79 /* Insert a BFD into the cache. */
84 if (bfd_last_cache
== NULL
)
86 abfd
->lru_next
= abfd
;
87 abfd
->lru_prev
= abfd
;
91 abfd
->lru_next
= bfd_last_cache
;
92 abfd
->lru_prev
= bfd_last_cache
->lru_prev
;
93 abfd
->lru_prev
->lru_next
= abfd
;
94 abfd
->lru_next
->lru_prev
= abfd
;
96 bfd_last_cache
= abfd
;
99 /* Remove a BFD from the cache. */
104 abfd
->lru_prev
->lru_next
= abfd
->lru_next
;
105 abfd
->lru_next
->lru_prev
= abfd
->lru_prev
;
106 if (abfd
== bfd_last_cache
)
108 bfd_last_cache
= abfd
->lru_next
;
109 if (abfd
== bfd_last_cache
)
110 bfd_last_cache
= NULL
;
114 /* Close a BFD and remove it from the cache. */
117 bfd_cache_delete (bfd
*abfd
)
121 if (fclose ((FILE *) abfd
->iostream
) == 0)
126 bfd_set_error (bfd_error_system_call
);
131 abfd
->iostream
= NULL
;
137 /* We need to open a new file, and the cache is full. Find the least
138 recently used cacheable BFD and close it. */
145 if (bfd_last_cache
== NULL
)
149 for (kill
= bfd_last_cache
->lru_prev
;
151 kill
= kill
->lru_prev
)
153 if (kill
== bfd_last_cache
)
163 /* There are no open cacheable BFD's. */
167 kill
->where
= real_ftell ((FILE *) kill
->iostream
);
169 return bfd_cache_delete (kill
);
177 Check to see if the required BFD is the same as the last one
178 looked up. If so, then it can use the stream in the BFD with
179 impunity, since it can't have changed since the last lookup;
180 otherwise, it has to perform the complicated lookup function.
182 .#define bfd_cache_lookup(x) \
183 . ((x) == bfd_last_cache ? \
184 . (FILE *) (bfd_last_cache->iostream): \
185 . bfd_cache_lookup_worker (x))
191 bfd_cache_lookup_worker
194 FILE *bfd_cache_lookup_worker (bfd *abfd);
197 Called when the macro <<bfd_cache_lookup>> fails to find a
198 quick answer. Find a file descriptor for @var{abfd}. If
199 necessary, it open it. If there are already more than
200 <<BFD_CACHE_MAX_OPEN>> files open, it tries to close one first, to
201 avoid running out of file descriptors. It will return NULL
202 if it is unable to (re)open the @var{abfd}.
206 bfd_cache_lookup_worker (bfd
*abfd
)
208 bfd
*orig_bfd
= abfd
;
209 if ((abfd
->flags
& BFD_IN_MEMORY
) != 0)
212 if (abfd
->my_archive
)
213 abfd
= abfd
->my_archive
;
215 if (abfd
->iostream
!= NULL
)
217 /* Move the file to the start of the cache. */
218 if (abfd
!= bfd_last_cache
)
223 return (FILE *) abfd
->iostream
;
226 if (bfd_open_file (abfd
) == NULL
)
228 else if (real_fseek ((FILE *) abfd
->iostream
, abfd
->where
, SEEK_SET
) != 0)
229 bfd_set_error (bfd_error_system_call
);
231 return (FILE *) abfd
->iostream
;
233 (*_bfd_error_handler
) (_("reopening %B: %s\n"),
234 orig_bfd
, bfd_errmsg (bfd_get_error ()));
239 cache_btell (struct bfd
*abfd
)
241 FILE *f
= bfd_cache_lookup (abfd
);
244 return real_ftell (f
);
248 cache_bseek (struct bfd
*abfd
, file_ptr offset
, int whence
)
250 FILE *f
= bfd_cache_lookup (abfd
);
253 return real_fseek (f
, offset
, whence
);
256 /* Note that archive entries don't have streams; they share their parent's.
257 This allows someone to play with the iostream behind BFD's back.
259 Also, note that the origin pointer points to the beginning of a file's
260 contents (0 for non-archive elements). For archive entries this is the
261 first octet in the file, NOT the beginning of the archive header. */
264 cache_bread (struct bfd
*abfd
, void *buf
, file_ptr nbytes
)
268 /* FIXME - this looks like an optimization, but it's really to cover
269 up for a feature of some OSs (not solaris - sigh) that
270 ld/pe-dll.c takes advantage of (apparently) when it creates BFDs
271 internally and tries to link against them. BFD seems to be smart
272 enough to realize there are no symbol records in the "file" that
273 doesn't exist but attempts to read them anyway. On Solaris,
274 attempting to read zero bytes from a NULL file results in a core
275 dump, but on other platforms it just returns zero bytes read.
276 This makes it to something reasonable. - DJ */
280 f
= bfd_cache_lookup (abfd
);
284 #if defined (__VAX) && defined (VMS)
285 /* Apparently fread on Vax VMS does not keep the record length
287 nread
= read (fileno (f
), buf
, nbytes
);
288 /* Set bfd_error if we did not read as much data as we expected. If
289 the read failed due to an error set the bfd_error_system_call,
290 else set bfd_error_file_truncated. */
291 if (nread
== (file_ptr
)-1)
293 bfd_set_error (bfd_error_system_call
);
297 nread
= fread (buf
, 1, nbytes
, f
);
298 /* Set bfd_error if we did not read as much data as we expected. If
299 the read failed due to an error set the bfd_error_system_call,
300 else set bfd_error_file_truncated. */
301 if (nread
< nbytes
&& ferror (f
))
303 bfd_set_error (bfd_error_system_call
);
311 cache_bwrite (struct bfd
*abfd
, const void *where
, file_ptr nbytes
)
314 FILE *f
= bfd_cache_lookup (abfd
);
317 nwrite
= fwrite (where
, 1, nbytes
, f
);
318 if (nwrite
< nbytes
&& ferror (f
))
320 bfd_set_error (bfd_error_system_call
);
327 cache_bclose (struct bfd
*abfd
)
329 return bfd_cache_close (abfd
);
333 cache_bflush (struct bfd
*abfd
)
336 FILE *f
= bfd_cache_lookup (abfd
);
341 bfd_set_error (bfd_error_system_call
);
346 cache_bstat (struct bfd
*abfd
, struct stat
*sb
)
349 FILE *f
= bfd_cache_lookup (abfd
);
352 sts
= fstat (fileno (f
), sb
);
354 bfd_set_error (bfd_error_system_call
);
358 static const struct bfd_iovec cache_iovec
= {
359 &cache_bread
, &cache_bwrite
, &cache_btell
, &cache_bseek
,
360 &cache_bclose
, &cache_bflush
, &cache_bstat
368 bfd_boolean bfd_cache_init (bfd *abfd);
371 Add a newly opened BFD to the cache.
375 bfd_cache_init (bfd
*abfd
)
377 BFD_ASSERT (abfd
->iostream
!= NULL
);
378 if (open_files
>= BFD_CACHE_MAX_OPEN
)
383 abfd
->iovec
= &cache_iovec
;
394 bfd_boolean bfd_cache_close (bfd *abfd);
397 Remove the BFD @var{abfd} from the cache. If the attached file is open,
401 <<FALSE>> is returned if closing the file fails, <<TRUE>> is
402 returned if all is well.
406 bfd_cache_close (bfd
*abfd
)
408 if (abfd
->iovec
!= &cache_iovec
)
411 if (abfd
->iostream
== NULL
)
412 /* Previously closed. */
415 return bfd_cache_delete (abfd
);
423 bfd_boolean bfd_cache_close_all (void);
426 Remove all BFDs from the cache. If the attached file is open,
430 <<FALSE>> is returned if closing one of the file fails, <<TRUE>> is
431 returned if all is well.
435 bfd_cache_close_all ()
437 bfd_boolean ret
= TRUE
;
439 while (bfd_last_cache
!= NULL
)
440 ret
&= bfd_cache_close (bfd_last_cache
);
450 FILE* bfd_open_file (bfd *abfd);
453 Call the OS to open a file for @var{abfd}. Return the <<FILE *>>
454 (possibly <<NULL>>) that results from this operation. Set up the
455 BFD so that future accesses know the file is open. If the <<FILE *>>
456 returned is <<NULL>>, then it won't have been put in the
457 cache, so it won't have to be removed from it.
461 bfd_open_file (bfd
*abfd
)
463 abfd
->cacheable
= TRUE
; /* Allow it to be closed later. */
465 if (open_files
>= BFD_CACHE_MAX_OPEN
)
471 switch (abfd
->direction
)
475 abfd
->iostream
= (PTR
) fopen (abfd
->filename
, FOPEN_RB
);
478 case write_direction
:
479 if (abfd
->opened_once
)
481 abfd
->iostream
= (PTR
) fopen (abfd
->filename
, FOPEN_RUB
);
482 if (abfd
->iostream
== NULL
)
483 abfd
->iostream
= (PTR
) fopen (abfd
->filename
, FOPEN_WUB
);
489 Some operating systems won't let us overwrite a running
490 binary. For them, we want to unlink the file first.
492 However, gcc 2.95 will create temporary files using
493 O_EXCL and tight permissions to prevent other users from
494 substituting other .o files during the compilation. gcc
495 will then tell the assembler to use the newly created
496 file as an output file. If we unlink the file here, we
497 open a brief window when another user could still
500 So we unlink the output file if and only if it has
503 /* Don't do this for MSDOS: it doesn't care about overwriting
504 a running binary, but if this file is already open by
505 another BFD, we will be in deep trouble if we delete an
506 open file. In fact, objdump does just that if invoked with
507 the --info option. */
510 if (stat (abfd
->filename
, &s
) == 0 && s
.st_size
!= 0)
511 unlink_if_ordinary (abfd
->filename
);
513 abfd
->iostream
= (PTR
) fopen (abfd
->filename
, FOPEN_WUB
);
514 abfd
->opened_once
= TRUE
;
519 if (abfd
->iostream
== NULL
)
520 bfd_set_error (bfd_error_system_call
);
523 if (! bfd_cache_init (abfd
))
527 return (FILE *) abfd
->iostream
;