1 /* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/Alpha) files.
2 Copyright 1996, 1997, 1998 Free Software Foundation, Inc.
4 EMH record handling functions
6 EEOM record handling functions
8 Written by Klaus K"ampf (kkaempf@progis.de)
9 of proGIS Softwareentwicklung, Aachen, Germany
11 This program is free software; you can redistribute it and/or modify
12 it under the terms of the GNU General Public License as published by
13 the Free Software Foundation; either version 2 of the License, or
14 (at your option) any later version.
16 This program is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 GNU General Public License for more details.
21 You should have received a copy of the GNU General Public License
22 along with this program; if not, write to the Free Software
23 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
34 /*---------------------------------------------------------------------------*/
37 /* Read & process emh record
38 return 0 on success, -1 on error */
41 _bfd_evax_slurp_emh (abfd
)
45 unsigned char *evax_rec
;
47 evax_rec
= PRIV(evax_rec
);
50 evax_debug(2, "EMH\n");
53 switch (bfd_getl16 (evax_rec
+ 4))
60 PRIV(emh_data
).emh_b_strlvl
= evax_rec
[6];
61 PRIV(emh_data
).emh_l_arch1
= bfd_getl32 (evax_rec
+ 8);
62 PRIV(emh_data
).emh_l_arch2
= bfd_getl32 (evax_rec
+ 12);
63 PRIV(emh_data
).emh_l_recsiz
= bfd_getl32 (evax_rec
+ 16);
64 PRIV(emh_data
).emh_t_name
=
65 _bfd_evax_save_counted_string ((char *)evax_rec
+ 20);
66 ptr
= evax_rec
+ 20 + evax_rec
[20] + 1;
67 PRIV(emh_data
).emh_t_version
=
68 _bfd_evax_save_counted_string ((char *)ptr
);
70 PRIV(emh_data
).emh_t_date
=
71 _bfd_evax_save_sized_string ((char *)ptr
, 17);
79 PRIV(emh_data
).emh_c_lnm
=
80 _bfd_evax_save_sized_string ((char *)evax_rec
, PRIV(rec_length
-6));
87 PRIV(emh_data
).emh_c_src
=
88 _bfd_evax_save_sized_string ((char *)evax_rec
, PRIV(rec_length
-6));
95 PRIV(emh_data
).emh_c_ttl
=
96 _bfd_evax_save_sized_string ((char *)evax_rec
, PRIV(rec_length
-6));
118 bfd_set_error (bfd_error_wrong_format
);
127 /*-----------------------------------------------------------------------------*/
128 /* Output routines. */
131 /* Manufacure a VMS like time on a unix based system.
132 stolen from obj-vms.c */
134 static unsigned char *
135 get_vms_time_string ()
137 static unsigned char tbuf
[18];
144 pnt
= ctime (&timeb
);
150 sprintf (tbuf
, "%2s-%3s-%s %s", pnt
+ 8, pnt
+ 4, pnt
+ 20, pnt
+ 11);
158 Descriptor
.Size
= 17;
159 Descriptor
.Ptr
= tbuf
;
160 SYS$
ASCTIM (0, &Descriptor
, 0, 0);
164 evax_debug (6, "vmstimestring:'%s'\n", tbuf
);
171 /* write object header for bfd abfd */
174 _bfd_evax_write_emh (abfd
)
184 evax_debug (2, "evax_write_emh(%p)\n", abfd
);
187 _bfd_evax_output_alignment (abfd
, 2);
191 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_MHD
);
192 _bfd_evax_output_short (abfd
, EOBJ_S_C_STRLVL
);
193 _bfd_evax_output_long (abfd
, 0);
194 _bfd_evax_output_long (abfd
, 0);
195 _bfd_evax_output_long (abfd
, MAX_OUTREC_SIZE
);
197 if (bfd_get_filename (abfd
) != 0)
199 /* strip path and suffix information */
201 char *fname
, *fout
, *fptr
;
203 fptr
= bfd_get_filename (abfd
);
204 fname
= (char *) alloca (strlen (fptr
) + 1);
205 strcpy (fname
, fptr
);
206 fout
= strrchr (fname
, ']');
208 fout
= strchr (fname
, ':');
214 /* strip .obj suffix */
216 fptr
= strrchr (fname
, '.');
218 && (strcasecmp (fptr
, ".OBJ") == 0))
225 *fptr
= toupper (*fptr
);
228 || ((fptr
- fout
) > 31))
231 _bfd_evax_output_counted (abfd
, fout
);
234 _bfd_evax_output_counted (abfd
, "NONAME");
236 _bfd_evax_output_counted (abfd
, BFD_VERSION
);
237 _bfd_evax_output_dump (abfd
, get_vms_time_string (), 17);
238 _bfd_evax_output_fill (abfd
, 0, 17);
239 _bfd_evax_output_flush (abfd
);
243 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_LNM
);
244 _bfd_evax_output_dump (abfd
, (unsigned char *)"GAS proGIS", 10);
245 _bfd_evax_output_flush (abfd
);
249 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_SRC
);
251 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
253 symbol
= abfd
->outsymbols
[symnum
];
255 if (symbol
->flags
& BSF_FILE
)
259 if (strncmp ((char *)symbol
->name
, "<CASE:", 6) == 0)
261 PRIV(flag_hash_long_names
) = symbol
->name
[6] - '0';
262 PRIV(flag_show_after_trunc
) = symbol
->name
[7] - '0';
270 _bfd_evax_output_dump (abfd
, (unsigned char *)symbol
->name
, strlen (symbol
->name
));
277 if (symnum
== abfd
->symcount
)
278 _bfd_evax_output_dump (abfd
, (unsigned char *)"noname", 6);
280 _bfd_evax_output_flush (abfd
);
284 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_TTL
);
285 _bfd_evax_output_dump (abfd
, (unsigned char *)"TTL", 3);
286 _bfd_evax_output_flush (abfd
);
290 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_CPR
);
291 _bfd_evax_output_dump (abfd
,
292 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
294 _bfd_evax_output_flush (abfd
);
299 /*-----------------------------------------------------------------------------*/
301 /* Process EEOM record
302 return 0 on success, -1 on error */
305 _bfd_evax_slurp_eeom (abfd
)
308 unsigned char *evax_rec
;
311 evax_debug(2, "EEOM\n");
314 evax_rec
= PRIV(evax_rec
);
316 PRIV(eeom_data
).eeom_l_total_lps
= bfd_getl32 (evax_rec
+ 4);
317 PRIV(eeom_data
).eeom_b_comcod
= *(evax_rec
+ 8);
318 if (PRIV(eeom_data
).eeom_b_comcod
> 1)
320 (*_bfd_error_handler
) (_("Object module NOT error-free !\n"));
321 bfd_set_error (bfd_error_bad_value
);
324 PRIV(eeom_data
).eeom_has_transfer
= false;
325 if (PRIV(rec_size
) > 10)
327 PRIV(eeom_data
).eeom_has_transfer
= true;
328 PRIV(eeom_data
).eeom_b_tfrflg
= *(evax_rec
+ 9);
329 PRIV(eeom_data
).eeom_l_psindx
= bfd_getl32 (evax_rec
+ 12);
330 PRIV(eeom_data
).eeom_l_tfradr
= bfd_getl32 (evax_rec
+ 16);
332 abfd
->start_address
= PRIV(eeom_data
).eeom_l_tfradr
;
338 /* Write eom record for bfd abfd */
341 _bfd_evax_write_eeom (abfd
)
345 evax_debug (2, "evax_write_eeom(%p)\n", abfd
);
348 _bfd_evax_output_begin (abfd
,EOBJ_S_C_EEOM
, -1);
349 _bfd_evax_output_long (abfd
, (unsigned long)(PRIV(evax_linkage_index
) >> 1));
350 _bfd_evax_output_byte (abfd
, 0); /* completion code */
351 _bfd_evax_output_byte (abfd
, 0); /* fill byte */
353 if (bfd_get_start_address (abfd
) != (bfd_vma
)-1)
357 section
= bfd_get_section_by_name (abfd
, ".link");
360 bfd_set_error (bfd_error_nonrepresentable_section
);
363 _bfd_evax_output_short (abfd
, 0);
364 _bfd_evax_output_long (abfd
, (unsigned long)(section
->index
));
365 _bfd_evax_output_long (abfd
,
366 (unsigned long) bfd_get_start_address (abfd
));
367 _bfd_evax_output_long (abfd
, 0);
370 _bfd_evax_output_end (abfd
);