![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to m-iris4d.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / src|
Return to m-iris4d.h CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / src |
1.1 root 1: /* m- file for Iris-4D machines. Use with s-iris3-6.h
2: Copyright (C) 1987 Free Software Foundation, Inc.
3:
4: This file is part of GNU Emacs.
5:
6: GNU Emacs is distributed in the hope that it will be useful,
7: but WITHOUT ANY WARRANTY. No author or distributor
8: accepts responsibility to anyone for the consequences of using it
9: or for whether it serves any particular purpose or works at all,
10: unless he says so in writing. Refer to the GNU Emacs General Public
11: License for full details.
12:
13: Everyone is granted permission to copy, modify and redistribute
14: GNU Emacs, but only under the conditions described in the
15: GNU Emacs General Public License. A copy of this license is
16: supposed to have been given to you along with GNU Emacs so you
17: can know your rights and responsibilities. It should be in a
18: file named COPYING. Among other things, the copyright notice
19: and this notice must be preserved on all copies. */
20:
21:
22: /* The following three symbols give information on
23: the size of various data types. */
24:
25: #define SHORTBITS 16 /* Number of bits in a short */
26:
27: #define INTBITS 32 /* Number of bits in an int */
28:
29: #define LONGBITS 32 /* Number of bits in a long */
30:
31: /* Define BIG_ENDIAN iff lowest-numbered byte in a word
32: is the most significant byte. */
33:
34: #define BIG_ENDIAN
35:
36: /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
37: * group of arguments and treat it as an array of the arguments. */
38:
39: #define NO_ARG_ARRAY
40:
41: /* Define WORD_MACHINE if addresses and such have
42: * to be corrected before they can be used as byte counts. */
43:
44: #undef WORD_MACHINE
45:
46: /* Define how to take a char and sign-extend into an int.
47: On machines where char is signed, this is a no-op. */
48:
49: #define SIGN_EXTEND_CHAR(c) ((signed char)(c))
50:
51: /* Now define a symbol for the cpu type, if your compiler
52: does not define it automatically:
53: Ones defined so far include vax, m68000, ns16000, pyramid,
54: orion, tahoe, APOLLO and many others */
55:
56: #ifndef mips
57: #define mips
58: #endif
59:
60: #ifndef IRIS_4D
61: #define IRIS_4D
62: #endif
63:
64: /* Use type int rather than a union, to represent Lisp_Object */
65: /* This is desirable for most machines. */
66:
67: #define NO_UNION_TYPE
68:
69: /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
70: the 24-bit bit field into an int. In other words, if bit fields
71: are always unsigned.
72:
73: If you use NO_UNION_TYPE, this flag does not matter. */
74:
75: #define EXPLICIT_SIGN_EXTEND
76:
77: /* Data type of load average, as read out of kmem. */
78:
79: #define LOAD_AVE_TYPE long /* This doesn't quite work on the 4D */
80:
81: /* Convert that into an integer that is 100 for a load average of 1.0 */
82:
83: #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / 256.0)
84:
85: /* s-iris3-6.h uses /vmunix */
86:
87: #undef KERNEL_FILE
88: #define KERNEL_FILE "/unix"
89:
90: /* Define CANNOT_DUMP on machines where unexec does not work.
91: Then the function dump-emacs will not be defined
92: and temacs will do (load "loadup") automatically unless told otherwise. */
93:
94: #undef CANNOT_DUMP
95:
96: /* Define VIRT_ADDR_VARIES if the virtual addresses of
97: pure and impure space as loaded can vary, and even their
98: relative order cannot be relied on.
99:
100: Otherwise Emacs assumes that text space precedes data space,
101: numerically. */
102:
103: /* #define VIRT_ADDR_VARIES */
104:
105: /* Define C_ALLOCA if this machine does not support a true alloca
106: and the one written in C should be used instead.
107: Define HAVE_ALLOCA to say that the system provides a properly
108: working alloca function and it should be used.
109: Define neither one if an assembler-language alloca
110: in the file alloca.s should be used. */
111:
112: #define C_ALLOCA
113: /* #define HAVE_ALLOCA */
114:
115: /* Define NO_REMAP if memory segmentation makes it not work well
116: to change the boundary between the text section and data section
117: when Emacs is dumped. If you define this, the preloaded Lisp
118: code will not be sharable; but that's better than failing completely. */
119:
120: #define NO_REMAP
121:
122: /* This machine requires completely different unexec code
123: which lives in a separate file. Specify the file name. */
124:
125: #define UNEXEC unexmips.o
126:
127: /*
128: * The TEXT_START here is by experiment; the DATA_START is as per the
129: * manual (Assembly Language Programmers guide). These values can be
130: * found at run time from &_ftext and &_fdata, though the C file which
131: * reads these must be compile with -G 0 (prevent access to those two
132: * 'variables' using the $gp register). However, I am lazy and don't
133: * really want to rewrite unexec.c yet again to use this instead of
134: * TEXT_START and DATA_START. The manual indicates that these
135: * locations are fixed for ZMAGIC files, so I'll be lazy and do it
136: * this way. It will probably break as of the next release of the
137: * IRIS4D, but I've described up above how to find the new values, so
138: * I won't feel too guilty. Note that the value returned through
139: * _ftext is the start of text space (in this case it was 0x400140); I
140: * presumed that the headers started at 0x400000 and was right.
141: *
142: * DATA_SEG_BITS forces that bit to be or'd in with any pointers which
143: * are trying to access pure strings (as gnu-emacs only allows 24 bits
144: * for the value field of a LISP_OBJECT).
145: */
146:
147:
148: #define TEXT_START 0x400000
149: #define DATA_START 0x10000000
150: #define DATA_SEG_BITS 0x10000000
151:
152: #undef LIBS_MACHINE
153: #define LIBS_MACHINE -lPW -lmld
154: #define LIBS_DEBUG
155:
156: /* Define this if you have a fairly recent system,
157: in which crt1.o and crt1.n should be used. */
158: #define HAVE_CRTN
159:
160: #ifdef HAVE_CRTN
161: /* Must define START-FILES so that the linker can find /usr/lib/crt0.o. */
162: #define START_FILES pre-crt0.o /usr/lib/crt1.o
163: #define LIB_STANDARD -lbsd -lc /usr/lib/crtn.o
164: #else
165: #define START_FILES pre-crt0.o /usr/lib/crt0.o
166: /* The entry-point label (start of text segment) is `start', not `__start'. */
167: #define DEFAULT_ENTRY_ADDRESS start
168: #define LIB_STANDARD -lbsd -lc
169: #endif
170:
171: /* Use terminfo instead of termcap. */
172:
173: #define TERMINFO
174:
175: /* Letter to use in finding device name of first pty,
176: if system supports pty's. 'a' means it is /dev/ptya0 */
177:
178: #undef FIRST_PTY_LETTER
179: #define FIRST_PTY_LETTER 'q'
180:
181: /* Define STACK_DIRECTION for alloca.c */
182:
183: #define STACK_DIRECTION -1
184:
185: /* The standard definitions of these macros would work ok,
186: but these are faster because the constants are short. */
187:
188: #define XUINT(a) (((unsigned)(a) << INTBITS-VALBITS) >> INTBITS-VALBITS)
189:
190: #define XSET(var, type, ptr) \
191: ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << INTBITS-VALBITS) >> INTBITS-VALBITS))
192:
193: #define XSETINT(a, b) XSET(a, XTYPE(a), b)
194: #define XSETUINT(a, b) XSET(a, XTYPE(a), b)
195: #define XSETPNTR(a, b) XSET(a, XTYPE(a), b)
196:
197: #define XMARKBIT(a) ((a) < 0)
198: #define XSETMARKBIT(a,b) ((a) = ((a) & ~MARKBIT) | ((b) ? MARKBIT : 0))
199: #define XUNMARK(a) ((a) = (((unsigned)(a) << INTBITS-GCTYPEBITS-VALBITS) >> INTBITS-GCTYPEBITS-VALBITS))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.