mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-12 08:36:05 -04:00
330 lines
9.2 KiB
C
330 lines
9.2 KiB
C
/* Definitions of target machine GNU compiler. 32bit VMS version.
|
|
Copyright (C) 2009-2013 Free Software Foundation, Inc.
|
|
Contributed by Douglas B Rupp (rupp@gnat.com).
|
|
|
|
This file is part of GCC.
|
|
|
|
GCC 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 3, or (at your option)
|
|
any later version.
|
|
|
|
GCC 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 GCC; see the file COPYING3. If not see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
#include "config.h"
|
|
#include "system.h"
|
|
#include "coretypes.h"
|
|
#include "tree.h"
|
|
#include "vms-protos.h"
|
|
#include "ggc.h"
|
|
#include "target.h"
|
|
#include "output.h"
|
|
#include "tm.h"
|
|
#include "dwarf2out.h"
|
|
|
|
/* Correlation of standard CRTL names with DECCRTL function names. */
|
|
|
|
/* Name is for a function that allocate memory. Use the 64bit version
|
|
if -mmalloc64. */
|
|
#define VMS_CRTL_MALLOC (1 << 0)
|
|
|
|
/* If long pointer are enabled, use _NAME64 instead. */
|
|
#define VMS_CRTL_64 (1 << 1)
|
|
|
|
/* Prepend s/f before the name. To be applied after the previous rule.
|
|
use 's' for S float, 'f' for IEEE 32. */
|
|
#define VMS_CRTL_FLOAT32 (1 << 2)
|
|
|
|
/* Prepend t/g/d before the name. To be applied after the previous rule.
|
|
use 'g' for VAX G float, 'd' for VAX D float, 't' for IEEE 64. */
|
|
#define VMS_CRTL_FLOAT64 (1 << 3)
|
|
|
|
/* Prepend d before the name, only if using VAX fp. */
|
|
#define VMS_CRTL_FLOAT64_VAXD (1 << 4)
|
|
|
|
/* Prepend x before the name for if 128 bit long doubles are enabled. This
|
|
concern mostly 'printf'-like functions. */
|
|
#define VMS_CRTL_FLOAT128 (1 << 5)
|
|
|
|
/* From xxx, create xxx, xxxf, xxxl using MATH$XXX_T, MATH$XXX_S
|
|
and MATH$XXX{_X} if DPML is used. */
|
|
#define VMS_CRTL_DPML (1 << 6)
|
|
|
|
/* Together with DPML, it means that all variant (ie xxx, xxxf and xxxl) are
|
|
overridden by decc. Without DPML, it means this is a variant (ie xxxf
|
|
or xxxl) of a function. */
|
|
#define VMS_CRTL_NODPML (1 << 7)
|
|
|
|
/* Prepend __bsd44_ before the name. To be applied after the P64
|
|
rule. */
|
|
#define VMS_CRTL_BSD44 (1 << 8)
|
|
|
|
/* Define only in 32 bits mode, as this has no 64 bit variants.
|
|
Concerns getopt/getarg. */
|
|
#define VMS_CRTL_32ONLY (1 << 9)
|
|
|
|
/* GLobal data prefix (ga_, gl_...) */
|
|
#define VMS_CRTL_G_MASK (7 << 10)
|
|
#define VMS_CRTL_G_NONE (0 << 10)
|
|
#define VMS_CRTL_GA (1 << 10)
|
|
#define VMS_CRTL_GL (2 << 10)
|
|
|
|
/* Append '_2'. Not compatible with 64. */
|
|
#define VMS_CRTL_FLOATV2 (1 << 13)
|
|
|
|
struct vms_crtl_name
|
|
{
|
|
/* The standard C name. */
|
|
const char *const name;
|
|
|
|
/* Flags to drive the translation. */
|
|
unsigned int flags;
|
|
};
|
|
|
|
/* Map for the translation. */
|
|
|
|
static const struct vms_crtl_name vms_crtl_names[] =
|
|
{
|
|
#include "vms-crtlmap.h"
|
|
};
|
|
|
|
/* Number of entires in the above array. */
|
|
|
|
#define NBR_CRTL_NAMES (sizeof (vms_crtl_names) / sizeof (*vms_crtl_names))
|
|
|
|
/* List of aliased identifiers. They must be persistent across gc. */
|
|
|
|
static GTY(()) vec<tree, va_gc> *aliases_id;
|
|
|
|
/* Add a CRTL translation. This simply use the transparent alias
|
|
mechanism, which is platform independent and works with the
|
|
#pragma extern_prefix (which set the assembler name). */
|
|
|
|
static void
|
|
vms_add_crtl_xlat (const char *name, size_t nlen,
|
|
const char *id_str, size_t id_len)
|
|
{
|
|
tree targ;
|
|
|
|
/* printf ("vms crtl: %.*s -> %.*s\n", nlen, name, id_len, id_str); */
|
|
|
|
targ = get_identifier_with_length (name, nlen);
|
|
gcc_assert (!IDENTIFIER_TRANSPARENT_ALIAS (targ));
|
|
IDENTIFIER_TRANSPARENT_ALIAS (targ) = 1;
|
|
TREE_CHAIN (targ) = get_identifier_with_length (id_str, id_len);
|
|
|
|
vec_safe_push (aliases_id, targ);
|
|
}
|
|
|
|
/* Do VMS specific stuff on builtins: disable the ones that are not
|
|
standard, mangle names. */
|
|
|
|
void
|
|
vms_patch_builtins (void)
|
|
{
|
|
/* enum built_in_function bi; */
|
|
unsigned int i;
|
|
|
|
/* Fwrite on VMS is non-standard. */
|
|
if (builtin_decl_implicit_p (BUILT_IN_FWRITE))
|
|
set_builtin_decl_implicit_p (BUILT_IN_FWRITE, false);
|
|
|
|
if (builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED))
|
|
set_builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED, false);
|
|
|
|
/* Define aliases for names. */
|
|
for (i = 0; i < NBR_CRTL_NAMES; i++)
|
|
{
|
|
const struct vms_crtl_name *n = &vms_crtl_names[i];
|
|
char res[VMS_CRTL_MAXLEN + 3 + 9 + 1 + 1];
|
|
int rlen;
|
|
int nlen = strlen (n->name);
|
|
|
|
/* Discard 32ONLY if using 64 bit pointers. */
|
|
if ((n->flags & VMS_CRTL_32ONLY)
|
|
&& flag_vms_pointer_size == VMS_POINTER_SIZE_64)
|
|
continue;
|
|
|
|
/* Handle DPML unless overridden by decc. */
|
|
if ((n->flags & VMS_CRTL_DPML)
|
|
&& !(n->flags & VMS_CRTL_NODPML))
|
|
{
|
|
const char *p;
|
|
char alt[VMS_CRTL_MAXLEN + 3];
|
|
|
|
memcpy (res, "MATH$", 5);
|
|
rlen = 5;
|
|
for (p = n->name; *p; p++)
|
|
res[rlen++] = TOUPPER (*p);
|
|
res[rlen++] = '_';
|
|
res[rlen++] = 'T';
|
|
|
|
/* Double version. */
|
|
if (!(n->flags & VMS_CRTL_FLOAT64))
|
|
vms_add_crtl_xlat (n->name, nlen, res, rlen);
|
|
|
|
/* Float version. */
|
|
res[rlen - 1] = 'S';
|
|
memcpy (alt, n->name, nlen);
|
|
alt[nlen] = 'f';
|
|
vms_add_crtl_xlat (alt, nlen + 1, res, rlen);
|
|
|
|
/* Long double version. */
|
|
res[rlen - 1] = (LONG_DOUBLE_TYPE_SIZE == 128 ? 'X' : 'T');
|
|
alt[nlen] = 'l';
|
|
vms_add_crtl_xlat (alt, nlen + 1, res, rlen);
|
|
|
|
if (!(n->flags & (VMS_CRTL_FLOAT32 | VMS_CRTL_FLOAT64)))
|
|
continue;
|
|
}
|
|
|
|
if (n->flags & VMS_CRTL_FLOAT64_VAXD)
|
|
continue;
|
|
|
|
/* Add the dec-c prefix. */
|
|
memcpy (res, "decc$", 5);
|
|
rlen = 5;
|
|
|
|
if (n->flags & VMS_CRTL_BSD44)
|
|
{
|
|
memcpy (res + rlen, "__bsd44_", 8);
|
|
rlen += 8;
|
|
}
|
|
|
|
if ((n->flags & VMS_CRTL_G_MASK) != VMS_CRTL_G_NONE)
|
|
{
|
|
res[rlen++] = 'g';
|
|
switch (n->flags & VMS_CRTL_G_MASK)
|
|
{
|
|
case VMS_CRTL_GA:
|
|
res[rlen++] = 'a';
|
|
break;
|
|
case VMS_CRTL_GL:
|
|
res[rlen++] = 'l';
|
|
break;
|
|
default:
|
|
gcc_unreachable ();
|
|
}
|
|
res[rlen++] = '_';
|
|
}
|
|
|
|
if (n->flags & VMS_CRTL_FLOAT32)
|
|
res[rlen++] = 'f';
|
|
|
|
if (n->flags & VMS_CRTL_FLOAT64)
|
|
res[rlen++] = 't';
|
|
|
|
if ((n->flags & VMS_CRTL_FLOAT128) && LONG_DOUBLE_TYPE_SIZE == 128)
|
|
res[rlen++] = 'x';
|
|
|
|
memcpy (res + rlen, n->name, nlen);
|
|
|
|
if ((n->flags & VMS_CRTL_64) == 0)
|
|
{
|
|
rlen += nlen;
|
|
|
|
if (n->flags & VMS_CRTL_FLOATV2)
|
|
{
|
|
res[rlen++] = '_';
|
|
res[rlen++] = '2';
|
|
}
|
|
vms_add_crtl_xlat (n->name, nlen, res, rlen);
|
|
}
|
|
else
|
|
{
|
|
char alt[VMS_CRTL_MAXLEN + 3];
|
|
bool use_64;
|
|
|
|
/* Add three translations:
|
|
_X32 -> X
|
|
_X64 -> _X64
|
|
X -> X if short, _X64 if long. */
|
|
alt[0] = '_';
|
|
memcpy (alt + 1, n->name, nlen);
|
|
alt[1 + nlen + 0] = '3';
|
|
alt[1 + nlen + 1] = '2';
|
|
alt[1 + nlen + 2] = 0;
|
|
vms_add_crtl_xlat (alt, nlen + 3, res, rlen + nlen);
|
|
|
|
use_64 = (((n->flags & VMS_CRTL_64)
|
|
&& flag_vms_pointer_size == VMS_POINTER_SIZE_64)
|
|
|| ((n->flags & VMS_CRTL_MALLOC)
|
|
&& flag_vms_malloc64
|
|
&& flag_vms_pointer_size != VMS_POINTER_SIZE_NONE));
|
|
if (!use_64)
|
|
vms_add_crtl_xlat (n->name, nlen, res, rlen + nlen);
|
|
|
|
res[rlen++] = '_';
|
|
memcpy (res + rlen, n->name, nlen);
|
|
res[rlen + nlen + 0] = '6';
|
|
res[rlen + nlen + 1] = '4';
|
|
|
|
if (use_64)
|
|
vms_add_crtl_xlat (n->name, nlen, res, rlen + nlen + 2);
|
|
|
|
alt[1 + nlen + 0] = '6';
|
|
alt[1 + nlen + 1] = '4';
|
|
vms_add_crtl_xlat (alt, nlen + 3, res, rlen + nlen + 2);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Always default to .text section. */
|
|
|
|
section *
|
|
vms_function_section (tree decl ATTRIBUTE_UNUSED,
|
|
enum node_frequency freq ATTRIBUTE_UNUSED,
|
|
bool startup ATTRIBUTE_UNUSED,
|
|
bool exit ATTRIBUTE_UNUSED)
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
/* Additionnal VMS specific code for start_function. */
|
|
|
|
/* Must be kept in sync with libgcc/config/vms/vms-ucrt0.c */
|
|
#define VMS_MAIN_FLAGS_SYMBOL "__gcc_main_flags"
|
|
#define MAIN_FLAG_64BIT (1 << 0)
|
|
#define MAIN_FLAG_POSIX (1 << 1)
|
|
|
|
void
|
|
vms_start_function (const char *fnname)
|
|
{
|
|
#if VMS_DEBUGGING_INFO
|
|
if (vms_debug_main
|
|
&& debug_info_level > DINFO_LEVEL_NONE
|
|
&& strncmp (vms_debug_main, fnname, strlen (vms_debug_main)) == 0)
|
|
{
|
|
targetm.asm_out.globalize_label (asm_out_file, VMS_DEBUG_MAIN_POINTER);
|
|
ASM_OUTPUT_DEF (asm_out_file, VMS_DEBUG_MAIN_POINTER, fnname);
|
|
dwarf2out_vms_debug_main_pointer ();
|
|
vms_debug_main = 0;
|
|
}
|
|
#endif
|
|
|
|
/* Registers flags used for function main. This is necessary for
|
|
crt0 code. */
|
|
if (strcmp (fnname, "main") == 0)
|
|
{
|
|
unsigned int flags = 0;
|
|
|
|
if (flag_vms_pointer_size == VMS_POINTER_SIZE_64)
|
|
flags |= MAIN_FLAG_64BIT;
|
|
if (!flag_vms_return_codes)
|
|
flags |= MAIN_FLAG_POSIX;
|
|
|
|
targetm.asm_out.globalize_label (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
|
|
assemble_name (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
|
|
fprintf (asm_out_file, " = %u\n", flags);
|
|
}
|
|
}
|
|
|
|
#include "gt-vms.h"
|