gcc/config/vms/vms.c

   1 /* Definitions of target machine GNU compiler. 32bit VMS version.
   2    Copyright (C) 2009-2017 Free Software Foundation, Inc.
   3    Contributed by Douglas B Rupp (rupp@gnat.com).
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 3, or (at your option)
  10 any later version.
  11
  12 GCC is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING3.  If not see
  19 <http://www.gnu.org/licenses/>.  */
  20
  21 #include "config.h"
  22 #include "system.h"
  23 #include "coretypes.h"
  24 #include "target.h"
  25 #include "tree.h"
  26 #include "stringpool.h"
  27 #include "alias.h"
  28 #include "vms-protos.h"
  29 #include "output.h"
  30 #include "dwarf2out.h"
  31
  32 /* Correlation of standard CRTL names with DECCRTL function names.  */
  33
  34 /* Name is for a function that allocate memory.  Use the 64bit version
  35    if -mmalloc64.  */
  36 #define VMS_CRTL_MALLOC (1 << 0)
  37
  38 /* If long pointer are enabled, use _NAME64 instead.  */
  39 #define VMS_CRTL_64     (1 << 1)
  40
  41 /* Prepend s/f before the name.  To be applied after the previous rule.
  42    use 's' for S float, 'f' for IEEE 32.  */
  43 #define VMS_CRTL_FLOAT32  (1 << 2)
  44
  45 /* Prepend t/g/d before the name.  To be applied after the previous rule.
  46    use 'g' for VAX G float, 'd' for VAX D float, 't' for IEEE 64.  */
  47 #define VMS_CRTL_FLOAT64  (1 << 3)
  48
  49 /* Prepend d before the name, only if using VAX fp.  */
  50 #define VMS_CRTL_FLOAT64_VAXD  (1 << 4)
  51
  52 /* Prepend x before the name for if 128 bit long doubles are enabled.  This
  53    concern mostly 'printf'-like functions.  */
  54 #define VMS_CRTL_FLOAT128 (1 << 5)
  55
  56 /* From xxx, create xxx, xxxf, xxxl using MATH$XXX_T, MATH$XXX_S
  57    and MATH$XXX{_X} if DPML is used.  */
  58 #define VMS_CRTL_DPML (1 << 6)
  59
  60 /* Together with DPML, it means that all variant (ie xxx, xxxf and xxxl) are
  61    overridden by decc.  Without DPML, it means this is a variant (ie xxxf
  62    or xxxl) of a function.  */
  63 #define VMS_CRTL_NODPML (1 << 7)
  64
  65 /* Prepend __bsd44_ before the name.  To be applied after the P64
  66    rule.  */
  67 #define VMS_CRTL_BSD44  (1 << 8)
  68
  69 /* Define only in 32 bits mode, as this has no 64 bit variants.
  70    Concerns getopt/getarg.  */
  71 #define VMS_CRTL_32ONLY (1 << 9)
  72
  73 /* GLobal data prefix (ga_, gl_...)  */
  74 #define VMS_CRTL_G_MASK (7 << 10)
  75 #define VMS_CRTL_G_NONE (0 << 10)
  76 #define VMS_CRTL_GA     (1 << 10)
  77 #define VMS_CRTL_GL     (2 << 10)
  78
  79 /* Append '_2'.  Not compatible with 64.  */
  80 #define VMS_CRTL_FLOATV2 (1 << 13)
  81
  82 struct vms_crtl_name
  83 {
  84   /* The standard C name.  */
  85   const char *const name;
  86
  87   /* Flags to drive the translation.  */
  88   unsigned int flags;
  89 };
  90
  91 /* Map for the translation.  */
  92
  93 static const struct vms_crtl_name vms_crtl_names[] =
  94   {
  95 #include "vms-crtlmap.h"
  96   };
  97
  98 /* Number of entires in the above array.  */
  99
 100 #define NBR_CRTL_NAMES (sizeof (vms_crtl_names) / sizeof (*vms_crtl_names))
 101
 102 /* List of aliased identifiers.  They must be persistent across gc.  */
 103
 104 static GTY(()) vec<tree, va_gc> *aliases_id;
 105
 106 /* Add a CRTL translation.  This simply use the transparent alias
 107    mechanism, which is platform independent and works with the
 108    #pragma extern_prefix (which set the assembler name).  */
 109
 110 static void
 111 vms_add_crtl_xlat (const char *name, size_t nlen,
 112                    const char *id_str, size_t id_len)
 113 {
 114   tree targ;
 115
 116   /* printf ("vms crtl: %.*s -> %.*s\n", nlen, name, id_len, id_str); */
 117
 118   targ = get_identifier_with_length (name, nlen);
 119   gcc_assert (!IDENTIFIER_TRANSPARENT_ALIAS (targ));
 120   IDENTIFIER_TRANSPARENT_ALIAS (targ) = 1;
 121   TREE_CHAIN (targ) = get_identifier_with_length (id_str, id_len);
 122
 123   vec_safe_push (aliases_id, targ);
 124 }
 125
 126 /* Do VMS specific stuff on builtins: disable the ones that are not
 127    standard, mangle names.  */
 128
 129 void
 130 vms_patch_builtins (void)
 131 {
 132   /* enum built_in_function bi; */
 133   unsigned int i;
 134
 135   /* Fwrite on VMS is non-standard.  */
 136   if (builtin_decl_implicit_p (BUILT_IN_FWRITE))
 137     set_builtin_decl_implicit_p (BUILT_IN_FWRITE, false);
 138
 139   if (builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED))
 140     set_builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED, false);
 141
 142   /* Define aliases for names.  */
 143   for (i = 0; i < NBR_CRTL_NAMES; i++)
 144     {
 145       const struct vms_crtl_name *n = &vms_crtl_names[i];
 146       char res[VMS_CRTL_MAXLEN + 3 + 9 + 1 + 1];
 147       int rlen;
 148       int nlen = strlen (n->name);
 149
 150       /* Discard 32ONLY if using 64 bit pointers.  */
 151       if ((n->flags & VMS_CRTL_32ONLY)
 152           && flag_vms_pointer_size == VMS_POINTER_SIZE_64)
 153         continue;
 154
 155       /* Handle DPML unless overridden by decc.  */
 156       if ((n->flags & VMS_CRTL_DPML)
 157           && !(n->flags & VMS_CRTL_NODPML))
 158         {
 159           const char *p;
 160           char alt[VMS_CRTL_MAXLEN + 3];
 161
 162           memcpy (res, "MATH$", 5);
 163           rlen = 5;
 164           for (p = n->name; *p; p++)
 165             res[rlen++] = TOUPPER (*p);
 166           res[rlen++] = '_';
 167           res[rlen++] = 'T';
 168
 169           /* Double version.  */
 170           if (!(n->flags & VMS_CRTL_FLOAT64))
 171             vms_add_crtl_xlat (n->name, nlen, res, rlen);
 172
 173           /* Float version.  */
 174           res[rlen - 1] = 'S';
 175           memcpy (alt, n->name, nlen);
 176           alt[nlen] = 'f';
 177           vms_add_crtl_xlat (alt, nlen + 1, res, rlen);
 178
 179           /* Long double version.  */
 180           res[rlen - 1] = (LONG_DOUBLE_TYPE_SIZE == 128 ? 'X' : 'T');
 181           alt[nlen] = 'l';
 182           vms_add_crtl_xlat (alt, nlen + 1, res, rlen);
 183
 184           if (!(n->flags & (VMS_CRTL_FLOAT32 | VMS_CRTL_FLOAT64)))
 185             continue;
 186         }
 187
 188       if (n->flags & VMS_CRTL_FLOAT64_VAXD)
 189         continue;
 190
 191       /* Add the dec-c prefix.  */
 192       memcpy (res, "decc$", 5);
 193       rlen = 5;
 194
 195       if (n->flags & VMS_CRTL_BSD44)
 196         {
 197           memcpy (res + rlen, "__bsd44_", 8);
 198           rlen += 8;
 199         }
 200
 201       if ((n->flags & VMS_CRTL_G_MASK) != VMS_CRTL_G_NONE)
 202         {
 203           res[rlen++] = 'g';
 204           switch (n->flags & VMS_CRTL_G_MASK)
 205             {
 206             case VMS_CRTL_GA:
 207               res[rlen++] = 'a';
 208               break;
 209             case VMS_CRTL_GL:
 210               res[rlen++] = 'l';
 211               break;
 212             default:
 213               gcc_unreachable ();
 214             }
 215           res[rlen++] = '_';
 216         }
 217
 218       if (n->flags & VMS_CRTL_FLOAT32)
 219         res[rlen++] = 'f';
 220
 221       if (n->flags & VMS_CRTL_FLOAT64)
 222         res[rlen++] = 't';
 223
 224       if ((n->flags & VMS_CRTL_FLOAT128) && LONG_DOUBLE_TYPE_SIZE == 128)
 225         res[rlen++] = 'x';
 226
 227       memcpy (res + rlen, n->name, nlen);
 228
 229       if ((n->flags & VMS_CRTL_64) == 0)
 230         {
 231           rlen += nlen;
 232
 233           if (n->flags & VMS_CRTL_FLOATV2)
 234             {
 235               res[rlen++] = '_';
 236               res[rlen++] = '2';
 237             }
 238           vms_add_crtl_xlat (n->name, nlen, res, rlen);
 239         }
 240       else
 241         {
 242           char alt[VMS_CRTL_MAXLEN + 3];
 243           bool use_64;
 244
 245           /* Add three translations:
 246              _X32 -> X
 247              _X64 -> _X64
 248              X -> X if short, _X64 if long.  */
 249           alt[0] = '_';
 250           memcpy (alt + 1, n->name, nlen);
 251           alt[1 + nlen + 0] = '3';
 252           alt[1 + nlen + 1] = '2';
 253           alt[1 + nlen + 2] = 0;
 254           vms_add_crtl_xlat (alt, nlen + 3, res, rlen + nlen);
 255
 256           use_64 = (((n->flags & VMS_CRTL_64)
 257                      && flag_vms_pointer_size == VMS_POINTER_SIZE_64)
 258                     || ((n->flags & VMS_CRTL_MALLOC)
 259                         && flag_vms_malloc64
 260                         && flag_vms_pointer_size != VMS_POINTER_SIZE_NONE));
 261           if (!use_64)
 262             vms_add_crtl_xlat (n->name, nlen, res, rlen + nlen);
 263
 264           res[rlen++] = '_';
 265           memcpy (res + rlen, n->name, nlen);
 266           res[rlen + nlen + 0] = '6';
 267           res[rlen + nlen + 1] = '4';
 268
 269           if (use_64)
 270             vms_add_crtl_xlat (n->name, nlen, res, rlen + nlen + 2);
 271
 272           alt[1 + nlen + 0] = '6';
 273           alt[1 + nlen + 1] = '4';
 274           vms_add_crtl_xlat (alt, nlen + 3, res, rlen + nlen + 2);
 275         }
 276     }
 277 }
 278
 279 /* Always default to .text section.  */
 280
 281 section *
 282 vms_function_section (tree decl ATTRIBUTE_UNUSED,
 283                       enum node_frequency freq ATTRIBUTE_UNUSED,
 284                       bool startup ATTRIBUTE_UNUSED,
 285                       bool exit ATTRIBUTE_UNUSED)
 286 {
 287   return NULL;
 288 }
 289
 290 /* Additionnal VMS specific code for start_function.  */
 291
 292 /* Must be kept in sync with libgcc/config/vms/vms-ucrt0.c  */
 293 #define VMS_MAIN_FLAGS_SYMBOL "__gcc_main_flags"
 294 #define MAIN_FLAG_64BIT (1 << 0)
 295 #define MAIN_FLAG_POSIX (1 << 1)
 296
 297 void
 298 vms_start_function (const char *fnname)
 299 {
 300 #if VMS_DEBUGGING_INFO
 301   if (vms_debug_main
 302       && debug_info_level > DINFO_LEVEL_NONE
 303       && strncmp (vms_debug_main, fnname, strlen (vms_debug_main)) == 0)
 304     {
 305       targetm.asm_out.globalize_label (asm_out_file, VMS_DEBUG_MAIN_POINTER);
 306       ASM_OUTPUT_DEF (asm_out_file, VMS_DEBUG_MAIN_POINTER, fnname);
 307       dwarf2out_vms_debug_main_pointer ();
 308       vms_debug_main = 0;
 309     }
 310 #endif
 311
 312   /* Registers flags used for function main.  This is necessary for
 313      crt0 code.  */
 314   if (strcmp (fnname, "main") == 0)
 315     {
 316       unsigned int flags = 0;
 317
 318       if (flag_vms_pointer_size == VMS_POINTER_SIZE_64)
 319         flags |= MAIN_FLAG_64BIT;
 320       if (!flag_vms_return_codes)
 321         flags |= MAIN_FLAG_POSIX;
 322
 323       targetm.asm_out.globalize_label (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
 324       assemble_name (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
 325       fprintf (asm_out_file, " = %u\n", flags);
 326     }
 327 }
 328
 329 #include "gt-vms.h"