gcc/config/vax/xm-vms.h - gcc - Git at Google

 /* Configuration for GNU C-compiler for VAX.
    Copyright (C) 1987, 1994, 1995, 1996, 1997, 2001
    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.  */

 /* Other configurations get these via autoconfig.  */
 #define STDC_HEADERS 1
 #define HAVE_STDLIB_H 1
 #define HAVE_STRING_H 1
 #ifdef __DECC
 #define HAVE_UNISTD_H 1
 #endif

 #if defined(VAXC) || defined(__DECC)
 /* if compiling with VAXC, need to fix problem with <stdio.h>
    which defines a macro called FILE_TYPE that breaks "tree.h".
    Fortunately it uses #ifndef to suppress multiple inclusions.
    Three possible cases:
 	1) <stdio.h> has already been included -- ours will be no-op;
 	2) <stdio.h> will be included after us -- "theirs" will be no-op;
 	3) <stdio.h> isn't needed -- including it here shouldn't hurt.
    In all three cases, the problem macro will be removed here.  */
 #include <stdio.h>
 #undef FILE_TYPE
 #endif

 #define SUCCESS_EXIT_CODE 1
 #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 GCC_INCLUDE_DIR "///not used with VMS///"	/* nonsense string for now */

 /* and define a local equivalent (sort of) for unlink */
 #define unlink remove

 /* Under VMS a directory specification can be enclosed either in square
    brackets or in angle brackets.  Thus we need to check both.  This
    macro is used to help compare filenames in cp-lex.c.

    We also need to make sure that the names are all lower case, because
    we must be able to compare filenames to determine if a file implements
    a class.  */

 #define FILE_NAME_NONDIRECTORY(C)				\
 ({								\
    char * pnt_ = (C), * pnt1_;					\
    pnt1_ = pnt_ - 1;						\
    while (*++pnt1_)						\
      if (ISUPPER (*pnt1_)) *pnt1_ = TOLOWER (*pnt1_);		\
    pnt1_ = strrchr (pnt_, ']'); 				\
    pnt1_ = (pnt1_ == 0 ? strrchr (pnt_, '>') : pnt1_);		\
    pnt1_ = (pnt1_ == 0 ? strrchr (pnt_, ':') : pnt1_);		\
    (pnt1_ == 0 ? pnt_ : pnt1_ + 1);				\
  })

 /* Macro to generate the name of the cross reference file.  The standard
    one does not work, since it was written assuming that the conventions
    of a unix style filesystem will work on the host system.  */

 #define XREF_FILE_NAME(BUFF, NAME)	\
   s = FILE_NAME_NONDIRECTORY (NAME);			\
   if (s == NAME) sprintf(BUFF, "%s_gxref", NAME);	\
   else {						\
     strcpy(BUFF, NAME);					\
     strcat(BUFF, "_gxref");				\
   }

 /* Macro that is used in cp-xref.c to determine whether a file name is
    absolute or not.  */

 #define FILE_NAME_ABSOLUTE_P(NAME)	\
 	(FILE_NAME_NONDIRECTORY (NAME) != (&NAME[1]))

 /* FILE_NAME_JOINER is defined to be the characters that are inserted between
    a directory name and a filename in order to make an absolute file
    specification.  Under VMS the directory specification contains all of the
    required characters, so we define this to be a null string.  */

 #define FILE_NAME_JOINER ""

 /* vprintf() has been available since VMS V4.6.  */

 #define HAVE_VPRINTF

 /* Early versions of VAX C for VMS do not have putenv.  Comment out
    the following define if your system doesn't have putenv.  */
 #define HAVE_PUTENV

 #ifndef HAVE_PUTENV
 #define putenv(x)
 #endif

 #if defined(VAXC) || defined(__DECC)

 /* Customizations/kludges for building with DEC's VAX C compiler
    rather than GCC.  */

 #define QSORT_WORKAROUND	/* do not use VAXCRTL's qsort */

 /* use ANSI/SYSV style byte manipulation routines instead of BSD ones */
 /* rename all too-long external symbol names to avoid warnings */
 #define check_for_full_enumeration_handling	check_for_full_enum_handling
 #define current_function_contains_functions	curfunc_contains_functions
 #define current_function_epilogue_delay_list	curfunc_epilogue_delay_list
 #define current_function_has_nonlocal_goto	curfunc_has_nonlocal_goto
 #define current_function_has_nonlocal_label	curfunc_has_nonlocal_label
 #define current_function_internal_arg_pointer	curfunc_internal_arg_pointer
 #define current_function_outgoing_args_size	curfunc_outgoing_args_size
 #define current_function_pretend_args_size	curfunc_pretend_args_size
 #define current_function_returns_pcc_struct	curfunc_returns_pcc_struct
 #define current_function_returns_pointer	curfunc_returns_pointer
 #define current_function_uses_const_pool	curfunc_uses_const_pool
 #define current_function_uses_pic_offset_table	curfunc_uses_pic_offset_table
 #define dbxout_resume_previous_source_file	dbxout_resume_previous_src_file
 #define expand_builtin_extract_return_addr	expand_builtin_extract_ret_addr
 #define expand_builtin_set_return_addr_reg	expand_builtin_set_ret_addr_reg
 #define expand_start_loop_continue_elsewhere	expnd_start_loop_cont_elsewhere
 #define flag_schedule_insns_after_reload	flag_sched_insns_after_reload
 #define get_dynamic_handler_chain_libfunc	get_dynamic_hndlr_chain_libfunc
 #define lookup_name_current_level_global	lookup_name_current_level_gbl
 #define maybe_building_objc_message_expr	maybe_building_objc_msg_expr
 #define mesg_implicit_function_declaration	mesg_implicit_func_declaration
 #define output_deferred_addressed_constants	output_deferred_addr_constants
 #define protect_cleanup_actions_with_terminate  protect_cleanup_act_w_terminate
 #define reg_overlap_mentioned_for_reload_p	reg_overlap_mtnd_for_reload_p
 #define reposition_prologue_and_epilogue_notes	repos_prolog_and_epilog_notes
 #define rtx_equal_function_value_matters	rtx_equal_func_value_matters
 #define set_new_first_and_last_label_num	set_new_first_and_last_lbl_num
 #define thread_prologue_and_epilogue_insns	thread_prolog_and_epilog_insns
 #endif

 /* We need to avoid the library qsort routine, due to a serious bug
    in VAXCRTL.  (Sorting anything with size that's not a multiple of 4
    after having previously sorted something that was a multiple of 4
    can produce wrong results and result in data corruption.)  We'll
    use our own substitute (in vax.c) instead.  */
 #ifdef QSORT_WORKAROUND
 #define qsort not_qsort
 #endif

 #ifdef __DECC
 /* DECC$SHR doesn't have VAXCRTL's bugs.  */
 #undef QSORT_WORKAROUND
 #undef qsort
 /* Avoid a lot of informational level diagnostics about implicitly
    declared functions.  */
 #include <stdlib.h>
 #include <string.h>
 /* this is for genopinit.c */
  #pragma message disable (undefescap)
 #endif

 #define HOST_EXECUTABLE_SUFFIX ".exe"
 #define HOST_OBJECT_SUFFIX ".obj"
	/* Configuration for GNU C-compiler for VAX.
	Copyright (C) 1987, 1994, 1995, 1996, 1997, 2001
	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. */

	/* Other configurations get these via autoconfig. */
	#define STDC_HEADERS 1
	#define HAVE_STDLIB_H 1
	#define HAVE_STRING_H 1
	#ifdef __DECC
	#define HAVE_UNISTD_H 1
	#endif

	#if defined(VAXC) \|\| defined(__DECC)
	/* if compiling with VAXC, need to fix problem with <stdio.h>
	which defines a macro called FILE_TYPE that breaks "tree.h".
	Fortunately it uses #ifndef to suppress multiple inclusions.
	Three possible cases:
	1) <stdio.h> has already been included -- ours will be no-op;
	2) <stdio.h> will be included after us -- "theirs" will be no-op;
	3) <stdio.h> isn't needed -- including it here shouldn't hurt.
	In all three cases, the problem macro will be removed here. */
	#include <stdio.h>
	#undef FILE_TYPE
	#endif

	#define SUCCESS_EXIT_CODE 1
	#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 GCC_INCLUDE_DIR "///not used with VMS///" /* nonsense string for now */

	/* and define a local equivalent (sort of) for unlink */
	#define unlink remove

	/* Under VMS a directory specification can be enclosed either in square
	brackets or in angle brackets. Thus we need to check both. This
	macro is used to help compare filenames in cp-lex.c.

	We also need to make sure that the names are all lower case, because
	we must be able to compare filenames to determine if a file implements
	a class. */

	#define FILE_NAME_NONDIRECTORY(C) \
	({ \
	char * pnt_ = (C), * pnt1_; \
	pnt1_ = pnt_ - 1; \
	while (*++pnt1_) \
	if (ISUPPER (pnt1_)) pnt1_ = TOLOWER (*pnt1_); \
	pnt1_ = strrchr (pnt_, ']'); \
	pnt1_ = (pnt1_ == 0 ? strrchr (pnt_, '>') : pnt1_); \
	pnt1_ = (pnt1_ == 0 ? strrchr (pnt_, ':') : pnt1_); \
	(pnt1_ == 0 ? pnt_ : pnt1_ + 1); \
	})

	/* Macro to generate the name of the cross reference file. The standard
	one does not work, since it was written assuming that the conventions
	of a unix style filesystem will work on the host system. */

	#define XREF_FILE_NAME(BUFF, NAME) \
	s = FILE_NAME_NONDIRECTORY (NAME); \
	if (s == NAME) sprintf(BUFF, "%s_gxref", NAME); \
	else { \
	strcpy(BUFF, NAME); \
	strcat(BUFF, "_gxref"); \
	}

	/* Macro that is used in cp-xref.c to determine whether a file name is
	absolute or not. */

	#define FILE_NAME_ABSOLUTE_P(NAME) \
	(FILE_NAME_NONDIRECTORY (NAME) != (&NAME[1]))

	/* FILE_NAME_JOINER is defined to be the characters that are inserted between
	a directory name and a filename in order to make an absolute file
	specification. Under VMS the directory specification contains all of the
	required characters, so we define this to be a null string. */

	#define FILE_NAME_JOINER ""

	/* vprintf() has been available since VMS V4.6. */

	#define HAVE_VPRINTF

	/* Early versions of VAX C for VMS do not have putenv. Comment out
	the following define if your system doesn't have putenv. */
	#define HAVE_PUTENV

	#ifndef HAVE_PUTENV
	#define putenv(x)
	#endif

	#if defined(VAXC) \|\| defined(__DECC)

	/* Customizations/kludges for building with DEC's VAX C compiler
	rather than GCC. */

	#define QSORT_WORKAROUND /* do not use VAXCRTL's qsort */

	/* use ANSI/SYSV style byte manipulation routines instead of BSD ones */
	/* rename all too-long external symbol names to avoid warnings */
	#define check_for_full_enumeration_handling check_for_full_enum_handling
	#define current_function_contains_functions curfunc_contains_functions
	#define current_function_epilogue_delay_list curfunc_epilogue_delay_list
	#define current_function_has_nonlocal_goto curfunc_has_nonlocal_goto
	#define current_function_has_nonlocal_label curfunc_has_nonlocal_label
	#define current_function_internal_arg_pointer curfunc_internal_arg_pointer
	#define current_function_outgoing_args_size curfunc_outgoing_args_size
	#define current_function_pretend_args_size curfunc_pretend_args_size
	#define current_function_returns_pcc_struct curfunc_returns_pcc_struct
	#define current_function_returns_pointer curfunc_returns_pointer
	#define current_function_uses_const_pool curfunc_uses_const_pool
	#define current_function_uses_pic_offset_table curfunc_uses_pic_offset_table
	#define dbxout_resume_previous_source_file dbxout_resume_previous_src_file
	#define expand_builtin_extract_return_addr expand_builtin_extract_ret_addr
	#define expand_builtin_set_return_addr_reg expand_builtin_set_ret_addr_reg
	#define expand_start_loop_continue_elsewhere expnd_start_loop_cont_elsewhere
	#define flag_schedule_insns_after_reload flag_sched_insns_after_reload
	#define get_dynamic_handler_chain_libfunc get_dynamic_hndlr_chain_libfunc
	#define lookup_name_current_level_global lookup_name_current_level_gbl
	#define maybe_building_objc_message_expr maybe_building_objc_msg_expr
	#define mesg_implicit_function_declaration mesg_implicit_func_declaration
	#define output_deferred_addressed_constants output_deferred_addr_constants
	#define protect_cleanup_actions_with_terminate protect_cleanup_act_w_terminate
	#define reg_overlap_mentioned_for_reload_p reg_overlap_mtnd_for_reload_p
	#define reposition_prologue_and_epilogue_notes repos_prolog_and_epilog_notes
	#define rtx_equal_function_value_matters rtx_equal_func_value_matters
	#define set_new_first_and_last_label_num set_new_first_and_last_lbl_num
	#define thread_prologue_and_epilogue_insns thread_prolog_and_epilog_insns
	#endif

	/* We need to avoid the library qsort routine, due to a serious bug
	in VAXCRTL. (Sorting anything with size that's not a multiple of 4
	after having previously sorted something that was a multiple of 4
	can produce wrong results and result in data corruption.) We'll
	use our own substitute (in vax.c) instead. */
	#ifdef QSORT_WORKAROUND
	#define qsort not_qsort
	#endif

	#ifdef __DECC
	/* DECC$SHR doesn't have VAXCRTL's bugs. */
	#undef QSORT_WORKAROUND
	#undef qsort
	/* Avoid a lot of informational level diagnostics about implicitly
	declared functions. */
	#include <stdlib.h>
	#include <string.h>
	/* this is for genopinit.c */
	#pragma message disable (undefescap)
	#endif

	#define HOST_EXECUTABLE_SUFFIX ".exe"
	#define HOST_OBJECT_SUFFIX ".obj"