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 "sysdep.h"
  29 #include "bfdlink.h"
  30 #include "safe-ctype.h"
  31 #include "libbfd.h"
  32
  33 #include "vms.h"
  34
  35 #ifdef HAVE_ALLOCA_H
  36 #include <alloca.h>
  37 #endif
  38
  39 static unsigned char *get_vms_time_string PARAMS ((void));
  40
  41
  42 /*---------------------------------------------------------------------------*/
  43
  44 /* Read & process emh record
  45    return 0 on success, -1 on error  */
  46
  47 int
  48 _bfd_vms_slurp_hdr (abfd, objtype)
  49      bfd *abfd;
  50      int objtype;
  51 {
  52   unsigned char *ptr;
  53   unsigned char *vms_rec;
  54   int subtype;
  55
  56   vms_rec = PRIV(vms_rec);
  57
  58 #if VMS_DEBUG
  59   vms_debug(2, "HDR/EMH\n");
  60 #endif
  61
  62   switch (objtype)
  63     {
  64       case OBJ_S_C_HDR:
  65         subtype = vms_rec[1];
  66         break;
  67       case EOBJ_S_C_EMH:
  68         subtype = bfd_getl16 (vms_rec + 4) + EVAX_OFFSET;
  69         break;
  70       default:
  71         subtype = -1;
  72     }
  73
  74 #if VMS_DEBUG
  75   vms_debug(3, "subtype %d\n", subtype);
  76 #endif
  77
  78   switch (subtype)
  79     {
  80
  81       case MHD_S_C_MHD:
  82         /*
  83          * module header
  84          */
  85         PRIV(hdr_data).hdr_b_strlvl = vms_rec[2];
  86         PRIV(hdr_data).hdr_l_recsiz = bfd_getl16 (vms_rec + 3);
  87         PRIV(hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 5);
  88         ptr = vms_rec + 5 + vms_rec[5] + 1;
  89         PRIV(hdr_data).hdr_t_version = _bfd_vms_save_counted_string (ptr);
  90         ptr += *ptr + 1;
  91         PRIV(hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17);
  92
  93       break;
  94
  95       case MHD_S_C_LNM:
  96         /*
  97          *
  98          */
  99         PRIV(hdr_data).hdr_c_lnm = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
 100       break;
 101
 102       case MHD_S_C_SRC:
 103         /*
 104          *
 105          */
 106         PRIV(hdr_data).hdr_c_src = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
 107       break;
 108
 109       case MHD_S_C_TTL:
 110         /*
 111          *
 112          */
 113         PRIV(hdr_data).hdr_c_ttl = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
 114       break;
 115
 116       case MHD_S_C_CPR:
 117         /*
 118          *
 119          */
 120       break;
 121
 122       case MHD_S_C_MTC:
 123         /*
 124          *
 125          */
 126       break;
 127
 128       case MHD_S_C_GTX:
 129         /*
 130          *
 131          */
 132       break;
 133
 134       case EMH_S_C_MHD + EVAX_OFFSET:
 135         /*
 136          * module header
 137          */
 138         PRIV(hdr_data).hdr_b_strlvl = vms_rec[6];
 139         PRIV(hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8);
 140         PRIV(hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12);
 141         PRIV(hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16);
 142         PRIV(hdr_data).hdr_t_name =
 143           _bfd_vms_save_counted_string (vms_rec + 20);
 144         ptr = vms_rec + 20 + vms_rec[20] + 1;
 145         PRIV(hdr_data).hdr_t_version =
 146           _bfd_vms_save_counted_string (ptr);
 147         ptr += *ptr + 1;
 148         PRIV(hdr_data).hdr_t_date =
 149           _bfd_vms_save_sized_string (ptr, 17);
 150
 151       break;
 152
 153       case EMH_S_C_LNM + EVAX_OFFSET:
 154         /*
 155          *
 156          */
 157         PRIV(hdr_data).hdr_c_lnm =
 158           _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
 159       break;
 160
 161       case EMH_S_C_SRC + EVAX_OFFSET:
 162         /*
 163          *
 164          */
 165         PRIV(hdr_data).hdr_c_src =
 166           _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
 167       break;
 168
 169       case EMH_S_C_TTL + EVAX_OFFSET:
 170         /*
 171          *
 172          */
 173         PRIV(hdr_data).hdr_c_ttl =
 174           _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
 175       break;
 176
 177       case EMH_S_C_CPR + EVAX_OFFSET:
 178         /*
 179          *
 180          */
 181       break;
 182
 183       case EMH_S_C_MTC + EVAX_OFFSET:
 184         /*
 185          *
 186          */
 187       break;
 188
 189       case EMH_S_C_GTX + EVAX_OFFSET:
 190         /*
 191          *
 192          */
 193       break;
 194
 195       default:
 196         bfd_set_error (bfd_error_wrong_format);
 197       return -1;
 198
 199     } /* switch */
 200
 201   return 0;
 202 }
 203
 204 /*-----------------------------------------------------------------------------*/
 205 /* Output routines.  */
 206
 207 /* Manufacure a VMS like time on a unix based system.
 208    stolen from obj-vms.c  */
 209
 210 static unsigned char *
 211 get_vms_time_string ()
 212 {
 213   static unsigned char tbuf[18];
 214 #ifndef VMS
 215 #include <time.h>
 216
 217   char *pnt;
 218   time_t timeb;
 219   time (&timeb);
 220   pnt = ctime (&timeb);
 221   pnt[3] = 0;
 222   pnt[7] = 0;
 223   pnt[10] = 0;
 224   pnt[16] = 0;
 225   pnt[24] = 0;
 226   sprintf (tbuf, "%2s-%3s-%s %s", pnt + 8, pnt + 4, pnt + 20, pnt + 11);
 227 #else
 228 #include <starlet.h>
 229   struct
 230   {
 231     int Size;
 232     unsigned char *Ptr;
 233   } Descriptor;
 234   Descriptor.Size = 17;
 235   Descriptor.Ptr = tbuf;
 236   SYS$ASCTIM (0, &Descriptor, 0, 0);
 237 #endif /* not VMS */
 238
 239 #if VMS_DEBUG
 240   vms_debug (6, "vmstimestring:'%s'\n", tbuf);
 241 #endif
 242
 243   return tbuf;
 244 }
 245
 246 /* write object header for bfd abfd  */
 247
 248 int
 249 _bfd_vms_write_hdr (abfd, objtype)
 250      bfd *abfd;
 251      int objtype;
 252 {
 253   asymbol *symbol;
 254   unsigned int symnum;
 255   int had_case = 0;
 256   int had_file = 0;
 257
 258 #if VMS_DEBUG
 259   vms_debug (2, "vms_write_hdr (%p)\n", abfd);
 260 #endif
 261
 262   _bfd_vms_output_alignment (abfd, 2);
 263
 264   /* MHD */
 265
 266   if (objtype == OBJ_S_C_HDR)
 267     {
 268     }
 269   else
 270     {
 271       _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
 272       _bfd_vms_output_short (abfd, EOBJ_S_C_STRLVL);
 273       _bfd_vms_output_long (abfd, 0);
 274       _bfd_vms_output_long (abfd, 0);
 275       _bfd_vms_output_long (abfd, MAX_OUTREC_SIZE);
 276     }
 277
 278   if (bfd_get_filename (abfd) != 0)
 279     {
 280       /* strip path and suffix information */
 281
 282       char *fname, *fout, *fptr;
 283
 284       fptr = bfd_get_filename (abfd);
 285       fname = (char *) alloca (strlen (fptr) + 1);
 286       strcpy (fname, fptr);
 287       fout = strrchr (fname, ']');
 288       if (fout == 0)
 289         fout = strchr (fname, ':');
 290       if (fout != 0)
 291         fout++;
 292       else
 293         fout = fname;
 294
 295       /* strip .obj suffix  */
 296
 297       fptr = strrchr (fname, '.');
 298       if ((fptr != 0)
 299           && (strcasecmp (fptr, ".OBJ") == 0))
 300         *fptr = 0;
 301
 302       fptr = fout;
 303       while (*fptr != 0)
 304         {
 305           *fptr = TOUPPER (*fptr);
 306           fptr++;
 307           if ((*fptr == ';')
 308              || ((fptr - fout) > 31))
 309             *fptr = 0;
 310         }
 311       _bfd_vms_output_counted (abfd, fout);
 312     }
 313   else
 314     _bfd_vms_output_counted (abfd, "NONAME");
 315
 316   _bfd_vms_output_counted (abfd, BFD_VERSION_STRING);
 317   _bfd_vms_output_dump (abfd, get_vms_time_string (), 17);
 318   _bfd_vms_output_fill (abfd, 0, 17);
 319   _bfd_vms_output_flush (abfd);
 320
 321   /* LMN */
 322
 323   _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
 324   _bfd_vms_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
 325   _bfd_vms_output_flush (abfd);
 326
 327   /* SRC */
 328
 329   _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
 330
 331   for (symnum = 0; symnum < abfd->symcount; symnum++)
 332     {
 333       symbol = abfd->outsymbols[symnum];
 334
 335       if (symbol->flags & BSF_FILE)
 336         {
 337           if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
 338             {
 339               PRIV(flag_hash_long_names) = symbol->name[6] - '0';
 340               PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
 341
 342               if (had_file)
 343                 break;
 344               had_case = 1;
 345               continue;
 346             }
 347
 348           _bfd_vms_output_dump (abfd, (unsigned char *) symbol->name,
 349                                 (int) strlen (symbol->name));
 350           if (had_case)
 351             break;
 352           had_file = 1;
 353         }
 354     }
 355
 356   if (symnum == abfd->symcount)
 357     _bfd_vms_output_dump (abfd, (unsigned char *)"noname", 6);
 358
 359   _bfd_vms_output_flush (abfd);
 360
 361   /* TTL */
 362
 363   _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
 364   _bfd_vms_output_dump (abfd, (unsigned char *)"TTL", 3);
 365   _bfd_vms_output_flush (abfd);
 366
 367   /* CPR */
 368
 369   _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
 370   _bfd_vms_output_dump (abfd,
 371                          (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
 372                          39);
 373   _bfd_vms_output_flush (abfd);
 374
 375   return 0;
 376 }
 377
 378 /*-----------------------------------------------------------------------------*/
 379
 380 /* Process EOM/EEOM record
 381    return 0 on success, -1 on error  */
 382
 383 int
 384 _bfd_vms_slurp_eom (abfd, objtype)
 385      bfd *abfd;
 386      int objtype;
 387 {
 388   unsigned char *vms_rec;
 389
 390 #if VMS_DEBUG
 391   vms_debug(2, "EOM/EEOM\n");
 392 #endif
 393
 394   vms_rec = PRIV(vms_rec);
 395
 396   if ((objtype == OBJ_S_C_EOM)
 397      || (objtype == OBJ_S_C_EOMW))
 398     {
 399     }
 400   else
 401     {
 402       PRIV(eom_data).eom_l_total_lps = bfd_getl32 (vms_rec + 4);
 403       PRIV(eom_data).eom_b_comcod = *(vms_rec + 8);
 404       if (PRIV(eom_data).eom_b_comcod > 1)
 405         {
 406           (*_bfd_error_handler) (_("Object module NOT error-free !\n"));
 407           bfd_set_error (bfd_error_bad_value);
 408           return -1;
 409         }
 410       PRIV(eom_data).eom_has_transfer = false;
 411       if (PRIV(rec_size) > 10)
 412         {
 413            PRIV(eom_data).eom_has_transfer = true;
 414            PRIV(eom_data).eom_b_tfrflg = *(vms_rec + 9);
 415            PRIV(eom_data).eom_l_psindx = bfd_getl32 (vms_rec + 12);
 416            PRIV(eom_data).eom_l_tfradr = bfd_getl32 (vms_rec + 16);
 417
 418            abfd->start_address = PRIV(eom_data).eom_l_tfradr;
 419         }
 420     }
 421   return 0;
 422 }
 423
 424 /* Write eom record for bfd abfd  */
 425
 426 int
 427 _bfd_vms_write_eom (abfd, objtype)
 428      bfd *abfd;
 429      int objtype;
 430 {
 431 #if VMS_DEBUG
 432   vms_debug (2, "vms_write_eom (%p, %d)\n", abfd, objtype);
 433 #endif
 434
 435   _bfd_vms_output_begin (abfd, objtype, -1);
 436   _bfd_vms_output_long (abfd, (unsigned long) (PRIV(vms_linkage_index) >> 1));
 437   _bfd_vms_output_byte (abfd, 0);       /* completion code */
 438   _bfd_vms_output_byte (abfd, 0);       /* fill byte */
 439
 440   if (bfd_get_start_address (abfd) != (bfd_vma)-1)
 441     {
 442       asection *section;
 443
 444       section = bfd_get_section_by_name (abfd, ".link");
 445       if (section == 0)
 446         {
 447           bfd_set_error (bfd_error_nonrepresentable_section);
 448           return -1;
 449         }
 450       _bfd_vms_output_short (abfd, 0);
 451       _bfd_vms_output_long (abfd, (unsigned long) (section->index));
 452       _bfd_vms_output_long (abfd,
 453                              (unsigned long) bfd_get_start_address (abfd));
 454       _bfd_vms_output_long (abfd, 0);
 455     }
 456
 457   _bfd_vms_output_end (abfd);
 458   return 0;
 459 }