1 /* elfcomm.c -- common code for ELF format file.
2 Copyright (C) 2010-2020 Free Software Foundation, Inc.
4 Originally developed by Eric Youngdale <eric@andante.jic.com>
5 Modifications by Nick Clifton <nickc@redhat.com>
7 This file is part of GNU Binutils.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
25 #include "libiberty.h"
26 #include "filenames.h"
34 error (const char *message
, ...)
38 /* Try to keep error messages in sync with the program's normal output. */
41 va_start (args
, message
);
42 fprintf (stderr
, _("%s: Error: "), program_name
);
43 vfprintf (stderr
, message
, args
);
48 warn (const char *message
, ...)
52 /* Try to keep warning messages in sync with the program's normal output. */
55 va_start (args
, message
);
56 fprintf (stderr
, _("%s: Warning: "), program_name
);
57 vfprintf (stderr
, message
, args
);
61 void (*byte_put
) (unsigned char *, elf_vma
, int);
64 byte_put_little_endian (unsigned char * field
, elf_vma value
, int size
)
69 field
[7] = (((value
>> 24) >> 24) >> 8) & 0xff;
70 field
[6] = ((value
>> 24) >> 24) & 0xff;
71 field
[5] = ((value
>> 24) >> 16) & 0xff;
72 field
[4] = ((value
>> 24) >> 8) & 0xff;
75 field
[3] = (value
>> 24) & 0xff;
78 field
[2] = (value
>> 16) & 0xff;
81 field
[1] = (value
>> 8) & 0xff;
84 field
[0] = value
& 0xff;
88 error (_("Unhandled data length: %d\n"), size
);
94 byte_put_big_endian (unsigned char * field
, elf_vma value
, int size
)
99 field
[7] = value
& 0xff;
100 field
[6] = (value
>> 8) & 0xff;
101 field
[5] = (value
>> 16) & 0xff;
102 field
[4] = (value
>> 24) & 0xff;
107 field
[3] = value
& 0xff;
111 field
[2] = value
& 0xff;
115 field
[1] = value
& 0xff;
119 field
[0] = value
& 0xff;
123 error (_("Unhandled data length: %d\n"), size
);
128 elf_vma (*byte_get
) (const unsigned char *, int);
131 byte_get_little_endian (const unsigned char *field
, int size
)
139 return ((unsigned int) (field
[0]))
140 | (((unsigned int) (field
[1])) << 8);
143 return ((unsigned long) (field
[0]))
144 | (((unsigned long) (field
[1])) << 8)
145 | (((unsigned long) (field
[2])) << 16);
148 return ((unsigned long) (field
[0]))
149 | (((unsigned long) (field
[1])) << 8)
150 | (((unsigned long) (field
[2])) << 16)
151 | (((unsigned long) (field
[3])) << 24);
154 if (sizeof (elf_vma
) == 8)
155 return ((elf_vma
) (field
[0]))
156 | (((elf_vma
) (field
[1])) << 8)
157 | (((elf_vma
) (field
[2])) << 16)
158 | (((elf_vma
) (field
[3])) << 24)
159 | (((elf_vma
) (field
[4])) << 32);
160 else if (sizeof (elf_vma
) == 4)
161 /* We want to extract data from an 8 byte wide field and
162 place it into a 4 byte wide field. Since this is a little
163 endian source we can just use the 4 byte extraction code. */
164 return ((unsigned long) (field
[0]))
165 | (((unsigned long) (field
[1])) << 8)
166 | (((unsigned long) (field
[2])) << 16)
167 | (((unsigned long) (field
[3])) << 24);
171 if (sizeof (elf_vma
) == 8)
172 return ((elf_vma
) (field
[0]))
173 | (((elf_vma
) (field
[1])) << 8)
174 | (((elf_vma
) (field
[2])) << 16)
175 | (((elf_vma
) (field
[3])) << 24)
176 | (((elf_vma
) (field
[4])) << 32)
177 | (((elf_vma
) (field
[5])) << 40);
178 else if (sizeof (elf_vma
) == 4)
179 /* We want to extract data from an 8 byte wide field and
180 place it into a 4 byte wide field. Since this is a little
181 endian source we can just use the 4 byte extraction code. */
182 return ((unsigned long) (field
[0]))
183 | (((unsigned long) (field
[1])) << 8)
184 | (((unsigned long) (field
[2])) << 16)
185 | (((unsigned long) (field
[3])) << 24);
189 if (sizeof (elf_vma
) == 8)
190 return ((elf_vma
) (field
[0]))
191 | (((elf_vma
) (field
[1])) << 8)
192 | (((elf_vma
) (field
[2])) << 16)
193 | (((elf_vma
) (field
[3])) << 24)
194 | (((elf_vma
) (field
[4])) << 32)
195 | (((elf_vma
) (field
[5])) << 40)
196 | (((elf_vma
) (field
[6])) << 48);
197 else if (sizeof (elf_vma
) == 4)
198 /* We want to extract data from an 8 byte wide field and
199 place it into a 4 byte wide field. Since this is a little
200 endian source we can just use the 4 byte extraction code. */
201 return ((unsigned long) (field
[0]))
202 | (((unsigned long) (field
[1])) << 8)
203 | (((unsigned long) (field
[2])) << 16)
204 | (((unsigned long) (field
[3])) << 24);
208 if (sizeof (elf_vma
) == 8)
209 return ((elf_vma
) (field
[0]))
210 | (((elf_vma
) (field
[1])) << 8)
211 | (((elf_vma
) (field
[2])) << 16)
212 | (((elf_vma
) (field
[3])) << 24)
213 | (((elf_vma
) (field
[4])) << 32)
214 | (((elf_vma
) (field
[5])) << 40)
215 | (((elf_vma
) (field
[6])) << 48)
216 | (((elf_vma
) (field
[7])) << 56);
217 else if (sizeof (elf_vma
) == 4)
218 /* We want to extract data from an 8 byte wide field and
219 place it into a 4 byte wide field. Since this is a little
220 endian source we can just use the 4 byte extraction code. */
221 return ((unsigned long) (field
[0]))
222 | (((unsigned long) (field
[1])) << 8)
223 | (((unsigned long) (field
[2])) << 16)
224 | (((unsigned long) (field
[3])) << 24);
228 error (_("Unhandled data length: %d\n"), size
);
234 byte_get_big_endian (const unsigned char *field
, int size
)
242 return ((unsigned int) (field
[1])) | (((int) (field
[0])) << 8);
245 return ((unsigned long) (field
[2]))
246 | (((unsigned long) (field
[1])) << 8)
247 | (((unsigned long) (field
[0])) << 16);
250 return ((unsigned long) (field
[3]))
251 | (((unsigned long) (field
[2])) << 8)
252 | (((unsigned long) (field
[1])) << 16)
253 | (((unsigned long) (field
[0])) << 24);
256 if (sizeof (elf_vma
) == 8)
257 return ((elf_vma
) (field
[4]))
258 | (((elf_vma
) (field
[3])) << 8)
259 | (((elf_vma
) (field
[2])) << 16)
260 | (((elf_vma
) (field
[1])) << 24)
261 | (((elf_vma
) (field
[0])) << 32);
262 else if (sizeof (elf_vma
) == 4)
264 /* Although we are extracting data from an 8 byte wide field,
265 we are returning only 4 bytes of data. */
267 return ((unsigned long) (field
[3]))
268 | (((unsigned long) (field
[2])) << 8)
269 | (((unsigned long) (field
[1])) << 16)
270 | (((unsigned long) (field
[0])) << 24);
275 if (sizeof (elf_vma
) == 8)
276 return ((elf_vma
) (field
[5]))
277 | (((elf_vma
) (field
[4])) << 8)
278 | (((elf_vma
) (field
[3])) << 16)
279 | (((elf_vma
) (field
[2])) << 24)
280 | (((elf_vma
) (field
[1])) << 32)
281 | (((elf_vma
) (field
[0])) << 40);
282 else if (sizeof (elf_vma
) == 4)
284 /* Although we are extracting data from an 8 byte wide field,
285 we are returning only 4 bytes of data. */
287 return ((unsigned long) (field
[3]))
288 | (((unsigned long) (field
[2])) << 8)
289 | (((unsigned long) (field
[1])) << 16)
290 | (((unsigned long) (field
[0])) << 24);
295 if (sizeof (elf_vma
) == 8)
296 return ((elf_vma
) (field
[6]))
297 | (((elf_vma
) (field
[5])) << 8)
298 | (((elf_vma
) (field
[4])) << 16)
299 | (((elf_vma
) (field
[3])) << 24)
300 | (((elf_vma
) (field
[2])) << 32)
301 | (((elf_vma
) (field
[1])) << 40)
302 | (((elf_vma
) (field
[0])) << 48);
303 else if (sizeof (elf_vma
) == 4)
305 /* Although we are extracting data from an 8 byte wide field,
306 we are returning only 4 bytes of data. */
308 return ((unsigned long) (field
[3]))
309 | (((unsigned long) (field
[2])) << 8)
310 | (((unsigned long) (field
[1])) << 16)
311 | (((unsigned long) (field
[0])) << 24);
316 if (sizeof (elf_vma
) == 8)
317 return ((elf_vma
) (field
[7]))
318 | (((elf_vma
) (field
[6])) << 8)
319 | (((elf_vma
) (field
[5])) << 16)
320 | (((elf_vma
) (field
[4])) << 24)
321 | (((elf_vma
) (field
[3])) << 32)
322 | (((elf_vma
) (field
[2])) << 40)
323 | (((elf_vma
) (field
[1])) << 48)
324 | (((elf_vma
) (field
[0])) << 56);
325 else if (sizeof (elf_vma
) == 4)
327 /* Although we are extracting data from an 8 byte wide field,
328 we are returning only 4 bytes of data. */
330 return ((unsigned long) (field
[3]))
331 | (((unsigned long) (field
[2])) << 8)
332 | (((unsigned long) (field
[1])) << 16)
333 | (((unsigned long) (field
[0])) << 24);
338 error (_("Unhandled data length: %d\n"), size
);
344 byte_get_signed (const unsigned char *field
, int size
)
346 elf_vma x
= byte_get (field
, size
);
351 return (x
^ 0x80) - 0x80;
353 return (x
^ 0x8000) - 0x8000;
355 return (x
^ 0x800000) - 0x800000;
357 return (x
^ 0x80000000) - 0x80000000;
362 /* Reads of 5-, 6-, and 7-byte numbers are the result of
363 trying to read past the end of a buffer, and will therefore
364 not have meaningful values, so we don't try to deal with
365 the sign in these cases. */
372 /* Return the high-order 32-bits and the low-order 32-bits
373 of an 8-byte value separately. */
376 byte_get_64 (const unsigned char *field
, elf_vma
*high
, elf_vma
*low
)
378 if (byte_get
== byte_get_big_endian
)
380 *high
= byte_get_big_endian (field
, 4);
381 *low
= byte_get_big_endian (field
+ 4, 4);
385 *high
= byte_get_little_endian (field
+ 4, 4);
386 *low
= byte_get_little_endian (field
, 4);
391 /* Return the path name for a proxy entry in a thin archive, adjusted
392 relative to the path name of the thin archive itself if necessary.
393 Always returns a pointer to malloc'ed memory. */
396 adjust_relative_path (const char *file_name
, const char *name
,
397 unsigned long name_len
)
399 char * member_file_name
;
400 const char * base_name
= lbasename (file_name
);
403 /* This is a proxy entry for a thin archive member.
404 If the extended name table contains an absolute path
405 name, or if the archive is in the current directory,
406 use the path name as given. Otherwise, we need to
407 find the member relative to the directory where the
408 archive is located. */
409 if (IS_ABSOLUTE_PATH (name
) || base_name
== file_name
)
414 member_file_name
= (char *) malloc (amt
);
415 if (member_file_name
== NULL
)
417 error (_("Out of memory\n"));
420 memcpy (member_file_name
, name
, name_len
);
421 member_file_name
[name_len
] = '\0';
425 /* Concatenate the path components of the archive file name
426 to the relative path name from the extended name table. */
427 size_t prefix_len
= base_name
- file_name
;
429 amt
= prefix_len
+ name_len
+ 1;
430 /* PR 17531: file: 2896dc8b
432 if (amt
< prefix_len
|| amt
< name_len
)
434 error (_("Abnormal length of thin archive member name: %lx\n"),
439 member_file_name
= (char *) malloc (amt
);
440 if (member_file_name
== NULL
)
442 error (_("Out of memory\n"));
445 memcpy (member_file_name
, file_name
, prefix_len
);
446 memcpy (member_file_name
+ prefix_len
, name
, name_len
);
447 member_file_name
[prefix_len
+ name_len
] = '\0';
449 return member_file_name
;
452 /* Processes the archive index table and symbol table in ARCH.
453 Entries in the index table are SIZEOF_AR_INDEX bytes long.
454 Fills in ARCH->next_arhdr_offset and ARCH->arhdr.
455 If READ_SYMBOLS is true then fills in ARCH->index_num, ARCH->index_array,
456 ARCH->sym_size and ARCH->sym_table.
457 It is the caller's responsibility to free ARCH->index_array and
459 Returns TRUE upon success, FALSE otherwise.
460 If failure occurs an error message is printed. */
463 process_archive_index_and_symbols (struct archive_info
* arch
,
464 unsigned int sizeof_ar_index
,
465 bfd_boolean read_symbols
)
471 fmag_save
= arch
->arhdr
.ar_fmag
[0];
472 arch
->arhdr
.ar_fmag
[0] = 0;
473 size
= strtoul (arch
->arhdr
.ar_size
, NULL
, 10);
474 arch
->arhdr
.ar_fmag
[0] = fmag_save
;
475 /* PR 17531: file: 912bd7de. */
476 if ((signed long) size
< 0)
478 error (_("%s: invalid archive header size: %ld\n"),
479 arch
->file_name
, size
);
483 size
= size
+ (size
& 1);
485 arch
->next_arhdr_offset
+= sizeof arch
->arhdr
+ size
;
489 if (fseek (arch
->file
, size
, SEEK_CUR
) != 0)
491 error (_("%s: failed to skip archive symbol table\n"),
499 /* A buffer used to hold numbers read in from an archive index.
500 These are always SIZEOF_AR_INDEX bytes long and stored in
501 big-endian format. */
502 unsigned char integer_buffer
[sizeof arch
->index_num
];
503 unsigned char * index_buffer
;
505 assert (sizeof_ar_index
<= sizeof integer_buffer
);
507 /* Check the size of the archive index. */
508 if (size
< sizeof_ar_index
)
510 error (_("%s: the archive index is empty\n"), arch
->file_name
);
514 /* Read the number of entries in the archive index. */
515 got
= fread (integer_buffer
, 1, sizeof_ar_index
, arch
->file
);
516 if (got
!= sizeof_ar_index
)
518 error (_("%s: failed to read archive index\n"), arch
->file_name
);
522 arch
->index_num
= byte_get_big_endian (integer_buffer
, sizeof_ar_index
);
523 size
-= sizeof_ar_index
;
525 if (size
< arch
->index_num
* sizeof_ar_index
526 /* PR 17531: file: 585515d1. */
527 || size
< arch
->index_num
)
529 error (_("%s: the archive index is supposed to have 0x%lx entries of %d bytes, but the size is only 0x%lx\n"),
530 arch
->file_name
, (long) arch
->index_num
, sizeof_ar_index
, size
);
534 /* Read in the archive index. */
535 index_buffer
= (unsigned char *)
536 malloc (arch
->index_num
* sizeof_ar_index
);
537 if (index_buffer
== NULL
)
539 error (_("Out of memory whilst trying to read archive symbol index\n"));
543 got
= fread (index_buffer
, sizeof_ar_index
, arch
->index_num
, arch
->file
);
544 if (got
!= arch
->index_num
)
547 error (_("%s: failed to read archive index\n"), arch
->file_name
);
551 size
-= arch
->index_num
* sizeof_ar_index
;
553 /* Convert the index numbers into the host's numeric format. */
554 arch
->index_array
= (elf_vma
*)
555 malloc (arch
->index_num
* sizeof (* arch
->index_array
));
556 if (arch
->index_array
== NULL
)
559 error (_("Out of memory whilst trying to convert the archive symbol index\n"));
563 for (i
= 0; i
< arch
->index_num
; i
++)
564 arch
->index_array
[i
] =
565 byte_get_big_endian ((unsigned char *) (index_buffer
+ (i
* sizeof_ar_index
)),
569 /* The remaining space in the header is taken up by the symbol table. */
572 error (_("%s: the archive has an index but no symbols\n"),
577 arch
->sym_table
= (char *) malloc (size
);
578 if (arch
->sym_table
== NULL
)
580 error (_("Out of memory whilst trying to read archive index symbol table\n"));
584 arch
->sym_size
= size
;
585 got
= fread (arch
->sym_table
, 1, size
, arch
->file
);
588 error (_("%s: failed to read archive index symbol table\n"),
594 /* Read the next archive header. */
595 got
= fread (&arch
->arhdr
, 1, sizeof arch
->arhdr
, arch
->file
);
596 if (got
!= sizeof arch
->arhdr
&& got
!= 0)
598 error (_("%s: failed to read archive header following archive index\n"),
606 /* Read the symbol table and long-name table from an archive. */
609 setup_archive (struct archive_info
*arch
, const char *file_name
,
610 FILE *file
, bfd_size_type file_size
,
611 bfd_boolean is_thin_archive
, bfd_boolean read_symbols
)
615 arch
->file_name
= strdup (file_name
);
618 arch
->index_array
= NULL
;
619 arch
->sym_table
= NULL
;
621 arch
->longnames
= NULL
;
622 arch
->longnames_size
= 0;
623 arch
->nested_member_origin
= 0;
624 arch
->is_thin_archive
= is_thin_archive
;
625 arch
->uses_64bit_indices
= FALSE
;
626 arch
->next_arhdr_offset
= SARMAG
;
628 /* Read the first archive member header. */
629 if (fseek (file
, SARMAG
, SEEK_SET
) != 0)
631 error (_("%s: failed to seek to first archive header\n"), file_name
);
634 got
= fread (&arch
->arhdr
, 1, sizeof arch
->arhdr
, file
);
635 if (got
!= sizeof arch
->arhdr
)
640 error (_("%s: failed to read archive header\n"), file_name
);
644 /* See if this is the archive symbol table. */
645 if (const_strneq (arch
->arhdr
.ar_name
, "/ "))
647 if (! process_archive_index_and_symbols (arch
, 4, read_symbols
))
650 else if (const_strneq (arch
->arhdr
.ar_name
, "/SYM64/ "))
652 arch
->uses_64bit_indices
= TRUE
;
653 if (! process_archive_index_and_symbols (arch
, 8, read_symbols
))
656 else if (read_symbols
)
657 printf (_("%s has no archive index\n"), file_name
);
659 if (const_strneq (arch
->arhdr
.ar_name
, "// "))
661 /* This is the archive string table holding long member names. */
662 char fmag_save
= arch
->arhdr
.ar_fmag
[0];
663 arch
->arhdr
.ar_fmag
[0] = 0;
664 arch
->longnames_size
= strtoul (arch
->arhdr
.ar_size
, NULL
, 10);
665 arch
->arhdr
.ar_fmag
[0] = fmag_save
;
666 /* PR 17531: file: 01068045. */
667 if (arch
->longnames_size
< 8)
669 error (_("%s: long name table is too small, (size = %ld)\n"),
670 file_name
, arch
->longnames_size
);
673 /* PR 17531: file: 639d6a26. */
674 if (arch
->longnames_size
> file_size
675 || (signed long) arch
->longnames_size
< 0)
677 error (_("%s: long name table is too big, (size = 0x%lx)\n"),
678 file_name
, arch
->longnames_size
);
682 arch
->next_arhdr_offset
+= sizeof arch
->arhdr
+ arch
->longnames_size
;
684 /* Plus one to allow for a string terminator. */
685 arch
->longnames
= (char *) malloc (arch
->longnames_size
+ 1);
686 if (arch
->longnames
== NULL
)
688 error (_("Out of memory reading long symbol names in archive\n"));
692 if (fread (arch
->longnames
, arch
->longnames_size
, 1, file
) != 1)
694 free (arch
->longnames
);
695 arch
->longnames
= NULL
;
696 error (_("%s: failed to read long symbol name string table\n"),
701 if ((arch
->longnames_size
& 1) != 0)
704 arch
->longnames
[arch
->longnames_size
] = 0;
710 /* Open and setup a nested archive, if not already open. */
713 setup_nested_archive (struct archive_info
*nested_arch
,
714 const char *member_file_name
)
719 /* Have we already setup this archive? */
720 if (nested_arch
->file_name
!= NULL
721 && streq (nested_arch
->file_name
, member_file_name
))
724 /* Close previous file and discard cached information. */
725 if (nested_arch
->file
!= NULL
)
726 fclose (nested_arch
->file
);
727 release_archive (nested_arch
);
729 member_file
= fopen (member_file_name
, "rb");
730 if (member_file
== NULL
)
732 if (fstat (fileno (member_file
), &statbuf
) < 0)
734 return setup_archive (nested_arch
, member_file_name
, member_file
,
735 statbuf
.st_size
, FALSE
, FALSE
);
738 /* Release the memory used for the archive information. */
741 release_archive (struct archive_info
* arch
)
743 if (arch
->file_name
!= NULL
)
744 free (arch
->file_name
);
745 if (arch
->index_array
!= NULL
)
746 free (arch
->index_array
);
747 if (arch
->sym_table
!= NULL
)
748 free (arch
->sym_table
);
749 if (arch
->longnames
!= NULL
)
750 free (arch
->longnames
);
753 /* Get the name of an archive member from the current archive header.
754 For simple names, this will modify the ar_name field of the current
755 archive header. For long names, it will return a pointer to the
756 longnames table. For nested archives, it will open the nested archive
757 and get the name recursively. NESTED_ARCH is a single-entry cache so
758 we don't keep rereading the same information from a nested archive. */
761 get_archive_member_name (struct archive_info
*arch
,
762 struct archive_info
*nested_arch
)
766 if (arch
->arhdr
.ar_name
[0] == '/')
768 /* We have a long name. */
770 char *member_file_name
;
774 if (arch
->longnames
== NULL
|| arch
->longnames_size
== 0)
776 error (_("Archive member uses long names, but no longname table found\n"));
780 arch
->nested_member_origin
= 0;
781 fmag_save
= arch
->arhdr
.ar_fmag
[0];
782 arch
->arhdr
.ar_fmag
[0] = 0;
783 k
= j
= strtoul (arch
->arhdr
.ar_name
+ 1, &endp
, 10);
784 if (arch
->is_thin_archive
&& endp
!= NULL
&& * endp
== ':')
785 arch
->nested_member_origin
= strtoul (endp
+ 1, NULL
, 10);
786 arch
->arhdr
.ar_fmag
[0] = fmag_save
;
788 if (j
> arch
->longnames_size
)
790 error (_("Found long name index (%ld) beyond end of long name table\n"),j
);
793 while ((j
< arch
->longnames_size
)
794 && (arch
->longnames
[j
] != '\n')
795 && (arch
->longnames
[j
] != '\0'))
797 if (j
> 0 && arch
->longnames
[j
-1] == '/')
799 if (j
> arch
->longnames_size
)
800 j
= arch
->longnames_size
;
801 arch
->longnames
[j
] = '\0';
803 if (!arch
->is_thin_archive
|| arch
->nested_member_origin
== 0)
804 return xstrdup (arch
->longnames
+ k
);
806 /* PR 17531: file: 2896dc8b. */
809 error (_("Invalid Thin archive member name\n"));
813 /* This is a proxy for a member of a nested archive.
814 Find the name of the member in that archive. */
815 member_file_name
= adjust_relative_path (arch
->file_name
,
816 arch
->longnames
+ k
, j
- k
);
817 if (member_file_name
!= NULL
818 && setup_nested_archive (nested_arch
, member_file_name
) == 0)
820 member_name
= get_archive_member_name_at (nested_arch
,
821 arch
->nested_member_origin
,
823 if (member_name
!= NULL
)
825 free (member_file_name
);
829 free (member_file_name
);
831 /* Last resort: just return the name of the nested archive. */
832 return xstrdup (arch
->longnames
+ k
);
835 /* We have a normal (short) name. */
836 for (j
= 0; j
< sizeof (arch
->arhdr
.ar_name
); j
++)
837 if (arch
->arhdr
.ar_name
[j
] == '/')
839 arch
->arhdr
.ar_name
[j
] = '\0';
840 return xstrdup (arch
->arhdr
.ar_name
);
843 /* The full ar_name field is used. Don't rely on ar_date starting
846 char *name
= xmalloc (sizeof (arch
->arhdr
.ar_name
) + 1);
847 memcpy (name
, arch
->arhdr
.ar_name
, sizeof (arch
->arhdr
.ar_name
));
848 name
[sizeof (arch
->arhdr
.ar_name
)] = '\0';
853 /* Get the name of an archive member at a given OFFSET within an archive
857 get_archive_member_name_at (struct archive_info
*arch
,
858 unsigned long offset
,
859 struct archive_info
*nested_arch
)
863 if (fseek (arch
->file
, offset
, SEEK_SET
) != 0)
865 error (_("%s: failed to seek to next file name\n"), arch
->file_name
);
868 got
= fread (&arch
->arhdr
, 1, sizeof arch
->arhdr
, arch
->file
);
869 if (got
!= sizeof arch
->arhdr
)
871 error (_("%s: failed to read archive header\n"), arch
->file_name
);
874 if (memcmp (arch
->arhdr
.ar_fmag
, ARFMAG
, 2) != 0)
876 error (_("%s: did not find a valid archive header\n"),
881 return get_archive_member_name (arch
, nested_arch
);
884 /* Construct a string showing the name of the archive member, qualified
885 with the name of the containing archive file. For thin archives, we
886 use square brackets to denote the indirection. For nested archives,
887 we show the qualified name of the external member inside the square
888 brackets (e.g., "thin.a[normal.a(foo.o)]"). */
891 make_qualified_name (struct archive_info
* arch
,
892 struct archive_info
* nested_arch
,
893 const char *member_name
)
895 const char * error_name
= _("<corrupt>");
899 len
= strlen (arch
->file_name
) + strlen (member_name
) + 3;
900 if (arch
->is_thin_archive
901 && arch
->nested_member_origin
!= 0)
903 /* PR 15140: Allow for corrupt thin archives. */
904 if (nested_arch
->file_name
)
905 len
+= strlen (nested_arch
->file_name
) + 2;
907 len
+= strlen (error_name
) + 2;
910 name
= (char *) malloc (len
);
913 error (_("Out of memory\n"));
917 if (arch
->is_thin_archive
918 && arch
->nested_member_origin
!= 0)
920 if (nested_arch
->file_name
)
921 snprintf (name
, len
, "%s[%s(%s)]", arch
->file_name
,
922 nested_arch
->file_name
, member_name
);
924 snprintf (name
, len
, "%s[%s(%s)]", arch
->file_name
,
925 error_name
, member_name
);
927 else if (arch
->is_thin_archive
)
928 snprintf (name
, len
, "%s[%s]", arch
->file_name
, member_name
);
930 snprintf (name
, len
, "%s(%s)", arch
->file_name
, member_name
);