bfd/vms-hdr.c

   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.
   4
   5    HDR record handling functions
   6    EMH record handling functions
   7    and
   8    EOM record handling functions
   9    EEOM record handling functions
  10
  11    Written by Klaus K"ampf (kkaempf@rmi.de)
  12
  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.
  17
  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.
  22
  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.  */
  26
  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"
  33
  34 #include "vms.h"
  35
  36 #ifdef HAVE_ALLOCA_H
  37 #include <alloca.h>
  38 #endif
  39
  40 static unsigned char *get_vms_time_string PARAMS ((void));
  41
  42
  43 /*---------------------------------------------------------------------------*/
  44
  45 /* Read & process emh record
  46    return 0 on success, -1 on error  */
  47
  48 int
  49 _bfd_vms_slurp_hdr (abfd, objtype)
  50      bfd *abfd;
  51      int objtype;
  52 {
  53   unsigned char *ptr;
  54   unsigned char *vms_rec;
  55   int subtype;
  56
  57   vms_rec = PRIV(vms_rec);
  58
  59 #if VMS_DEBUG
  60   vms_debug(2, "HDR/EMH\n");
  61 #endif
  62
  63   switch (objtype)
  64     {
  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;
  73     }
  74
  75 #if VMS_DEBUG
  76   vms_debug(3, "subtype %d\n", subtype);
  77 #endif
  78
  79   switch (subtype)
  80     {
  81
  82       case MHD_S_C_MHD:
  83         /*
  84          * module header
  85          */
  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);
  93
  94       break;
  95
  96       case MHD_S_C_LNM:
  97         /*
  98          *
  99          */
 100         PRIV(hdr_data).hdr_c_lnm = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
 101       break;
 102
 103       case MHD_S_C_SRC:
 104         /*
 105          *
 106          */
 107         PRIV(hdr_data).hdr_c_src = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
 108       break;
 109
 110       case MHD_S_C_TTL:
 111         /*
 112          *
 113          */
 114         PRIV(hdr_data).hdr_c_ttl = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
 115       break;
 116
 117       case MHD_S_C_CPR:
 118         /*
 119          *
 120          */
 121       break;
 122
 123       case MHD_S_C_MTC:
 124         /*
 125          *
 126          */
 127       break;
 128
 129       case MHD_S_C_GTX:
 130         /*
 131          *
 132          */
 133       break;
 134
 135       case EMH_S_C_MHD + EVAX_OFFSET:
 136         /*
 137          * module header
 138          */
 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);
 151
 152       break;
 153
 154       case EMH_S_C_LNM + EVAX_OFFSET:
 155         /*
 156          *
 157          */
 158         PRIV(hdr_data).hdr_c_lnm =
 159           _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
 160       break;
 161
 162       case EMH_S_C_SRC + EVAX_OFFSET:
 163         /*
 164          *
 165          */
 166         PRIV(hdr_data).hdr_c_src =
 167           _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
 168       break;
 169
 170       case EMH_S_C_TTL + EVAX_OFFSET:
 171         /*
 172          *
 173          */
 174         PRIV(hdr_data).hdr_c_ttl =
 175           _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
 176       break;
 177
 178       case EMH_S_C_CPR + EVAX_OFFSET:
 179         /*
 180          *
 181          */
 182       break;
 183
 184       case EMH_S_C_MTC + EVAX_OFFSET:
 185         /*
 186          *
 187          */
 188       break;
 189
 190       case EMH_S_C_GTX + EVAX_OFFSET:
 191         /*
 192          *
 193          */
 194       break;
 195
 196       default:
 197         bfd_set_error (bfd_error_wrong_format);
 198       return -1;
 199
 200     } /* switch */
 201
 202   return 0;
 203 }
 204
 205 /*-----------------------------------------------------------------------------*/
 206 /* Output routines.  */
 207
 208 /* Manufacure a VMS like time on a unix based system.
 209    stolen from obj-vms.c  */
 210
 211 static unsigned char *
 212 get_vms_time_string ()
 213 {
 214   static unsigned char tbuf[18];
 215 #ifndef VMS
 216 #include <time.h>
 217
 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
 231   {
 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 */
 239
 240 #if VMS_DEBUG
 241   vms_debug (6, "vmstimestring:'%s'\n", tbuf);
 242 #endif
 243
 244   return tbuf;
 245 }
 246
 247 /* write object header for bfd abfd  */
 248
 249 int
 250 _bfd_vms_write_hdr (abfd, objtype)
 251      bfd *abfd;
 252      int objtype;
 253 {
 254   asymbol *symbol;
 255   unsigned int symnum;
 256   int had_case = 0;
 257   int had_file = 0;
 258
 259 #if VMS_DEBUG
 260   vms_debug (2, "vms_write_hdr (%p)\n", abfd);
 261 #endif
 262
 263   _bfd_vms_output_alignment (abfd, 2);
 264
 265   /* MHD */
 266
 267   if (objtype == OBJ_S_C_HDR)
 268     {
 269     }
 270   else
 271     {
 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);
 277     }
 278
 279   if (bfd_get_filename (abfd) != 0)
 280     {
 281       /* strip path and suffix information */
 282
 283       char *fname, *fout, *fptr;
 284
 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;
 295
 296       /* strip .obj suffix  */
 297
 298       fptr = strrchr (fname, '.');
 299       if ((fptr != 0)
 300           && (strcasecmp (fptr, ".OBJ") == 0))
 301         *fptr = 0;
 302
 303       fptr = fout;
 304       while (*fptr != 0)
 305         {
 306           *fptr = TOUPPER (*fptr);
 307           fptr++;
 308           if ((*fptr == ';')
 309              || ((fptr - fout) > 31))
 310             *fptr = 0;
 311         }
 312       _bfd_vms_output_counted (abfd, fout);
 313     }
 314   else
 315     _bfd_vms_output_counted (abfd, "NONAME");
 316
 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);
 321
 322   /* LMN */
 323
 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);
 327
 328   /* SRC */
 329
 330   _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
 331
 332   for (symnum = 0; symnum < abfd->symcount; symnum++)
 333     {
 334       symbol = abfd->outsymbols[symnum];
 335
 336       if (symbol->flags & BSF_FILE)
 337         {
 338           if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
 339             {
 340               PRIV(flag_hash_long_names) = symbol->name[6] - '0';
 341               PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
 342
 343               if (had_file)
 344                 break;
 345               had_case = 1;
 346               continue;
 347             }
 348
 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;
 354         }
 355     }
 356
 357   if (symnum == abfd->symcount)
 358     _bfd_vms_output_dump (abfd, (unsigned char *)"noname", 6);
 359
 360   _bfd_vms_output_flush (abfd);
 361
 362   /* TTL */
 363
 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);
 367
 368   /* CPR */
 369
 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);
 375
 376   return 0;
 377 }
 378
 379 /*-----------------------------------------------------------------------------*/
 380
 381 /* Process EOM/EEOM record
 382    return 0 on success, -1 on error  */
 383
 384 int
 385 _bfd_vms_slurp_eom (abfd, objtype)
 386      bfd *abfd;
 387      int objtype;
 388 {
 389   unsigned char *vms_rec;
 390
 391 #if VMS_DEBUG
 392   vms_debug(2, "EOM/EEOM\n");
 393 #endif
 394
 395   vms_rec = PRIV(vms_rec);
 396
 397   if ((objtype == OBJ_S_C_EOM)
 398      || (objtype == OBJ_S_C_EOMW))
 399     {
 400     }
 401   else
 402     {
 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)
 406         {
 407           (*_bfd_error_handler) (_("Object module NOT error-free !\n"));
 408           bfd_set_error (bfd_error_bad_value);
 409           return -1;
 410         }
 411       PRIV(eom_data).eom_has_transfer = false;
 412       if (PRIV(rec_size) > 10)
 413         {
 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);
 418
 419            abfd->start_address = PRIV(eom_data).eom_l_tfradr;
 420         }
 421     }
 422   return 0;
 423 }
 424
 425 /* Write eom record for bfd abfd  */
 426
 427 int
 428 _bfd_vms_write_eom (abfd, objtype)
 429      bfd *abfd;
 430      int objtype;
 431 {
 432 #if VMS_DEBUG
 433   vms_debug (2, "vms_write_eom (%p, %d)\n", abfd, objtype);
 434 #endif
 435
 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 */
 440
 441   if (bfd_get_start_address (abfd) != (bfd_vma)-1)
 442     {
 443       asection *section;
 444
 445       section = bfd_get_section_by_name (abfd, ".link");
 446       if (section == 0)
 447         {
 448           bfd_set_error (bfd_error_nonrepresentable_section);
 449           return -1;
 450         }
 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);
 456     }
 457
 458   _bfd_vms_output_end (abfd);
 459   return 0;
 460 }