1 /* MIPS-specific support for 64-bit ELF
2 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
3 Free Software Foundation, Inc.
4 Ian Lance Taylor, Cygnus Support
5 Linker support added by Mark Mitchell, CodeSourcery, LLC.
6 <mark@codesourcery.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. */
24 /* This file supports the 64-bit (MIPS) ELF archives. */
31 /* Irix 6 defines a 64bit archive map format, so that they can
32 have archives more than 4 GB in size. */
34 bfd_boolean
bfd_elf64_archive_slurp_armap (bfd
*);
35 bfd_boolean bfd_elf64_archive_write_armap
36 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
38 /* Read an Irix 6 armap. */
41 bfd_elf64_archive_slurp_armap (bfd
*abfd
)
43 struct artdata
*ardata
= bfd_ardata (abfd
);
46 bfd_size_type i
, parsed_size
, nsymz
, stringsize
, carsym_size
, ptrsize
;
47 struct areltdata
*mapdata
;
50 bfd_byte
*raw_armap
= NULL
;
54 ardata
->symdefs
= NULL
;
56 /* Get the name of the first element. */
57 arhdrpos
= bfd_tell (abfd
);
58 i
= bfd_bread (nextname
, 16, abfd
);
64 if (bfd_seek (abfd
, (file_ptr
) - 16, SEEK_CUR
) != 0)
67 /* Archives with traditional armaps are still permitted. */
68 if (strncmp (nextname
, "/ ", 16) == 0)
69 return bfd_slurp_armap (abfd
);
71 if (strncmp (nextname
, "/SYM64/ ", 16) != 0)
73 bfd_has_map (abfd
) = FALSE
;
77 mapdata
= (struct areltdata
*) _bfd_read_ar_hdr (abfd
);
80 parsed_size
= mapdata
->parsed_size
;
81 bfd_release (abfd
, mapdata
);
83 if (bfd_bread (int_buf
, 8, abfd
) != 8)
85 if (bfd_get_error () != bfd_error_system_call
)
86 bfd_set_error (bfd_error_malformed_archive
);
90 nsymz
= bfd_getb64 (int_buf
);
91 stringsize
= parsed_size
- 8 * nsymz
- 8;
93 carsym_size
= nsymz
* sizeof (carsym
);
96 amt
= carsym_size
+ stringsize
+ 1;
97 ardata
->symdefs
= bfd_zalloc (abfd
, amt
);
98 if (ardata
->symdefs
== NULL
)
100 carsyms
= ardata
->symdefs
;
101 stringbase
= ((char *) ardata
->symdefs
) + carsym_size
;
103 raw_armap
= bfd_alloc (abfd
, ptrsize
);
104 if (raw_armap
== NULL
)
105 goto release_symdefs
;
107 if (bfd_bread (raw_armap
, ptrsize
, abfd
) != ptrsize
108 || bfd_bread (stringbase
, stringsize
, abfd
) != stringsize
)
110 if (bfd_get_error () != bfd_error_system_call
)
111 bfd_set_error (bfd_error_malformed_archive
);
112 goto release_raw_armap
;
115 for (i
= 0; i
< nsymz
; i
++)
117 carsyms
->file_offset
= bfd_getb64 (raw_armap
+ i
* 8);
118 carsyms
->name
= stringbase
;
119 stringbase
+= strlen (stringbase
) + 1;
124 ardata
->symdef_count
= nsymz
;
125 ardata
->first_file_filepos
= bfd_tell (abfd
);
126 /* Pad to an even boundary if you have to. */
127 ardata
->first_file_filepos
+= (ardata
->first_file_filepos
) % 2;
129 bfd_has_map (abfd
) = TRUE
;
130 bfd_release (abfd
, raw_armap
);
135 bfd_release (abfd
, raw_armap
);
137 bfd_release (abfd
, ardata
->symdefs
);
141 /* Write out an Irix 6 armap. The Irix 6 tools are supposed to be
142 able to handle ordinary ELF armaps, but at least on Irix 6.2 the
146 bfd_elf64_archive_write_armap (bfd
*arch
,
147 unsigned int elength
,
149 unsigned int symbol_count
,
152 unsigned int ranlibsize
= (symbol_count
* 8) + 8;
153 unsigned int stringsize
= stridx
;
154 unsigned int mapsize
= stringsize
+ ranlibsize
;
155 file_ptr archive_member_file_ptr
;
156 bfd
*current
= arch
->archive_head
;
162 padding
= BFD_ALIGN (mapsize
, 8) - mapsize
;
165 /* work out where the first object file will go in the archive */
166 archive_member_file_ptr
= (mapsize
168 + sizeof (struct ar_hdr
)
171 memset (&hdr
, ' ', sizeof (struct ar_hdr
));
172 memcpy (hdr
.ar_name
, "/SYM64/", strlen ("/SYM64/"));
173 _bfd_ar_spacepad (hdr
.ar_size
, sizeof (hdr
.ar_size
), "%-10ld",
175 _bfd_ar_spacepad (hdr
.ar_date
, sizeof (hdr
.ar_date
), "%ld",
177 /* This, at least, is what Intel coff sets the values to.: */
178 _bfd_ar_spacepad (hdr
.ar_uid
, sizeof (hdr
.ar_uid
), "%ld", 0);
179 _bfd_ar_spacepad (hdr
.ar_gid
, sizeof (hdr
.ar_gid
), "%ld", 0);
180 _bfd_ar_spacepad (hdr
.ar_mode
, sizeof (hdr
.ar_mode
), "%-7lo", 0);
181 memcpy (hdr
.ar_fmag
, ARFMAG
, 2);
183 /* Write the ar header for this item and the number of symbols */
185 if (bfd_bwrite (&hdr
, sizeof (struct ar_hdr
), arch
)
186 != sizeof (struct ar_hdr
))
189 bfd_putb64 ((bfd_vma
) symbol_count
, buf
);
190 if (bfd_bwrite (buf
, 8, arch
) != 8)
193 /* Two passes, first write the file offsets for each symbol -
194 remembering that each offset is on a two byte boundary. */
196 /* Write out the file offset for the file associated with each
197 symbol, and remember to keep the offsets padded out. */
199 current
= arch
->archive_head
;
201 while (current
!= NULL
&& count
< symbol_count
)
203 /* For each symbol which is used defined in this object, write out
204 the object file's address in the archive */
206 while (map
[count
].u
.abfd
== current
)
208 bfd_putb64 ((bfd_vma
) archive_member_file_ptr
, buf
);
209 if (bfd_bwrite (buf
, 8, arch
) != 8)
213 /* Add size of this archive entry */
214 archive_member_file_ptr
+= (arelt_size (current
)
215 + sizeof (struct ar_hdr
));
216 /* remember about the even alignment */
217 archive_member_file_ptr
+= archive_member_file_ptr
% 2;
218 current
= current
->next
;
221 /* now write the strings themselves */
222 for (count
= 0; count
< symbol_count
; count
++)
224 size_t len
= strlen (*map
[count
].name
) + 1;
226 if (bfd_bwrite (*map
[count
].name
, len
, arch
) != len
)
230 /* The spec says that this should be padded to an 8 byte boundary.
231 However, the Irix 6.2 tools do not appear to do this. */
234 if (bfd_bwrite ("", 1, arch
) != 1)