* Makefile.am: Run "make dep-am".
[binutils.git] / bfd / vms-hdr.c
blobfbeb42e4eb342bbb720ec2391d93ebbe119ec728
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 Free Software Foundation, Inc.
5 HDR record handling functions
6 EMH record handling functions
7 and
8 EOM record handling functions
9 EEOM record handling functions
11 Written by Klaus K"ampf (kkaempf@rmi.de)
13 This program is free software; you can redistribute it and/or modify
14 it under the terms of the GNU General Public License as published by
15 the Free Software Foundation; either version 2 of the License, or
16 (at your option) any later version.
18 This program is distributed in the hope that it will be useful,
19 but WITHOUT ANY WARRANTY; without even the implied warranty of
20 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 GNU General Public License for more details.
23 You should have received a copy of the GNU General Public License
24 along with this program; if not, write to the Free Software
25 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27 #include "bfd.h"
28 #include "bfdver.h"
29 #include "sysdep.h"
30 #include "bfdlink.h"
31 #include "safe-ctype.h"
32 #include "libbfd.h"
34 #include "vms.h"
36 #ifdef HAVE_ALLOCA_H
37 #include <alloca.h>
38 #endif
40 static unsigned char *get_vms_time_string PARAMS ((void));
43 /*---------------------------------------------------------------------------*/
45 /* Read & process emh record
46 return 0 on success, -1 on error */
48 int
49 _bfd_vms_slurp_hdr (abfd, objtype)
50 bfd *abfd;
51 int objtype;
53 unsigned char *ptr;
54 unsigned char *vms_rec;
55 int subtype;
57 vms_rec = PRIV(vms_rec);
59 #if VMS_DEBUG
60 vms_debug(2, "HDR/EMH\n");
61 #endif
63 switch (objtype)
65 case OBJ_S_C_HDR:
66 subtype = vms_rec[1];
67 break;
68 case EOBJ_S_C_EMH:
69 subtype = bfd_getl16 (vms_rec + 4) + EVAX_OFFSET;
70 break;
71 default:
72 subtype = -1;
75 #if VMS_DEBUG
76 vms_debug(3, "subtype %d\n", subtype);
77 #endif
79 switch (subtype)
82 case MHD_S_C_MHD:
84 * module header
86 PRIV(hdr_data).hdr_b_strlvl = vms_rec[2];
87 PRIV(hdr_data).hdr_l_recsiz = bfd_getl16 (vms_rec + 3);
88 PRIV(hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 5);
89 ptr = vms_rec + 5 + vms_rec[5] + 1;
90 PRIV(hdr_data).hdr_t_version = _bfd_vms_save_counted_string (ptr);
91 ptr += *ptr + 1;
92 PRIV(hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17);
94 break;
96 case MHD_S_C_LNM:
100 PRIV(hdr_data).hdr_c_lnm = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
101 break;
103 case MHD_S_C_SRC:
107 PRIV(hdr_data).hdr_c_src = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
108 break;
110 case MHD_S_C_TTL:
114 PRIV(hdr_data).hdr_c_ttl = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
115 break;
117 case MHD_S_C_CPR:
121 break;
123 case MHD_S_C_MTC:
127 break;
129 case MHD_S_C_GTX:
133 break;
135 case EMH_S_C_MHD + EVAX_OFFSET:
137 * module header
139 PRIV(hdr_data).hdr_b_strlvl = vms_rec[6];
140 PRIV(hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8);
141 PRIV(hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12);
142 PRIV(hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16);
143 PRIV(hdr_data).hdr_t_name =
144 _bfd_vms_save_counted_string (vms_rec + 20);
145 ptr = vms_rec + 20 + vms_rec[20] + 1;
146 PRIV(hdr_data).hdr_t_version =
147 _bfd_vms_save_counted_string (ptr);
148 ptr += *ptr + 1;
149 PRIV(hdr_data).hdr_t_date =
150 _bfd_vms_save_sized_string (ptr, 17);
152 break;
154 case EMH_S_C_LNM + EVAX_OFFSET:
158 PRIV(hdr_data).hdr_c_lnm =
159 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
160 break;
162 case EMH_S_C_SRC + EVAX_OFFSET:
166 PRIV(hdr_data).hdr_c_src =
167 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
168 break;
170 case EMH_S_C_TTL + EVAX_OFFSET:
174 PRIV(hdr_data).hdr_c_ttl =
175 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
176 break;
178 case EMH_S_C_CPR + EVAX_OFFSET:
182 break;
184 case EMH_S_C_MTC + EVAX_OFFSET:
188 break;
190 case EMH_S_C_GTX + EVAX_OFFSET:
194 break;
196 default:
197 bfd_set_error (bfd_error_wrong_format);
198 return -1;
200 } /* switch */
202 return 0;
205 /*-----------------------------------------------------------------------------*/
206 /* Output routines. */
208 /* Manufacure a VMS like time on a unix based system.
209 stolen from obj-vms.c */
211 static unsigned char *
212 get_vms_time_string ()
214 static unsigned char tbuf[18];
215 #ifndef VMS
216 #include <time.h>
218 char *pnt;
219 time_t timeb;
220 time (&timeb);
221 pnt = ctime (&timeb);
222 pnt[3] = 0;
223 pnt[7] = 0;
224 pnt[10] = 0;
225 pnt[16] = 0;
226 pnt[24] = 0;
227 sprintf (tbuf, "%2s-%3s-%s %s", pnt + 8, pnt + 4, pnt + 20, pnt + 11);
228 #else
229 #include <starlet.h>
230 struct
232 int Size;
233 unsigned char *Ptr;
234 } Descriptor;
235 Descriptor.Size = 17;
236 Descriptor.Ptr = tbuf;
237 SYS$ASCTIM (0, &Descriptor, 0, 0);
238 #endif /* not VMS */
240 #if VMS_DEBUG
241 vms_debug (6, "vmstimestring:'%s'\n", tbuf);
242 #endif
244 return tbuf;
247 /* write object header for bfd abfd */
250 _bfd_vms_write_hdr (abfd, objtype)
251 bfd *abfd;
252 int objtype;
254 asymbol *symbol;
255 unsigned int symnum;
256 int had_case = 0;
257 int had_file = 0;
259 #if VMS_DEBUG
260 vms_debug (2, "vms_write_hdr (%p)\n", abfd);
261 #endif
263 _bfd_vms_output_alignment (abfd, 2);
265 /* MHD */
267 if (objtype == OBJ_S_C_HDR)
270 else
272 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
273 _bfd_vms_output_short (abfd, EOBJ_S_C_STRLVL);
274 _bfd_vms_output_long (abfd, 0);
275 _bfd_vms_output_long (abfd, 0);
276 _bfd_vms_output_long (abfd, MAX_OUTREC_SIZE);
279 if (bfd_get_filename (abfd) != 0)
281 /* strip path and suffix information */
283 char *fname, *fout, *fptr;
285 fptr = bfd_get_filename (abfd);
286 fname = (char *) alloca (strlen (fptr) + 1);
287 strcpy (fname, fptr);
288 fout = strrchr (fname, ']');
289 if (fout == 0)
290 fout = strchr (fname, ':');
291 if (fout != 0)
292 fout++;
293 else
294 fout = fname;
296 /* strip .obj suffix */
298 fptr = strrchr (fname, '.');
299 if ((fptr != 0)
300 && (strcasecmp (fptr, ".OBJ") == 0))
301 *fptr = 0;
303 fptr = fout;
304 while (*fptr != 0)
306 *fptr = TOUPPER (*fptr);
307 fptr++;
308 if ((*fptr == ';')
309 || ((fptr - fout) > 31))
310 *fptr = 0;
312 _bfd_vms_output_counted (abfd, fout);
314 else
315 _bfd_vms_output_counted (abfd, "NONAME");
317 _bfd_vms_output_counted (abfd, BFD_VERSION_STRING);
318 _bfd_vms_output_dump (abfd, get_vms_time_string (), 17);
319 _bfd_vms_output_fill (abfd, 0, 17);
320 _bfd_vms_output_flush (abfd);
322 /* LMN */
324 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
325 _bfd_vms_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
326 _bfd_vms_output_flush (abfd);
328 /* SRC */
330 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
332 for (symnum = 0; symnum < abfd->symcount; symnum++)
334 symbol = abfd->outsymbols[symnum];
336 if (symbol->flags & BSF_FILE)
338 if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
340 PRIV(flag_hash_long_names) = symbol->name[6] - '0';
341 PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
343 if (had_file)
344 break;
345 had_case = 1;
346 continue;
349 _bfd_vms_output_dump (abfd, (unsigned char *) symbol->name,
350 (int) strlen (symbol->name));
351 if (had_case)
352 break;
353 had_file = 1;
357 if (symnum == abfd->symcount)
358 _bfd_vms_output_dump (abfd, (unsigned char *)"noname", 6);
360 _bfd_vms_output_flush (abfd);
362 /* TTL */
364 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
365 _bfd_vms_output_dump (abfd, (unsigned char *)"TTL", 3);
366 _bfd_vms_output_flush (abfd);
368 /* CPR */
370 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
371 _bfd_vms_output_dump (abfd,
372 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
373 39);
374 _bfd_vms_output_flush (abfd);
376 return 0;
379 /*-----------------------------------------------------------------------------*/
381 /* Process EOM/EEOM record
382 return 0 on success, -1 on error */
385 _bfd_vms_slurp_eom (abfd, objtype)
386 bfd *abfd;
387 int objtype;
389 unsigned char *vms_rec;
391 #if VMS_DEBUG
392 vms_debug(2, "EOM/EEOM\n");
393 #endif
395 vms_rec = PRIV(vms_rec);
397 if ((objtype == OBJ_S_C_EOM)
398 || (objtype == OBJ_S_C_EOMW))
401 else
403 PRIV(eom_data).eom_l_total_lps = bfd_getl32 (vms_rec + 4);
404 PRIV(eom_data).eom_b_comcod = *(vms_rec + 8);
405 if (PRIV(eom_data).eom_b_comcod > 1)
407 (*_bfd_error_handler) (_("Object module NOT error-free !\n"));
408 bfd_set_error (bfd_error_bad_value);
409 return -1;
411 PRIV(eom_data).eom_has_transfer = false;
412 if (PRIV(rec_size) > 10)
414 PRIV(eom_data).eom_has_transfer = true;
415 PRIV(eom_data).eom_b_tfrflg = *(vms_rec + 9);
416 PRIV(eom_data).eom_l_psindx = bfd_getl32 (vms_rec + 12);
417 PRIV(eom_data).eom_l_tfradr = bfd_getl32 (vms_rec + 16);
419 abfd->start_address = PRIV(eom_data).eom_l_tfradr;
422 return 0;
425 /* Write eom record for bfd abfd */
428 _bfd_vms_write_eom (abfd, objtype)
429 bfd *abfd;
430 int objtype;
432 #if VMS_DEBUG
433 vms_debug (2, "vms_write_eom (%p, %d)\n", abfd, objtype);
434 #endif
436 _bfd_vms_output_begin (abfd, objtype, -1);
437 _bfd_vms_output_long (abfd, (unsigned long) (PRIV(vms_linkage_index) >> 1));
438 _bfd_vms_output_byte (abfd, 0); /* completion code */
439 _bfd_vms_output_byte (abfd, 0); /* fill byte */
441 if (bfd_get_start_address (abfd) != (bfd_vma)-1)
443 asection *section;
445 section = bfd_get_section_by_name (abfd, ".link");
446 if (section == 0)
448 bfd_set_error (bfd_error_nonrepresentable_section);
449 return -1;
451 _bfd_vms_output_short (abfd, 0);
452 _bfd_vms_output_long (abfd, (unsigned long) (section->index));
453 _bfd_vms_output_long (abfd,
454 (unsigned long) bfd_get_start_address (abfd));
455 _bfd_vms_output_long (abfd, 0);
458 _bfd_vms_output_end (abfd);
459 return 0;