Return to xm-vms.h CVS log

Up to [Apple XNU] / GNUtools / cc / config / vax

Annotation of GNUtools/cc/config/vax/xm-vms.h, revision 1.1

1.1     ! root        1: /* Configuration for GNU C-compiler for Vax.
        !             2:    Copyright (C) 1987 Free Software Foundation, Inc.
        !             3: 
        !             4: This file is part of GNU CC.
        !             5: 
        !             6: GNU CC is free software; you can redistribute it and/or modify
        !             7: it under the terms of the GNU General Public License as published by
        !             8: the Free Software Foundation; either version 2, or (at your option)
        !             9: any later version.
        !            10: 
        !            11: GNU CC is distributed in the hope that it will be useful,
        !            12: but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            13: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            14: GNU General Public License for more details.
        !            15: 
        !            16: You should have received a copy of the GNU General Public License
        !            17: along with GNU CC; see the file COPYING.  If not, write to
        !            18: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
        !            19: 
        !            20: /* #defines that need visibility everywhere.  */
        !            21: #define FALSE 0
        !            22: #define TRUE 1
        !            23: 
        !            24: #ifdef VAXC
        !            25: /* if compiling with VAXC, need to fix problem with <stdio.h>
        !            26:    which defines a macro called FILE_TYPE that breaks "tree.h".
        !            27:    Fortunately it uses #ifndef to suppress multiple inclusions.
        !            28:    Three possible cases:
        !            29:        1) <stdio.h> has already been included -- ours will be no-op;
        !            30:        2) <stdio.h> will be included after us -- "theirs" will be no-op;
        !            31:        3) <stdio.h> isn't needed -- including it here shouldn't hurt.
        !            32:    In all three cases, the problem macro will be removed here.  */
        !            33: #include <stdio.h>
        !            34: #undef FILE_TYPE
        !            35: #endif
        !            36: 
        !            37: /* target machine dependencies.
        !            38:    tm.h is a symbolic link to the actual target specific file.   */
        !            39: #include "tm.h"
        !            40: 
        !            41: /* This describes the machine the compiler is hosted on.  */
        !            42: #define HOST_BITS_PER_CHAR 8
        !            43: #define HOST_BITS_PER_SHORT 16
        !            44: #define HOST_BITS_PER_INT 32
        !            45: #define HOST_BITS_PER_LONG 32
        !            46: #define HOST_BITS_PER_LONGLONG 64
        !            47: 
        !            48: #define HOST_FLOAT_FORMAT VAX_FLOAT_FORMAT
        !            49: 
        !            50: #define SUCCESS_EXIT_CODE 1
        !            51: #define FATAL_EXIT_CODE (44 | 0x10000000)  /* Failure, and no DCL message.  */
        !            52: 
        !            53: 
        !            54: /* A couple of conditionals for execution machine are controlled here.  */
        !            55: #ifndef VMS
        !            56: #define VMS
        !            57: #endif
        !            58: 
        !            59: #ifndef __GNUC__
        !            60: /* not present, at least in VAX-11 C (VMS) v2.2 */
        !            61: #define R_OK 4
        !            62: #define W_OK 2
        !            63: #define X_OK 1
        !            64: #define F_OK 0
        !            65: #endif
        !            66: 
        !            67: #define GCC_INCLUDE_DIR "///not used with VMS///"      /* nonsense string for now */
        !            68: 
        !            69: /* and define a local equivalent (sort of) for unlink */
        !            70: #define unlink remove
        !            71: 
        !            72: /* Specify the list of include file directories.  */
        !            73: #define INCLUDE_DEFAULTS \
        !            74: {                                                                      \
        !            75:   { "GNU_GXX_INCLUDE:", 1},                                            \
        !            76:   { "GNU_CC_INCLUDE:", 0},     /* GNU includes */                      \
        !            77:   { "SYS$SYSROOT:[SYSLIB.]", 0}, /* VAX-11 "C" includes */             \
        !            78:   { ".", 0},                   /* Make normal VMS filespecs work.  */  \
        !            79:   { 0, 0}                                                              \
        !            80: }
        !            81: 
        !            82: /* Under VMS a directory specification can be enclosed either in square
        !            83:    brackets or in angle brackets.  Thus we need to check both.  This
        !            84:    macro is used to help compare filenames in cp-lex.c.
        !            85: 
        !            86:    We also need to make sure that the names are all lower case, because
        !            87:    we must be able to compare filenames to determine if a file implements
        !            88:    a class.  */
        !            89: 
        !            90: #define FILE_NAME_NONDIRECTORY(C)                              \
        !            91: ({                                                             \
        !            92:    char * pnt_ = (C), * pnt1_;                                 \
        !            93:    pnt1_ = pnt_ - 1;                                           \
        !            94:    while (*++pnt1_)                                            \
        !            95:      if ((*pnt1_ >= 'A' && *pnt1_ <= 'Z')) *pnt1_ |= 0x20;     \
        !            96:    pnt1_ = rindex (pnt_, ']');                                         \
        !            97:    pnt1_ = (pnt1_ == 0 ? rindex (pnt_, '>') : pnt1_);          \
        !            98:    pnt1_ = (pnt1_ == 0 ? rindex (pnt_, ':') : pnt1_);          \
        !            99:    (pnt1_ == 0 ? pnt_ : pnt1_ + 1);                            \
        !           100:  })
        !           101: 
        !           102: /* Macro to generate the name of the cross reference file.  The standard
        !           103:    one does not work, since it was written assuming that the conventions
        !           104:    of a unix style filesystem will work on the host system.  */
        !           105: 
        !           106: #define XREF_FILE_NAME(BUFF, NAME)     \
        !           107:   s = FILE_NAME_NONDIRECTORY (NAME);                   \
        !           108:   if (s == NAME) sprintf(BUFF, "%s_gxref", NAME);      \
        !           109:   else {                                               \
        !           110:     strcpy(BUFF, NAME);                                        \
        !           111:     strcat(BUFF, "_gxref");                            \
        !           112:   }
        !           113: 
        !           114: /* Macro that is used in cp-xref.c to determine whether a file name is
        !           115:    absolute or not.  */
        !           116: 
        !           117: #define FILE_NAME_ABSOLUTE_P(NAME)     \
        !           118:        (FILE_NAME_NONDIRECTORY (NAME) != (&NAME[1]))
        !           119: 
        !           120: /* FILE_NAME_JOINER is defined to be the characters that are inserted between 
        !           121:    a directory name and a filename in order to make an absolute file
        !           122:    specification.  Under VMS the directory specification contains all of the
        !           123:    required characters, so we define this to be a null string.  */
        !           124: 
        !           125: #define FILE_NAME_JOINER ""
        !           126: 
        !           127: #ifdef VAXC
        !           128: /* Customizations/kludges for building with DEC's VAX C compiler
        !           129:    rather than GCC.  */
        !           130: #define NO_SYS_PARAMS_H                /* don't have <sys/params.h> */
        !           131: #define NO_STAB_H              /* don't have <stab.h> */
        !           132: #define USE_C_ALLOCA           /* using alloca.c */
        !           133: #define QSORT_WORKAROUND       /* do not use VAXCRTL's qsort */
        !           134: 
        !           135: /* use ANSI/SYSV style byte manipulation routines instead of BSD ones */
        !           136: #define bcopy(s,d,n)   memcpy((d),(s),(n))
        !           137: #define bzero(d,n)     memset((d),0,(n))
        !           138: #define bcmp(l,r,n)    memcmp((l),(r),(n))
        !           139: #define index  strchr
        !           140: #define rindex strrchr
        !           141: 
        !           142: /* rename all too-long external symbol names to avoid warnings */
        !           143: #define bc_check_for_full_enumeration_handling bc_check_for_full_enum_handling
        !           144: #define check_for_full_enumeration_handling    check_for_full_enum_handling
        !           145: #define current_function_contains_functions    curfunc_contains_functions
        !           146: #define current_function_epilogue_delay_list   curfunc_epilogue_delay_list
        !           147: #define current_function_has_nonlocal_goto     curfunc_has_nonlocal_goto
        !           148: #define current_function_has_nonlocal_label    curfunc_has_nonlocal_label
        !           149: #define current_function_internal_arg_pointer  curfunc_internal_arg_pointer
        !           150: #define current_function_outgoing_args_size    curfunc_outgoing_args_size
        !           151: #define current_function_pretend_args_size     curfunc_pretend_args_size
        !           152: #define current_function_returns_pcc_struct    curfunc_returns_pcc_struct
        !           153: #define current_function_returns_pointer       curfunc_returns_pointer
        !           154: #define current_function_uses_const_pool       curfunc_uses_const_pool
        !           155: #define current_function_uses_pic_offset_table curfunc_uses_pic_offset_table
        !           156: #define expand_start_loop_continue_elsewhere   expnd_start_loop_cont_elsewhere
        !           157: #define flag_schedule_insns_after_reload       flag_sched_insns_after_reload
        !           158: #define maybe_building_objc_message_expr       maybe_building_objc_msg_expr
        !           159: #define output_deferred_addressed_constants    output_deferred_addr_constants
        !           160: #define reg_overlap_mentioned_for_reload_p     reg_overlap_mtnd_for_reload_p
        !           161: #define reposition_prologue_and_epilogue_notes repos_prolog_and_epilog_notes
        !           162: #define rtx_equal_function_value_matters       rtx_equal_func_value_matters
        !           163: #define set_new_first_and_last_label_num       set_new_first_and_last_lbl_num
        !           164: #define thread_prologue_and_epilogue_insns     thread_prolog_and_epilog_insns
        !           165: #endif
        !           166: 
        !           167: /* We need to avoid the library qsort routine, due to a serious bug
        !           168:    in VAXCRTL.  (Sorting anything with size that's not a multiple of 4
        !           169:    after having previously sorted something that was a multiple of 4
        !           170:    can produce wrong results and result in data corruption.)  We'll
        !           171:    use our own substitute (in vax.c) instead.  */
        !           172: /* #define QSORT_WORKAROUND */
        !           173: #ifdef QSORT_WORKAROUND
        !           174: #define qsort not_qsort
        !           175: #endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.