1/* Definitions of target machine GNU compiler. VMS common version. 2 Copyright (C) 2003-2015 Free Software Foundation, Inc. 3 Contributed by Douglas B Rupp (rupp@gnat.com). 4 5This file is part of GCC. 6 7GCC is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 3, or (at your option) 10any later version. 11 12GCC is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with GCC; see the file COPYING3. If not see 19<http://www.gnu.org/licenses/>. */ 20 21#define TARGET_OBJECT_SUFFIX ".obj" 22#define TARGET_EXECUTABLE_SUFFIX ".exe" 23 24#define TARGET_OS_CPP_BUILTINS() \ 25 do { \ 26 builtin_define_std ("vms"); \ 27 builtin_define_std ("VMS"); \ 28 builtin_assert ("system=vms"); \ 29 SUBTARGET_OS_CPP_BUILTINS(); \ 30 builtin_define ("__int64=long long"); \ 31 if (flag_vms_pointer_size == VMS_POINTER_SIZE_32) \ 32 builtin_define ("__INITIAL_POINTER_SIZE=32"); \ 33 else if (flag_vms_pointer_size == VMS_POINTER_SIZE_64) \ 34 builtin_define ("__INITIAL_POINTER_SIZE=64"); \ 35 if (POINTER_SIZE == 64) \ 36 builtin_define ("__LONG_POINTERS=1"); \ 37 builtin_define_with_int_value ("__CRTL_VER", vms_c_get_crtl_ver ()); \ 38 builtin_define_with_int_value ("__VMS_VER", vms_c_get_vms_ver ()); \ 39 } while (0) 40 41extern void vms_c_register_includes (const char *, const char *, int); 42#define TARGET_EXTRA_INCLUDES vms_c_register_includes 43 44/* Tell compiler we want to support VMS pragmas */ 45#define REGISTER_TARGET_PRAGMAS() vms_c_register_pragma () 46 47/* By default, allow $ to be part of an identifier. */ 48#define DOLLARS_IN_IDENTIFIERS 2 49 50#undef TARGET_ABI_OPEN_VMS 51#define TARGET_ABI_OPEN_VMS 1 52 53/* "long" is 32 bits, but 64 bits for Ada. */ 54#undef LONG_TYPE_SIZE 55#define LONG_TYPE_SIZE 32 56#define ADA_LONG_TYPE_SIZE 64 57 58/* Pointer is 32 bits but the hardware has 64-bit addresses, sign extended. */ 59#undef POINTER_SIZE 60#define POINTER_SIZE (flag_vms_pointer_size == VMS_POINTER_SIZE_NONE ? 32 : 64) 61#define POINTERS_EXTEND_UNSIGNED 0 62 63/* Always a 32 bit type. */ 64#undef SIZE_TYPE 65#define SIZE_TYPE "unsigned int" 66 67/* ???: Defined as a 'int' by dec-c, but obstack.h doesn't like it. */ 68#undef PTRDIFF_TYPE 69#define PTRDIFF_TYPE (flag_vms_pointer_size == VMS_POINTER_SIZE_NONE ? \ 70 "int" : "long long int") 71 72#define SIZETYPE (flag_vms_pointer_size == VMS_POINTER_SIZE_NONE ? \ 73 "unsigned int" : "long long unsigned int") 74 75#define C_COMMON_OVERRIDE_OPTIONS vms_c_common_override_options () 76 77/* VMS doesn't support other sections than .text for code. */ 78#define TARGET_ASM_FUNCTION_SECTION vms_function_section 79 80/* Always use 8 bytes addresses in dwarf2 debug info. The default value doesn't 81 work as it may be 4 bytes, which won't match gas default (8 bytes for ia64), 82 and will thus produce incorrect values. */ 83#define DWARF2_ADDR_SIZE 8 84 85/* No libm on VMS. */ 86#define MATH_LIBRARY "" 87 88/* Special VMS debugger symbol to record the entry point. */ 89#define VMS_DEBUG_MAIN_POINTER "TRANSFER$BREAK$GO" 90 91#undef TARGET_LIBC_HAS_FUNCTION 92#define TARGET_LIBC_HAS_FUNCTION no_c99_libc_has_function 93