![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xm-vms.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / cc / config / vax|
Return to xm-vms.h CVS log | Up to [Apple XNU] / GNUtools / cc / config / vax |
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.