summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/binutils/bfd/evax-emh.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/usr.bin/binutils/bfd/evax-emh.c')
-rw-r--r--gnu/usr.bin/binutils/bfd/evax-emh.c266
1 files changed, 0 insertions, 266 deletions
diff --git a/gnu/usr.bin/binutils/bfd/evax-emh.c b/gnu/usr.bin/binutils/bfd/evax-emh.c
deleted file mode 100644
index 69f7e0be91b..00000000000
--- a/gnu/usr.bin/binutils/bfd/evax-emh.c
+++ /dev/null
@@ -1,266 +0,0 @@
-/* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/AXP) files.
- Copyright 1996 Free Software Foundation, Inc.
-
- EMH record handling functions
- and
- EEOM record handling functions
-
- Written by Klaus Kämpf (kkaempf@progis.de)
- of proGIS Softwareentwicklung, Aachen, Germany
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#include <stdio.h>
-
-#include "bfd.h"
-#include "sysdep.h"
-#include "bfdlink.h"
-#include "libbfd.h"
-
-#include "evax.h"
-
-/*---------------------------------------------------------------------------*/
-
-
-/* Read & process emh record
- return 0 on success, -1 on error */
-
-int
-_bfd_evax_slurp_emh (abfd)
- bfd *abfd;
-{
- unsigned char *ptr;
- unsigned char *evax_rec;
-
- evax_rec = PRIV(evax_rec);
-
-#if EVAX_DEBUG
- evax_debug(2, "EMH\n");
-#endif
-
- switch (bfd_getl16 (evax_rec + 4))
- {
-
- case EMH_S_C_MHD:
- /*
- * module header
- */
- PRIV(emh_data).emh_b_strlvl = evax_rec[6];
- PRIV(emh_data).emh_l_arch1 = bfd_getl32 (evax_rec + 8);
- PRIV(emh_data).emh_l_arch2 = bfd_getl32 (evax_rec + 12);
- PRIV(emh_data).emh_l_recsiz = bfd_getl32 (evax_rec + 16);
- PRIV(emh_data).emh_t_name =
- _bfd_evax_save_counted_string ((char *)evax_rec + 20);
- ptr = evax_rec + 20 + evax_rec[20] + 1;
- PRIV(emh_data).emh_t_version =
- _bfd_evax_save_counted_string ((char *)ptr);
- ptr += *ptr + 1;
- PRIV(emh_data).emh_t_date =
- _bfd_evax_save_sized_string ((char *)ptr, 17);
-
- break;
-
- case EMH_S_C_LNM:
- /*
- *
- */
- PRIV(emh_data).emh_c_lnm =
- _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
- break;
-
- case EMH_S_C_SRC:
- /*
- *
- */
- PRIV(emh_data).emh_c_src =
- _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
- break;
-
- case EMH_S_C_TTL:
- /*
- *
- */
- PRIV(emh_data).emh_c_ttl =
- _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
- break;
-
- case EMH_S_C_CPR:
- /*
- *
- */
- break;
-
- case EMH_S_C_MTC:
- /*
- *
- */
- break;
-
- case EMH_S_C_GTX:
- /*
- *
- */
- break;
-
- default:
- bfd_set_error (bfd_error_wrong_format);
- return -1;
-
- } /* switch */
-
- return 0;
-}
-
-
-/* write object header for bfd abfd */
-
-int
-_bfd_evax_write_emh (abfd)
- bfd *abfd;
-{
- char *name;
-
-#if EVAX_DEBUG
- evax_debug (2, "evax_write_emh(%p)\n", abfd);
-#endif
-
- _bfd_evax_output_alignment (abfd, 2);
-
- /* MHD */
-
- _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
- _bfd_evax_output_short (abfd, EOBJ_S_C_STRLVL);
- _bfd_evax_output_long (abfd, 0);
- _bfd_evax_output_long (abfd, 0);
- _bfd_evax_output_long (abfd, MAX_OUTREC_SIZE);
- if (bfd_get_filename (abfd) != NULL)
- {
- name = strdup (bfd_get_filename (abfd));
- _bfd_evax_output_counted (abfd, _bfd_evax_basename (name));
- }
- else
- _bfd_evax_output_counted (abfd, "NONAME");
- _bfd_evax_output_counted (abfd, BFD_VERSION);
- _bfd_evax_output_dump (abfd, (unsigned char *)_bfd_get_vms_time_string (),
- 17);
- _bfd_evax_output_fill (abfd, 0, 17);
- _bfd_evax_output_flush (abfd);
-
- /* LMN */
-
- _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
- _bfd_evax_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
- _bfd_evax_output_flush (abfd);
-
- /* SRC */
-
- _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
- if (PRIV(filename) != 0)
- _bfd_evax_output_dump (abfd, (unsigned char *)PRIV(filename), strlen (PRIV(filename)));
- else
- _bfd_evax_output_dump (abfd, (unsigned char *)"noname", 6);
- _bfd_evax_output_flush (abfd);
-
- /* TTL */
-
- _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
- _bfd_evax_output_dump (abfd, (unsigned char *)"TTL", 3);
- _bfd_evax_output_flush (abfd);
-
- /* CPR */
-
- _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
- _bfd_evax_output_dump (abfd,
- (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
- 39);
- _bfd_evax_output_flush (abfd);
-
- return 0;
-}
-
-/*-----------------------------------------------------------------------------*/
-
-/* Process EEOM record
- return 0 on success, -1 on error */
-
-int
-_bfd_evax_slurp_eeom (abfd)
- bfd *abfd;
-{
- unsigned char *evax_rec;
-
-#if EVAX_DEBUG
- evax_debug(2, "EEOM\n");
-#endif
-
- evax_rec = PRIV(evax_rec);
-
- PRIV(eeom_data).eeom_l_total_lps = bfd_getl32 (evax_rec + 4);
- PRIV(eeom_data).eeom_b_comcod = *(evax_rec + 8);
- if (PRIV(eeom_data).eeom_b_comcod > 1)
- {
- (*_bfd_error_handler) ("Object module NOT error-free !\n");
- bfd_set_error (bfd_error_bad_value);
- return -1;
- }
- PRIV(eeom_data).eeom_has_transfer = false;
- if (PRIV(rec_size) > 10)
- {
- PRIV(eeom_data).eeom_has_transfer = true;
- PRIV(eeom_data).eeom_b_tfrflg = *(evax_rec + 9);
- PRIV(eeom_data).eeom_l_psindx = bfd_getl32 (evax_rec + 12);
- PRIV(eeom_data).eeom_l_tfradr = bfd_getl32 (evax_rec + 16);
-
- abfd->start_address = PRIV(eeom_data).eeom_l_tfradr;
- }
- return 0;
-}
-
-
-/* Write eom record for bfd abfd */
-
-int
-_bfd_evax_write_eeom (abfd)
- bfd *abfd;
-{
-#if EVAX_DEBUG
- evax_debug (2, "evax_write_eeom(%p)\n", abfd);
-#endif
-
- _bfd_evax_output_begin (abfd,EOBJ_S_C_EEOM, -1);
- _bfd_evax_output_long (abfd, (unsigned long)(PRIV(evax_linkage_index) >> 1));
- _bfd_evax_output_byte (abfd, 0); /* completion code */
- _bfd_evax_output_byte (abfd, 0); /* fill byte */
-
- if (bfd_get_start_address (abfd) != (bfd_vma)-1)
- {
- asection *section;
-
- section = bfd_get_section_by_name (abfd, ".link");
- if (section == 0)
- {
- bfd_set_error (bfd_error_nonrepresentable_section);
- return -1;
- }
- _bfd_evax_output_short (abfd, 0);
- _bfd_evax_output_long (abfd, (unsigned long)(section->index));
- _bfd_evax_output_long (abfd,
- (unsigned long) bfd_get_start_address (abfd));
- _bfd_evax_output_long (abfd, 0);
- }
-
- _bfd_evax_output_end (abfd);
- return 0;
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-16 00:46:50 +0000