Mercurial > emacs
annotate src/m/hp800.h @ 6104:44fc65a7fc46
(LD_SWITCH_SYSTEM): New definitions, with #undef.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 26 Feb 1994 20:49:21 +0000 |
parents | 29bc8be2c604 |
children | 7798bbb665fb |
rev | line source |
---|---|
456 | 1 /* machine description file for hp9000 series 800 machines. |
2 Copyright (C) 1987 Free Software Foundation, Inc. | |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
3699 | 8 the Free Software Foundation; either version 2, or (at your option) |
456 | 9 any later version. |
10 | |
11 GNU Emacs 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 Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
21 /* The following line tells the configuration script what sort of | |
22 operating system this machine is likely to run. | |
23 USUAL-OPSYS="hpux" */ | |
24 | |
25 /* The following three symbols give information on | |
26 the size of various data types. */ | |
27 | |
28 #define SHORTBITS 16 /* Number of bits in a short */ | |
29 | |
30 #define INTBITS 32 /* Number of bits in an int */ | |
31 | |
32 #define LONGBITS 32 /* Number of bits in a long */ | |
33 | |
34 /* Define BIG_ENDIAN iff lowest-numbered byte in a word | |
35 is the most significant byte. */ | |
36 | |
37 #define BIG_ENDIAN | |
38 | |
39 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a | |
40 * group of arguments and treat it as an array of the arguments. */ | |
41 | |
42 #define NO_ARG_ARRAY | |
43 | |
44 /* Define WORD_MACHINE if addresses and such have | |
45 * to be corrected before they can be used as byte counts. */ | |
46 | |
47 #undef WORD_MACHINE | |
48 | |
49 /* Now define a symbol for the cpu type, if your compiler | |
50 does not define it automatically: | |
51 Ones defined so far include vax, m68000, ns16000, pyramid, | |
52 orion, tahoe, APOLLO and many others */ | |
53 #ifndef hp9000s800 | |
54 # define hp9000s800 | |
55 #endif | |
56 | |
57 /* Use type int rather than a union, to represent Lisp_Object */ | |
58 /* This is desirable for most machines. */ | |
59 | |
60 #define NO_UNION_TYPE | |
61 | |
62 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend | |
63 the 24-bit bit field into an int. In other words, if bit fields | |
64 are always unsigned. | |
65 | |
66 If you use NO_UNION_TYPE, this flag does not matter. */ | |
67 | |
68 #define EXPLICIT_SIGN_EXTEND | |
69 | |
70 /* Data type of load average, as read out of kmem. */ | |
71 | |
72 #define LOAD_AVE_TYPE double | |
73 | |
74 /* Convert that into an integer that is 100 for a load average of 1.0 */ | |
75 | |
76 #define LOAD_AVE_CVT(x) ((int) (x * 100.0)) | |
77 | |
78 | |
79 /* Define CANNOT_DUMP on machines where unexec does not work. | |
80 Then the function dump-emacs will not be defined | |
81 and temacs will do (load "loadup") automatically unless told otherwise. */ | |
82 | |
83 #undef CANNOT_DUMP | |
84 | |
85 /* Define VIRT_ADDR_VARIES if the virtual addresses of | |
86 pure and impure space as loaded can vary, and even their | |
87 relative order cannot be relied on. | |
88 | |
89 Otherwise Emacs assumes that text space precedes data space, | |
90 numerically. */ | |
91 | |
92 #define VIRT_ADDR_VARIES | |
93 | |
94 /* Define C_ALLOCA if this machine does not support a true alloca | |
95 and the one written in C should be used instead. | |
96 Define HAVE_ALLOCA to say that the system provides a properly | |
97 working alloca function and it should be used. | |
98 Define neither one if an assembler-language alloca | |
99 in the file alloca.s should be used. */ | |
100 | |
101 #define C_ALLOCA | |
102 /* #define HAVE_ALLOCA */ | |
103 | |
104 /* the data segment on this machine always starts at address 0x40000000. */ | |
105 | |
106 #define DATA_SEG_BITS 0x40000000 | |
107 | |
108 #define VALBITS 26 | |
109 #define GCTYPEBITS 5 | |
110 | |
111 #define DATA_START 0x40000000 | |
112 #define TEXT_START 0x00000000 | |
113 | |
114 #define STACK_DIRECTION 1 | |
115 | |
116 /* Define NO_REMAP if memory segmentation makes it not work well | |
117 to change the boundary between the text section and data section | |
118 when Emacs is dumped. If you define this, the preloaded Lisp | |
119 code will not be sharable; but that's better than failing completely. */ | |
120 | |
121 #define NO_REMAP | |
122 | |
123 /* This machine requires completely different unexec code | |
124 which lives in a separate file. Specify the file name. */ | |
125 | |
126 #define UNEXEC unexhp9k800.o | |
127 | |
128 #define LIBS_MACHINE | |
129 #define LIBS_DEBUG | |
130 | |
131 /* Define NEED_BSDTTY if you have such. */ | |
132 | |
133 #define NEED_BSDTTY | |
134 | |
135 /* The standard definitions of these macros would work ok, | |
136 but these are faster because the constants are short. */ | |
137 | |
138 | |
139 #define XUINT(a) (((unsigned)(a) << INTBITS-VALBITS) >> INTBITS-VALBITS) | |
140 | |
141 #define XSET(var, type, ptr) \ | |
142 ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << INTBITS-VALBITS) >> INTBITS-VALBITS)) | |
143 | |
144 #define XSETINT(a, b) XSET(a, XTYPE(a), b) | |
145 #define XSETUINT(a, b) XSET(a, XTYPE(a), b) | |
146 #define XSETPNTR(a, b) XSET(a, XTYPE(a), b) | |
147 #define XMARKBIT(a) ((a) < 0) | |
148 #define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT)) | |
149 | |
150 #if 0 /* Loses when sign bit of type field is set. */ | |
151 #define XUNMARK(a) ((a) = (((a) << INTBITS-GCTYPEBITS-VALBITS) >> INTBITS-GCTYPEBITS-VALBITS)) | |
152 #endif | |
153 | |
154 /* The symbol in the kernel where the load average is found | |
155 is named _avenrun. At this time there are two major flavors | |
156 of hp-ux (there is the s800 and s300 (s200) flavors). The | |
157 differences are thusly moved to the corresponding machine description file. | |
158 */ | |
159 | |
160 /* no underscore please */ | |
161 #define LDAV_SYMBOL "avenrun" | |
162 #define CPTIME_SYMBOL "cp_time" | |
163 #define DKXFER_SYMBOL "dk_xfer" | |
164 | |
165 #if 0 /* Supposedly no longer true. */ | |
166 /* In hpux, for unknown reasons, S_IFLNK is defined even though | |
167 symbolic links do not exist. | |
168 Make sure our conditionals based on S_IFLNK are not confused. | |
169 | |
170 Here we assume that stat.h is included before config.h | |
171 so that we can override it here. */ | |
172 | |
173 #undef S_IFLNK | |
174 #endif | |
175 | |
176 /* Define the BSTRING functions in terms of the sysV functions. */ | |
5175
7099e53fe4eb
(bcopy, bzero, bcmp): If HAVE_BCOPY, don't #define.
Richard M. Stallman <rms@gnu.org>
parents:
3699
diff
changeset
|
177 /* On HPUX 8.05, including types.h can include strings.h |
5176 | 178 which declares these as functions. Hence the #ifndef. */ |
456 | 179 |
5175
7099e53fe4eb
(bcopy, bzero, bcmp): If HAVE_BCOPY, don't #define.
Richard M. Stallman <rms@gnu.org>
parents:
3699
diff
changeset
|
180 #ifndef HAVE_BCOPY |
456 | 181 #define bcopy(a,b,s) memcpy (b,a,s) |
182 #define bzero(a,s) memset (a,0,s) | |
183 #define bcmp memcmp | |
5175
7099e53fe4eb
(bcopy, bzero, bcmp): If HAVE_BCOPY, don't #define.
Richard M. Stallman <rms@gnu.org>
parents:
3699
diff
changeset
|
184 #endif |
456 | 185 |
186 /* On USG systems these have different names. */ | |
187 | |
188 #define index strchr | |
189 #define rindex strrchr | |
190 | |
191 /* Include the file bsdtty.h, since this machine has job control. */ | |
192 #define NEED_BSDTTY |