From: Richard Kenner Date: Sat, 16 Nov 1996 11:08:22 +0000 (-0500) Subject: Initial revision X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=aacdb8bb8f5da389ed202ca0a8ba448cfe1dd849;p=gcc.git Initial revision From-SVN: r13186 --- diff --git a/gcc/config/alpha/t-vms b/gcc/config/alpha/t-vms new file mode 100644 index 00000000000..12ac24098ce --- /dev/null +++ b/gcc/config/alpha/t-vms @@ -0,0 +1,6 @@ +# Do not build libgcc1. +LIBGCC1 = +CROSS_LIBGCC1 = + +LIB2FUNCS_EXTRA = tramp.s + diff --git a/gcc/config/alpha/vms.h b/gcc/config/alpha/vms.h new file mode 100644 index 00000000000..30918aae2a4 --- /dev/null +++ b/gcc/config/alpha/vms.h @@ -0,0 +1,413 @@ +/* Output variables, constants and external declarations, for GNU compiler. + Copyright (C) 1996 Free Software Foundation, Inc. + +This file is part of GNU CC. + +GNU CC 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, or (at your option) +any later version. + +GNU CC 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 GNU CC; see the file COPYING. If not, write to +the Free Software Foundation, 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +#define OPEN_VMS 1 + +/* This enables certain macros in alpha.h, which will make an indirect + reference to an external symbol an invalid address. This needs to be + defined before we include alpha.h, since it determines which macros + are used for GO_IF_*. */ + +#define NO_EXTERNAL_INDIRECT_ADDRESS + +#include "alpha/alpha.h" + +/* Predefine this in CPP because VMS limits the size of command options + and GNU CPP is not used on VMS except with GNU C. */ +#undef CPP_PREDEFINES +#define CPP_PREDEFINES \ +"-Dalpha -D__ALPHA -Dvms -DVMS -D__alpha__ -D__alpha -D__vms__ -D__VMS__\ + -D__VMS_VER=70000022 \ + -D__GNUC__=2 -D__GNUC_MINOR__=7 -Asystem(vms) -Acpu(alpha) -Amachine(alpha)" + +#undef CPP_SPEC +#define CPP_SPEC "\ +%{mfloat-ieee:-D__IEEE_FLOAT} \ +%{mfloat-vax:-D__G_FLOAT} \ +%{!mfloat-vax:-D__IEEE_FLOAT} \ +%{!.S: -D__LANGUAGE_C__ -D__LANGUAGE_C %{!ansi:-DLANGUAGE_C}} \ +%{.S: -D__LANGUAGE_ASSEMBLY__ -D__LANGUAGE_ASSEMBLY %{!ansi:-DLANGUAGE_ASSEMBLY}} \ +%{.cc: -D__LANGUAGE_C_PLUS_PLUS__ -D__LANGUAGE_C_PLUS_PLUS -D__cplusplus} \ +%{.cxx: -D__LANGUAGE_C_PLUS_PLUS__ -D__LANGUAGE_C_PLUS_PLUS -D__cplusplus} \ +%{.C: -D__LANGUAGE_C_PLUS_PLUS__ -D__LANGUAGE_C_PLUS_PLUS -D__cplusplus} \ +%{.m: -D__LANGUAGE_OBJECTIVE_C__ -D__LANGUAGE_OBJECTIVE_C}" + +/* We allow $'s in identifiers unless -ansi is used .. */ + +#define DOLLARS_IN_IDENTIFIERS 2 + +/* These match the definitions used in DECCRTL, the VMS C run-time library + +#define SIZE_TYPE "unsigned int" +#define PTRDIFF_TYPE "int" +*/ + +/* Use memcpy for structure copying, and so forth. */ +#define TARGET_MEM_FUNCTIONS + +/* By default, allow $ to be part of an identifier. */ +#define DOLLARS_IN_IDENTIFIERS 2 + +/* no-soft-float, fp-regs, gas, open_vms, float-ieee */ +#undef TARGET_DEFAULT +#define TARGET_DEFAULT 263 +#undef TARGET_NAME +#define TARGET_NAME "openVMS/Alpha" +#undef TARGET_VERSION +#define TARGET_VERSION fprintf (stderr, " (%s)", TARGET_NAME); + +/* The structure return address arrives as an "argument" on VMS. */ +#undef STRUCT_VALUE_REGNUM +#define STRUCT_VALUE 0 +#undef PCC_STATIC_STRUCT_RETURN + +/* no floating emulation. */ +#undef REAL_ARITHMETIC + +/* "long" is 32 bits. */ +#undef LONG_TYPE_SIZE +#define LONG_TYPE_SIZE 32 + +/* Pointer is 32 bits but the hardware has 64-bit addresses, sign extended. */ +#undef POINTER_SIZE +#define POINTER_SIZE 32 +#define POINTERS_EXTEND_UNSIGNED 0 + +/* No data type wants to be aligned rounder than this. */ +#undef BIGGEST_ALIGNMENT +#define BIGGEST_ALIGNMENT 128 /* X Complex */ +#define MAX_OFILE_ALIGNMENT 524288 /* 8 x 2^16 by DEC Test CD40VRA */ + +#undef FIXED_REGISTERS +#define FIXED_REGISTERS \ + {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, \ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 } + +#undef CALL_USED_REGISTERS +#define CALL_USED_REGISTERS \ + {1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ + 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, \ + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 } + +#undef HARD_FRAME_POINTER_REGNUM +#define HARD_FRAME_POINTER_REGNUM 29 + +#undef CAN_ELIMINATE +#define CAN_ELIMINATE(FROM, TO) \ +((TO) != STACK_POINTER_REGNUM || ! alpha_using_fp ()) + +#undef INITIAL_ELIMINATION_OFFSET +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \ +{ if ((FROM) == FRAME_POINTER_REGNUM) \ + (OFFSET) = alpha_sa_size () + alpha_pv_save_size (); \ + else if ((FROM) == ARG_POINTER_REGNUM) \ + (OFFSET) = (ALPHA_ROUND (alpha_sa_size () + alpha_pv_save_size () \ + + get_frame_size () \ + + current_function_pretend_args_size) \ + - current_function_pretend_args_size); \ + if ((TO) == STACK_POINTER_REGNUM) \ + (OFFSET) += ALPHA_ROUND (current_function_outgoing_args_size); \ +} + +#undef FUNCTION_ARG_ADVANCE +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \ + if (MUST_PASS_IN_STACK (MODE, TYPE)) \ + (CUM) = (CUM & ~0xff) + 6; \ + else \ + (CUM) += ALPHA_ARG_SIZE (MODE, TYPE, NAMED) + +#undef FUNCTION_ARG_PARTIAL_NREGS +#define FUNCTION_ARG_PARTIAL_NREGS(CUM, MODE, TYPE, NAMED) \ +((CUM & 0xff) < 6 && 6 < (CUM & 0xff) \ + + ALPHA_ARG_SIZE (MODE, TYPE, NAMED) \ + ? 6 - (CUM & 0xff) : 0) + +extern char *vmskrunch (); +#undef ENCODE_SECTION_INFO +#define ENCODE_SECTION_INFO(DECL) \ +do { \ + if (TREE_CODE (DECL) == FUNCTION_DECL && ! TREE_PUBLIC (DECL)) \ + SYMBOL_REF_FLAG (XEXP (DECL_RTL (DECL), 0)) = 1; \ + \ + if (TREE_CODE_CLASS (TREE_CODE (DECL)) == 'd' \ + && GET_CODE (DECL_RTL (DECL)) == MEM \ + && GET_CODE (XEXP (DECL_RTL (DECL), 0)) == SYMBOL_REF) \ + XSTR (XEXP (DECL_RTL (DECL), 0), 0) \ + = vmskrunch (XSTR (XEXP (DECL_RTL (DECL), 0), 0)); \ +} while (0) + +/* Don't use BLKmode if VAX floats are used. */ +#undef SETUP_INCOMING_VARARGS +#define SETUP_INCOMING_VARARGS(CUM,MODE,TYPE,PRETEND_SIZE,NO_RTL) \ +{ if ((CUM & 0xff) < 6) \ + { \ + if (! (NO_RTL)) \ + { \ + move_block_from_reg \ + (16 + (CUM & 0xff), \ + gen_rtx (MEM, BLKmode, \ + plus_constant (virtual_incoming_args_rtx, \ + ((CUM & 0xff) + 6)* UNITS_PER_WORD)),\ + 6 - (CUM & 0xff), (6 - (CUM & 0xff)) * UNITS_PER_WORD); \ + if (!TARGET_FLOAT_VAX || !TARGET_FPREGS) \ + move_block_from_reg \ + (16 + (TARGET_FPREGS ? 32 : 0) + (CUM & 0xff), \ + gen_rtx (MEM, BLKmode, \ + plus_constant (virtual_incoming_args_rtx, \ + (CUM & 0xff) * UNITS_PER_WORD)),\ + 6 - (CUM & 0xff), (6 - (CUM & 0xff)) * UNITS_PER_WORD); \ + else \ + { \ + int i; \ + for (i = (CUM & 0xff); i < 6; i++) \ + emit_move_insn ( \ + gen_rtx (MEM, DFmode, \ + plus_constant (virtual_incoming_args_rtx, \ + i * UNITS_PER_WORD)), \ + gen_rtx (REG, DFmode, 48+i)); \ + } \ + } \ + PRETEND_SIZE = 12 * UNITS_PER_WORD; \ + } \ +} + +#undef ASM_DECLARE_FUNCTION_NAME +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \ +{ \ + alpha_function_name = vmskrunch (NAME); \ +} + +#undef ASM_FILE_START +#define ASM_FILE_START(FILE) \ +{ \ + alpha_write_verstamp (FILE); \ + fprintf (FILE, "\t.set noreorder\n"); \ + fprintf (FILE, "\t.set volatile\n"); \ + ASM_OUTPUT_SOURCE_FILENAME (FILE, main_input_filename); \ +} + +#undef ASM_OUTPUT_FLOAT +#define ASM_OUTPUT_FLOAT(FILE,VALUE) \ + { \ + if (REAL_VALUE_ISINF (VALUE) \ + || REAL_VALUE_ISNAN (VALUE) \ + || REAL_VALUE_MINUS_ZERO (VALUE)) \ + { \ + long t; \ + REAL_VALUE_TO_TARGET_SINGLE ((VALUE), t); \ + fprintf (FILE, "\t.long 0x%lx\n", t & 0xffffffff); \ + } \ + else \ + { \ + char str[30]; \ + REAL_VALUE_TO_DECIMAL ((VALUE), "%.20e", str); \ + fprintf (FILE, "\t.%c_floating %s\n", (TARGET_FLOAT_VAX)?'f':'s', str); \ + } \ + } + +#define LINK_SECTION_ASM_OP ".link" + +#define READONLY_SECTION_ASM_OP ".rdata" + +#undef EXTRA_SECTIONS +#define EXTRA_SECTIONS in_link, in_rdata + +#undef EXTRA_SECTION_FUNCTIONS +#define EXTRA_SECTION_FUNCTIONS \ +void \ +readonly_section () \ +{ \ + if (in_section != in_rdata) \ + { \ + fprintf (asm_out_file, "%s\n", READONLY_SECTION_ASM_OP); \ + in_section = in_rdata; \ + } \ +} \ +void \ +link_section () \ +{ \ + if (in_section != in_link) \ + { \ + fprintf (asm_out_file, "%s\n", LINK_SECTION_ASM_OP); \ + in_section = in_link; \ + } \ +} + +#undef ASM_OUTPUT_ADDR_DIFF_ELT +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, VALUE, REL) abort () + +#undef ASM_OUTPUT_ADDR_VEC_ELT +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \ + fprintf (FILE, "\t.quad $%d\n", (VALUE) + 32) + +#undef READONLY_DATA_SECTION +#define READONLY_DATA_SECTION readonly_section + +#define ASM_FILE_END(FILE) alpha_write_linkage (FILE); + +#undef FUNCTION_ARG +void *function_arg (); +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) function_arg (&CUM, MODE, TYPE, NAMED) + +#undef CASE_VECTOR_MODE +#define CASE_VECTOR_MODE DImode +#undef CASE_VECTOR_PC_RELATIVE + +#undef ASM_OUTPUT_CASE_LABEL +#define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN) \ +{ ASM_OUTPUT_ALIGN (FILE, 3); ASM_OUTPUT_INTERNAL_LABEL (FILE, PREFIX, NUM); } + +#define NO_MD_PROTOTYPES +/* Perform any needed actions needed for a function that is receiving a + variable number of arguments. + + CUM is as above. + + MODE and TYPE are the mode and type of the current parameter. + + PRETEND_SIZE is a variable that should be set to the amount of stack + that must be pushed by the prolog to pretend that our caller pushed + it. + + Normally, this macro will push all remaining incoming registers on the + stack and set PRETEND_SIZE to the length of the registers pushed. + + For VMS, we allocate space for all 6 arg registers plus a count. + + However, if NO registers need to be saved, don't allocate any space. + This is not only because we won't need the space, but because AP includes + the current_pretend_args_size and we don't want to mess up any + ap-relative addresses already made. */ + + +#undef SETUP_INCOMING_VARARGS +#define SETUP_INCOMING_VARARGS(CUM,MODE,TYPE,PRETEND_SIZE,NO_RTL) \ +{ if ((CUM) < 6) \ + { \ + if (! (NO_RTL)) \ + { \ + emit_move_insn (gen_rtx (REG, DImode, 1), \ + virtual_incoming_args_rtx); \ + emit_insn (gen_arg_home ()); \ + } \ + \ + PRETEND_SIZE = 7 * UNITS_PER_WORD; \ + } \ +} + +/* Output assembler code for a block containing the constant parts + of a trampoline, leaving space for the variable parts. + + The trampoline should set the static chain pointer to value placed + into the trampoline and should branch to the specified routine. + Note that $27 has been set to the address of the trampoline, so we can + use it for addressability of the two data items. Trampolines are always + aligned to FUNCTION_BOUNDARY, which is 64 bits. */ + +#undef TRAMPOLINE_TEMPLATE +#define TRAMPOLINE_TEMPLATE(FILE) \ +{ \ + fprintf (FILE, "\t.quad 0\n"); \ + fprintf (FILE, "\t.linkage __tramp\n"); \ +} + +/* Length in units of the trampoline for entering a nested function. */ + +#undef TRAMPOLINE_SIZE +#define TRAMPOLINE_SIZE 24 + +/* Emit RTL insns to initialize the variable parts of a trampoline. + FNADDR is an RTX for the address of the function's pure code. + CXT is an RTX for the static chain value for the function. */ + +#undef INITIALIZE_TRAMPOLINE +#define INITIALIZE_TRAMPOLINE(TRAMP, FNADDR, CXT) \ +{ \ + emit_move_insn (gen_rtx (MEM, Pmode, (TRAMP)), (FNADDR)); \ + emit_move_insn (gen_rtx (MEM, Pmode, \ + memory_address (Pmode, \ + plus_constant ((TRAMP), 16))), \ + (CXT)); \ +} + +#undef TRANSFER_FROM_TRAMPOLINE + +#undef SDB_DEBUGGING_INFO +#undef MIPS_DEBUGGING_INFO + +#ifndef DBX_DEBUGGING_INFO +#define DBX_DEBUGGING_INFO +#endif + +#ifdef PREFERRED_DEBUGGING_TYPE +#undef PREFERRED_DEBUGGING_TYPE +#endif +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG + +#ifdef ASM_FORMAT_PRIVATE_NAME +#undef ASM_FORMAT_PRIVATE_NAME +#endif +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \ +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 12), \ + sprintf ((OUTPUT), "%s___%d", (NAME), (LABELNO))) + +#undef ASM_SPEC +#define ASM_SPEC "-nocpp %{pg}" + +#undef ASM_FINAL_SPEC + +#undef LIBGCC_SPEC +#define LIBGCC_SPEC "-lgcc2 -lgcclib" + +#define OPTIMIZATION_OPTIONS \ +{ \ + write_symbols = PREFERRED_DEBUGGING_TYPE; \ + debug_info_level = (enum debug_info_level) 2; \ +} + +#undef OVERRIDE_OPTIONS +#define OVERRIDE_OPTIONS \ +{ \ + if (write_symbols == NO_DEBUG) \ + debug_info_level = (enum debug_info_level) 0; \ + override_options (); \ +} + +#undef LINK_SPEC +#define LINK_SPEC "%{g3:-g3} %{g0:-g0}" + +#undef STARTFILE_SPEC +#define STARTFILE_SPEC "" + +#undef ENDFILE_SPEC +#define ENDFILE_SPEC "gnu_cc:[000000]crt0.obj" + +/* Define the names of the division and modulus functions. */ +#define DIVSI3_LIBCALL "ots$div_i" +#define DIVDI3_LIBCALL "ots$div_l" +#define UDIVSI3_LIBCALL "ots$div_ui" +#define UDIVDI3_LIBCALL "ots$div_ul" +#define MODSI3_LIBCALL "ots$mod_i" +#define MODDI3_LIBCALL "ots$mod_l" +#define UMODSI3_LIBCALL "ots$rem_ui" +#define UMODDI3_LIBCALL "ots$rem_ul" diff --git a/gcc/config/alpha/xm-vms.h b/gcc/config/alpha/xm-vms.h new file mode 100644 index 00000000000..c96423a6e5a --- /dev/null +++ b/gcc/config/alpha/xm-vms.h @@ -0,0 +1,86 @@ +/* Configuration for GNU C-compiler for openVMS/Alpha. + Copyright (C) 1996 Free Software Foundation, Inc. + Contributed by Klaus Kaempf (kkaempf@progis.de). + +This file is part of GNU CC. + +GNU CC 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, or (at your option) +any later version. + +GNU CC 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 GNU CC; see the file COPYING. If not, write to +the Free Software Foundation, 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* If compiling with DECC, need to fix problem with + which defines a macro called FILE_TYPE that breaks "tree.h". + Fortunately it uses #ifndef to suppress multiple inclusions. + Three possible cases: + 1) has already been included -- ours will be no-op; + 2) will be included after us -- "theirs" will be no-op; + 3) isn't needed -- including it here shouldn't hurt. + In all three cases, the problem macro will be removed here. */ + +#include +#include +#include +#ifdef __DECC +#undef FILE_TYPE +#endif + +#undef HOST_BITS_PER_LONG +#define HOST_BITS_PER_LONG 32 + +#define HOST_WIDE_INT long long +#define HOST_BITS_PER_WIDE_INT 64 + +#undef SUCCESS_EXIT_CODE +#define SUCCESS_EXIT_CODE 1 +#undef FATAL_EXIT_CODE +#define FATAL_EXIT_CODE (44 | 0x10000000) /* Abort, and no DCL message. */ + +/* A couple of conditionals for execution machine are controlled here. */ +#ifndef VMS +#define VMS +#endif + +/* Define a local equivalent (sort of) for unlink */ +#define unlink remove +#define NEED_ATEXIT + +#define NO_SYS_PARAMS_H /* Don't have */ +#define NO_STAB_H /* Don't have */ +#define USE_C_ALLOCA /* Using alloca.c */ + +#define HAVE_FCNTL_H 1 +#define HAVE_STDLIB_H 1 +#define HAVE_UNISTD_H 1 +#define HAVE_STRING_H 1 +#define STDC_HEADERS 1 + +/* Use ANSI/SYSV style byte manipulation routines instead of BSD ones. */ + +#define bcopy(s,d,n) memcpy((d),(s),(n)) +#define bzero(d,n) memset((d),0,(n)) +#define bcmp(l,r,n) memcmp((l),(r),(n)) + +#define index strchr +#define rindex strrchr + +#if __STDC__ +extern void *alloca (size_t); +#else +extern char *alloca (unsigned int); +#endif + +#define OBJECT_SUFFIX ".obj" +#define EXECUTABLE_SUFFIX ".exe" +#define DIR_SEPARATOR ']' +#define PATH_SEPARATOR ','