|
|
1.1 ! root 1: /* Output variables, constants and external declarations, for GNU compiler. ! 2: Copyright (C) 1988 Free Software Foundation, Inc. ! 3: ! 4: This file is part of GNU CC. ! 5: ! 6: GNU CC is distributed in the hope that it will be useful, ! 7: but WITHOUT ANY WARRANTY. No author or distributor ! 8: accepts responsibility to anyone for the consequences of using it ! 9: or for whether it serves any particular purpose or works at all, ! 10: unless he says so in writing. Refer to the GNU CC General Public ! 11: License for full details. ! 12: ! 13: Everyone is granted permission to copy, modify and redistribute ! 14: GNU CC, but only under the conditions described in the ! 15: GNU CC General Public License. A copy of this license is ! 16: supposed to have been given to you along with GNU CC so you ! 17: can know your rights and responsibilities. It should be in a ! 18: file named COPYING. Among other things, the copyright notice ! 19: and this notice must be preserved on all copies. */ ! 20: ! 21: #include "tm-vax.h" ! 22: ! 23: #undef CPP_PREDEFINES ! 24: #undef TARGET_VERSION ! 25: #undef TARGET_DEFAULT ! 26: #undef CALL_USED_REGISTERS ! 27: #undef MAYBE_VMS_FUNCTION_PROLOGUE ! 28: ! 29: /* Predefine this in CPP because VMS limits the size of command options ! 30: and GNU CPP is not used on VMS except with GNU C. */ ! 31: #define CPP_PREDEFINES "-Dvax -Dvms -DVMS -D__GNU__ -D__GNUC__" ! 32: ! 33: #define TARGET_DEFAULT 1 ! 34: #define TARGET_VERSION printf ("(vax vms)"); ! 35: ! 36: #define CALL_USED_REGISTERS {1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1} ! 37: ! 38: #define MAYBE_VMS_FUNCTION_PROLOGUE(FILE) \ ! 39: { extern char *current_function_name; \ ! 40: if (!strcmp ("main", current_function_name)) \ ! 41: fprintf(FILE, "\tjsb _c$main_args\n"); } ! 42: ! 43: #define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME) \ ! 44: { if (DECL_INITIAL (DECL) == 0 && TREE_CODE (DECL) != FUNCTION_DECL) \ ! 45: fprintf (FILE, ".comm _%s,0\n", NAME); }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.