|
|
1.1 root 1: /* m- file for PFU A-series.
2: Copyright (C) 1988 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: /* 68000 has lowest-numbered byte as most significant */
32:
33: #define BIG_ENDIAN
34:
35: /* Define how to take a char and sign-extend into an int.
36: On machines where char is signed, this is a no-op. */
37:
38: #define SIGN_EXTEND_CHAR(c) ((((int) (c)) << 24) >> 24)
39:
40: /* Say this machine is a 68000 */
41:
42: #define m68000
43: #define mc68000 1
44:
45: /* Use type int rather than a union, to represent Lisp_Object */
46:
47: #define NO_UNION_TYPE
48:
49: /* XINT must explicitly sign-extend */
50:
51: #define EXPLICIT_SIGN_EXTEND
52:
53: /* The symbol FIONREAD is defined, but the feature does not work. */
54:
55: #define BROKEN_FIONREAD
56:
57: /* Define NO_REMAP if memory segmentation makes it not work well
58: to change the boundary between the text section and data section
59: when Emacs is dumped. If you define this, the preloaded Lisp
60: code will not be sharable; but that's better than failing completely. */
61:
62: #define NO_REMAP
63:
64: /* Define TEXT_START_ADDR if your linker don't set execute point to _start.
65: If it needed, temacs always CORE-DUMP. */
66:
67: #define TEXT_START_ADDR __start
68:
69: /* Define START_FILES if your machine used _start.
70: */
71:
72: #define START_FILES crt0.o
73:
74: /* Define LD_SWITCH_MACHINE if your linker need it.
75: */
76:
77: #define LD_SWITCH_MACHINE -e __start
78:
79: #if pfa50 || pfa70
80:
81: /* On A-50/60/70/80, data space has high order byte use. */
82: #define VALMASK (((1<<VALBITS) - 1) | 0x60000000)
83: #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f))
84: #define XGCTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f))
85:
86: #endif /* pfa50, pfa70 */
87:
88: /* SX/A has alloca in the PW library. */
89:
90: #define LIB_STANDARD -lPW -lc
91: #define HAVE_ALLOCA
92:
93: /* SX/A uses terminfo and lib/curses */
94:
95: #define TERMINFO
96:
97: #define HAVE_TIMEVAL
98: #define HAVE_SELECT
99: #define HAVE_PTYS
100: #define HAVE_SOCKETS
101: #define HAVE_RENAME
102:
103: /* SX/A use SystemV style getdents/readdir. */
104: #define HAVE_CLOSEDIR
105:
106: /* SX/A does not have sigpause. */
107: #undef HAVE_SYSV_SIGPAUSE
108:
109: /* SX/A does not have sigblock. */
110: #define sigblock(mask) (0)
111:
112: #define USG_SYS_TIME
113: #define USE_UTIME
114:
115: #define NO_SIOCTL_H
116:
117: #undef SIGIO
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.