1 /* vms-hdr.c -- BFD back-end for VMS/VAX (openVMS/VAX) and
2 EVAX (openVMS/Alpha) files.
3 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2005
4 Free Software Foundation, Inc.
6 HDR record handling functions
7 EMH record handling functions
9 EOM record handling functions
10 EEOM record handling functions
12 Written by Klaus K"ampf (kkaempf@rmi.de)
14 This program is free software; you can redistribute it and/or modify
15 it under the terms of the GNU General Public License as published by
16 the Free Software Foundation; either version 2 of the License, or
17 (at your option) any later version.
19 This program is distributed in the hope that it will be useful,
20 but WITHOUT ANY WARRANTY; without even the implied warranty of
21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 GNU General Public License for more details.
24 You should have received a copy of the GNU General Public License
25 along with this program; if not, write to the Free Software
26 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
32 #include "safe-ctype.h"
41 static unsigned char *get_vms_time_string PARAMS ((void));
44 /*---------------------------------------------------------------------------*/
46 /* Read & process emh record
47 return 0 on success, -1 on error */
50 _bfd_vms_slurp_hdr (abfd, objtype)
55 unsigned char *vms_rec;
58 vms_rec = PRIV(vms_rec);
61 vms_debug(2, "HDR/EMH\n");
70 subtype = bfd_getl16 (vms_rec + 4) + EVAX_OFFSET;
77 vms_debug(3, "subtype %d\n", subtype);
87 PRIV(hdr_data).hdr_b_strlvl = vms_rec[2];
88 PRIV(hdr_data).hdr_l_recsiz = bfd_getl16 (vms_rec + 3);
89 PRIV(hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 5);
90 ptr = vms_rec + 5 + vms_rec[5] + 1;
91 PRIV(hdr_data).hdr_t_version = _bfd_vms_save_counted_string (ptr);
93 PRIV(hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17);
101 PRIV(hdr_data).hdr_c_lnm = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
108 PRIV(hdr_data).hdr_c_src = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
115 PRIV(hdr_data).hdr_c_ttl = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
136 case EMH_S_C_MHD + EVAX_OFFSET:
140 PRIV(hdr_data).hdr_b_strlvl = vms_rec[6];
141 PRIV(hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8);
142 PRIV(hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12);
143 PRIV(hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16);
144 PRIV(hdr_data).hdr_t_name =
145 _bfd_vms_save_counted_string (vms_rec + 20);
146 ptr = vms_rec + 20 + vms_rec[20] + 1;
147 PRIV(hdr_data).hdr_t_version =
148 _bfd_vms_save_counted_string (ptr);
150 PRIV(hdr_data).hdr_t_date =
151 _bfd_vms_save_sized_string (ptr, 17);
155 case EMH_S_C_LNM + EVAX_OFFSET:
159 PRIV(hdr_data).hdr_c_lnm =
160 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
163 case EMH_S_C_SRC + EVAX_OFFSET:
167 PRIV(hdr_data).hdr_c_src =
168 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
171 case EMH_S_C_TTL + EVAX_OFFSET:
175 PRIV(hdr_data).hdr_c_ttl =
176 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
179 case EMH_S_C_CPR + EVAX_OFFSET:
185 case EMH_S_C_MTC + EVAX_OFFSET:
191 case EMH_S_C_GTX + EVAX_OFFSET:
198 bfd_set_error (bfd_error_wrong_format);
206 /*-----------------------------------------------------------------------------*/
207 /* Output routines. */
209 /* Manufacture a VMS like time on a unix based system.
210 stolen from obj-vms.c */
212 static unsigned char *
213 get_vms_time_string ()
215 static unsigned char tbuf[18];
222 pnt = ctime (&timeb);
228 sprintf ((char *) tbuf, "%2s-%3s-%s %s",
229 pnt + 8, pnt + 4, pnt + 20, pnt + 11);
237 Descriptor.Size = 17;
238 Descriptor.Ptr = tbuf;
239 SYS$ASCTIM (0, &Descriptor, 0, 0);
243 vms_debug (6, "vmstimestring:'%s'\n", tbuf);
249 /* write object header for bfd abfd */
252 _bfd_vms_write_hdr (abfd, objtype)
262 vms_debug (2, "vms_write_hdr (%p)\n", abfd);
265 _bfd_vms_output_alignment (abfd, 2);
269 if (objtype == OBJ_S_C_HDR)
274 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
275 _bfd_vms_output_short (abfd, EOBJ_S_C_STRLVL);
276 _bfd_vms_output_long (abfd, 0);
277 _bfd_vms_output_long (abfd, 0);
278 _bfd_vms_output_long (abfd, MAX_OUTREC_SIZE);
281 if (bfd_get_filename (abfd) != 0)
283 /* strip path and suffix information */
285 char *fname, *fout, *fptr;
287 fptr = bfd_get_filename (abfd);
288 fname = (char *) alloca (strlen (fptr) + 1);
289 strcpy (fname, fptr);
290 fout = strrchr (fname, ']');
292 fout = strchr (fname, ':');
298 /* strip .obj suffix */
300 fptr = strrchr (fname, '.');
302 && (strcasecmp (fptr, ".OBJ") == 0))
308 *fptr = TOUPPER (*fptr);
311 || ((fptr - fout) > 31))
314 _bfd_vms_output_counted (abfd, fout);
317 _bfd_vms_output_counted (abfd, "NONAME");
319 _bfd_vms_output_counted (abfd, BFD_VERSION_STRING);
320 _bfd_vms_output_dump (abfd, get_vms_time_string (), 17);
321 _bfd_vms_output_fill (abfd, 0, 17);
322 _bfd_vms_output_flush (abfd);
326 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
327 _bfd_vms_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
328 _bfd_vms_output_flush (abfd);
332 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
334 for (symnum = 0; symnum < abfd->symcount; symnum++)
336 symbol = abfd->outsymbols[symnum];
338 if (symbol->flags & BSF_FILE)
340 if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
342 PRIV(flag_hash_long_names) = symbol->name[6] - '0';
343 PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
351 _bfd_vms_output_dump (abfd, (unsigned char *) symbol->name,
352 (int) strlen (symbol->name));
359 if (symnum == abfd->symcount)
360 _bfd_vms_output_dump (abfd, (unsigned char *)"noname", 6);
362 _bfd_vms_output_flush (abfd);
366 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
367 _bfd_vms_output_dump (abfd, (unsigned char *)"TTL", 3);
368 _bfd_vms_output_flush (abfd);
372 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
373 _bfd_vms_output_dump (abfd,
374 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
376 _bfd_vms_output_flush (abfd);
381 /*-----------------------------------------------------------------------------*/
383 /* Process EOM/EEOM record
384 return 0 on success, -1 on error */
387 _bfd_vms_slurp_eom (abfd, objtype)
391 unsigned char *vms_rec;
394 vms_debug(2, "EOM/EEOM\n");
397 vms_rec = PRIV(vms_rec);
399 if ((objtype == OBJ_S_C_EOM)
400 || (objtype == OBJ_S_C_EOMW))
405 PRIV(eom_data).eom_l_total_lps = bfd_getl32 (vms_rec + 4);
406 PRIV(eom_data).eom_b_comcod = *(vms_rec + 8);
407 if (PRIV(eom_data).eom_b_comcod > 1)
409 (*_bfd_error_handler) (_("Object module NOT error-free !\n"));
410 bfd_set_error (bfd_error_bad_value);
413 PRIV(eom_data).eom_has_transfer = FALSE;
414 if (PRIV(rec_size) > 10)
416 PRIV(eom_data).eom_has_transfer = TRUE;
417 PRIV(eom_data).eom_b_tfrflg = *(vms_rec + 9);
418 PRIV(eom_data).eom_l_psindx = bfd_getl32 (vms_rec + 12);
419 PRIV(eom_data).eom_l_tfradr = bfd_getl32 (vms_rec + 16);
421 abfd->start_address = PRIV(eom_data).eom_l_tfradr;
427 /* Write eom record for bfd abfd */
430 _bfd_vms_write_eom (abfd, objtype)
435 vms_debug (2, "vms_write_eom (%p, %d)\n", abfd, objtype);
438 _bfd_vms_output_begin (abfd, objtype, -1);
439 _bfd_vms_output_long (abfd, (unsigned long) (PRIV(vms_linkage_index) >> 1));
440 _bfd_vms_output_byte (abfd, 0); /* completion code */
441 _bfd_vms_output_byte (abfd, 0); /* fill byte */
443 if (bfd_get_start_address (abfd) != (bfd_vma)-1)
447 section = bfd_get_section_by_name (abfd, ".link");
450 bfd_set_error (bfd_error_nonrepresentable_section);
453 _bfd_vms_output_short (abfd, 0);
454 _bfd_vms_output_long (abfd, (unsigned long) (section->index));
455 _bfd_vms_output_long (abfd,
456 (unsigned long) bfd_get_start_address (abfd));
457 _bfd_vms_output_long (abfd, 0);
460 _bfd_vms_output_end (abfd);