1 /* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/AXP) files.
2 Copyright 1996 Free Software Foundation, Inc.
4 EMH record handling functions
6 EEOM record handling functions
8 Written by Klaus Kämpf (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];
139 #include <sys/types.h>
145 pnt
= ctime (&timeb
);
151 sprintf (tbuf
, "%2s-%3s-%s %s", pnt
+ 8, pnt
+ 4, pnt
+ 20, pnt
+ 11);
159 Descriptor
.Size
= 17;
160 Descriptor
.Ptr
= tbuf
;
161 sys$
asctim (0, &Descriptor
, 0, 0);
165 evax_debug (6, "vmstimestring:'%s'\n", tbuf
);
172 /* write object header for bfd abfd */
175 _bfd_evax_write_emh (abfd
)
185 evax_debug (2, "evax_write_emh(%p)\n", abfd
);
188 _bfd_evax_output_alignment (abfd
, 2);
192 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_MHD
);
193 _bfd_evax_output_short (abfd
, EOBJ_S_C_STRLVL
);
194 _bfd_evax_output_long (abfd
, 0);
195 _bfd_evax_output_long (abfd
, 0);
196 _bfd_evax_output_long (abfd
, MAX_OUTREC_SIZE
);
198 if (bfd_get_filename (abfd
) != 0)
199 _bfd_evax_output_counted (abfd
, bfd_get_filename (abfd
));
201 _bfd_evax_output_counted (abfd
, "NONAME");
203 _bfd_evax_output_counted (abfd
, BFD_VERSION
);
204 _bfd_evax_output_dump (abfd
, get_vms_time_string (), 17);
205 _bfd_evax_output_fill (abfd
, 0, 17);
206 _bfd_evax_output_flush (abfd
);
210 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_LNM
);
211 _bfd_evax_output_dump (abfd
, (unsigned char *)"GAS proGIS", 10);
212 _bfd_evax_output_flush (abfd
);
216 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_SRC
);
218 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
220 symbol
= abfd
->outsymbols
[symnum
];
222 if (symbol
->flags
& BSF_FILE
)
226 if (strncmp ((char *)symbol
->name
, "<CASE:", 6) == 0)
228 PRIV(flag_hash_long_names
) = symbol
->name
[6] - '0';
229 PRIV(flag_show_after_trunc
) = symbol
->name
[7] - '0';
230 PRIV(flag_no_hash_mixed_case
) = symbol
->name
[8] - '0';
231 PRIV(vms_name_mapping
) = symbol
->name
[9] - '0';
239 _bfd_evax_output_dump (abfd
, (char *)symbol
->name
, strlen (symbol
->name
));
246 if (symnum
== abfd
->symcount
)
247 _bfd_evax_output_dump (abfd
, "noname", 6);
249 _bfd_evax_output_flush (abfd
);
253 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_TTL
);
254 _bfd_evax_output_dump (abfd
, (unsigned char *)"TTL", 3);
255 _bfd_evax_output_flush (abfd
);
259 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EMH
, EMH_S_C_CPR
);
260 _bfd_evax_output_dump (abfd
,
261 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
263 _bfd_evax_output_flush (abfd
);
268 /*-----------------------------------------------------------------------------*/
270 /* Process EEOM record
271 return 0 on success, -1 on error */
274 _bfd_evax_slurp_eeom (abfd
)
277 unsigned char *evax_rec
;
280 evax_debug(2, "EEOM\n");
283 evax_rec
= PRIV(evax_rec
);
285 PRIV(eeom_data
).eeom_l_total_lps
= bfd_getl32 (evax_rec
+ 4);
286 PRIV(eeom_data
).eeom_b_comcod
= *(evax_rec
+ 8);
287 if (PRIV(eeom_data
).eeom_b_comcod
> 1)
289 (*_bfd_error_handler
) ("Object module NOT error-free !\n");
290 bfd_set_error (bfd_error_bad_value
);
293 PRIV(eeom_data
).eeom_has_transfer
= false;
294 if (PRIV(rec_size
) > 10)
296 PRIV(eeom_data
).eeom_has_transfer
= true;
297 PRIV(eeom_data
).eeom_b_tfrflg
= *(evax_rec
+ 9);
298 PRIV(eeom_data
).eeom_l_psindx
= bfd_getl32 (evax_rec
+ 12);
299 PRIV(eeom_data
).eeom_l_tfradr
= bfd_getl32 (evax_rec
+ 16);
301 abfd
->start_address
= PRIV(eeom_data
).eeom_l_tfradr
;
307 /* Write eom record for bfd abfd */
310 _bfd_evax_write_eeom (abfd
)
314 evax_debug (2, "evax_write_eeom(%p)\n", abfd
);
317 _bfd_evax_output_begin (abfd
,EOBJ_S_C_EEOM
, -1);
318 _bfd_evax_output_long (abfd
, (unsigned long)(PRIV(evax_linkage_index
) >> 1));
319 _bfd_evax_output_byte (abfd
, 0); /* completion code */
320 _bfd_evax_output_byte (abfd
, 0); /* fill byte */
322 if (bfd_get_start_address (abfd
) != (bfd_vma
)-1)
326 section
= bfd_get_section_by_name (abfd
, ".link");
329 bfd_set_error (bfd_error_nonrepresentable_section
);
332 _bfd_evax_output_short (abfd
, 0);
333 _bfd_evax_output_long (abfd
, (unsigned long)(section
->index
));
334 _bfd_evax_output_long (abfd
,
335 (unsigned long) bfd_get_start_address (abfd
));
336 _bfd_evax_output_long (abfd
, 0);
339 _bfd_evax_output_end (abfd
);