![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to m-hp9000s800.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / src|
Return to m-hp9000s800.h CVS log | Up to [Apple XNU] / GNUtools / emacs / src |
1.1 root 1: /* m- 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
8: the Free Software Foundation; either version 1, or (at your option)
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 three symbols give information on
22: the size of various data types. */
23:
24: #define SHORTBITS 16 /* Number of bits in a short */
25:
26: #define INTBITS 32 /* Number of bits in an int */
27:
28: #define LONGBITS 32 /* Number of bits in a long */
29:
30: /* Define BIG_ENDIAN iff lowest-numbered byte in a word
31: is the most significant byte. */
32:
33: #define BIG_ENDIAN
34:
35: /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
36: * group of arguments and treat it as an array of the arguments. */
37:
38: #define NO_ARG_ARRAY
39:
40: /* Define WORD_MACHINE if addresses and such have
41: * to be corrected before they can be used as byte counts. */
42:
43: #undef WORD_MACHINE
44:
45: /* Define how to take a char and sign-extend into an int.
46: On machines where char is signed, this is a no-op. */
47:
48: #define SIGN_EXTEND_CHAR(c) (c)
49:
50: /* Now define a symbol for the cpu type, if your compiler
51: does not define it automatically:
52: Ones defined so far include vax, m68000, ns16000, pyramid,
53: orion, tahoe, APOLLO and many others */
54: #ifndef hp9000s800
55: # define hp9000s800
56: #endif
57:
58: /* Use type int rather than a union, to represent Lisp_Object */
59: /* This is desirable for most machines. */
60:
61: #define NO_UNION_TYPE
62:
63: /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
64: the 24-bit bit field into an int. In other words, if bit fields
65: are always unsigned.
66:
67: If you use NO_UNION_TYPE, this flag does not matter. */
68:
69: #define EXPLICIT_SIGN_EXTEND
70:
71: /* Data type of load average, as read out of kmem. */
72:
73: #define LOAD_AVE_TYPE double
74:
75: /* Convert that into an integer that is 100 for a load average of 1.0 */
76:
77: #define LOAD_AVE_CVT(x) ((int) (x * 100.0))
78:
79:
80: /* Define CANNOT_DUMP on machines where unexec does not work.
81: Then the function dump-emacs will not be defined
82: and temacs will do (load "loadup") automatically unless told otherwise. */
83:
84: #undef CANNOT_DUMP
85:
86: /* Define VIRT_ADDR_VARIES if the virtual addresses of
87: pure and impure space as loaded can vary, and even their
88: relative order cannot be relied on.
89:
90: Otherwise Emacs assumes that text space precedes data space,
91: numerically. */
92:
93: #define VIRT_ADDR_VARIES
94:
95: /* Define C_ALLOCA if this machine does not support a true alloca
96: and the one written in C should be used instead.
97: Define HAVE_ALLOCA to say that the system provides a properly
98: working alloca function and it should be used.
99: Define neither one if an assembler-language alloca
100: in the file alloca.s should be used. */
101:
102: #define C_ALLOCA
103: /* #define HAVE_ALLOCA */
104:
105: /* the data segment on this machine always starts at address 0x40000000. */
106:
107: #define DATA_SEG_BITS 0x40000000
108:
109: #define VALBITS 26
110: #define GCTYPEBITS 5
111:
112: #define DATA_START 0x40000000
113: #define TEXT_START 0x00000000
114:
115: #define STACK_DIRECTION 1
116:
117: /* Define NO_REMAP if memory segmentation makes it not work well
118: to change the boundary between the text section and data section
119: when Emacs is dumped. If you define this, the preloaded Lisp
120: code will not be sharable; but that's better than failing completely. */
121:
122: #define NO_REMAP
123:
124: /* This machine requires completely different unexec code
125: which lives in a separate file. Specify the file name. */
126:
127: #define UNEXEC unexhp9k800.o
128:
129: #define LIBS_MACHINE
130: #define LIBS_DEBUG
131:
132: /* Define NEED_BSDTTY if you have such. */
133:
134: #define NEED_BSDTTY
135:
136: /* The standard definitions of these macros would work ok,
137: but these are faster because the constants are short. */
138:
139:
140: #define XUINT(a) (((unsigned)(a) << INTBITS-VALBITS) >> INTBITS-VALBITS)
141:
142: #define XSET(var, type, ptr) \
143: ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << INTBITS-VALBITS) >> INTBITS-VALBITS))
144:
145: #define XSETINT(a, b) XSET(a, XTYPE(a), b)
146: #define XSETUINT(a, b) XSET(a, XTYPE(a), b)
147: #define XSETPNTR(a, b) XSET(a, XTYPE(a), b)
148: #define XMARKBIT(a) ((a) < 0)
149: #define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT))
150:
151: #if 0 /* Loses when sign bit of type field is set. */
152: #define XUNMARK(a) ((a) = (((a) << INTBITS-GCTYPEBITS-VALBITS) >> INTBITS-GCTYPEBITS-VALBITS))
153: #endif
154:
155: /* The symbol in the kernel where the load average is found
156: is named _avenrun. At this time there are two major flavors
157: of hp-ux (there is the s800 and s300 (s200) flavors). The
158: differences are thusly moved to the corresponding m- file.
159: */
160:
161: /* no underscore please */
162: #define LDAV_SYMBOL "avenrun"
163: #define CPTIME_SYMBOL "cp_time"
164: #define DKXFER_SYMBOL "dk_xfer"
165:
166: #if 0 /* No longer true in HPUX 7.0 */
167: /* In hpux, for unknown reasons, S_IFLNK is defined even though
168: symbolic links do not exist.
169: Make sure our conditionals based on S_IFLNK are not confused.
170:
171: Here we assume that stat.h is included before config.h
172: so that we can override it here. */
173:
174: #undef S_IFLNK
175: #endif
176:
177: /* Define the BSTRING functions in terms of the sysV functions. */
178:
179: #define bcopy(a,b,s) memcpy (b,a,s)
180: #define bzero(a,s) memset (a,0,s)
181: #define bcmp memcmp
182:
183: /* On USG systems these have different names. */
184:
185: #define index strchr
186: #define rindex strrchr
187:
188: /* Include the file bsdtty.h, since job control exists. */
189: #define NEED_BSDTTY
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.