Mercurial > emacs
annotate src/m/pfa50.h @ 6143:45bdd0e4b6ea
(Fx_list_fonts): Avoid confused increment of info.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 02 Mar 1994 05:48:00 +0000 |
parents | d7069bd44885 |
children | 191acacfa1ec |
rev | line source |
---|---|
579 | 1 /* Machine description file for PFU A-series. |
471 | 2 Copyright (C) 1988 Free Software Foundation, Inc. |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
3700
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
6 GNU Emacs is free software; you can redistribute it and/or modify |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
9 any later version. |
471 | 10 |
3700
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
11 GNU Emacs is distributed in the hope that it will be useful, |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
14 GNU General Public License for more details. |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
15 |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
17 along with GNU Emacs; see the file COPYING. If not, write to |
d76398601a0b
Update GPL references - version 2
Jim Blandy <jimb@redhat.com>
parents:
2989
diff
changeset
|
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ |
471 | 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 /* 68000 has lowest-numbered byte as most significant */ | |
31 | |
32 #define BIG_ENDIAN | |
33 | |
34 /* Say this machine is a 68000 */ | |
35 | |
36 #define m68000 | |
37 #define mc68000 1 | |
38 | |
39 /* Use type int rather than a union, to represent Lisp_Object */ | |
40 | |
41 #define NO_UNION_TYPE | |
42 | |
43 /* XINT must explicitly sign-extend */ | |
44 | |
45 #define EXPLICIT_SIGN_EXTEND | |
46 | |
47 /* The symbol FIONREAD is defined, but the feature does not work. */ | |
48 | |
49 #define BROKEN_FIONREAD | |
50 | |
51 /* Define NO_REMAP if memory segmentation makes it not work well | |
52 to change the boundary between the text section and data section | |
53 when Emacs is dumped. If you define this, the preloaded Lisp | |
54 code will not be sharable; but that's better than failing completely. */ | |
55 | |
56 #define NO_REMAP | |
57 | |
58 /* Define TEXT_START_ADDR if your linker don't set execute point to _start. | |
59 If it needed, temacs always CORE-DUMP. */ | |
60 | |
61 #define TEXT_START_ADDR __start | |
62 | |
63 /* Define START_FILES if your machine used _start. | |
64 */ | |
65 | |
66 #define START_FILES crt0.o | |
67 | |
68 /* Define LD_SWITCH_MACHINE if your linker need it. | |
69 */ | |
70 | |
71 #define LD_SWITCH_MACHINE -e __start | |
72 | |
73 #if pfa50 || pfa70 | |
74 | |
75 /* On A-50/60/70/80, data space has high order byte use. */ | |
76 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000) | |
77 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f)) | |
78 #define XGCTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f)) | |
79 | |
80 #endif /* pfa50, pfa70 */ | |
81 | |
82 /* SX/A has alloca in the PW library. */ | |
83 | |
84 #define LIB_STANDARD -lPW -lc | |
85 #define HAVE_ALLOCA | |
86 | |
87 /* SX/A uses terminfo and lib/curses */ | |
88 | |
89 #define TERMINFO | |
90 | |
91 #define HAVE_TIMEVAL | |
92 #define HAVE_SELECT | |
93 #define HAVE_PTYS | |
94 #define HAVE_SOCKETS | |
95 | |
96 /* SX/A use SystemV style getdents/readdir. */ | |
97 | |
98 /* SX/A does not have sigblock(2) */ | |
99 #define sigblock(mask) (0) | |
100 | |
101 #define USG_SYS_TIME | |
102 #define USE_UTIME | |
103 | |
104 #define NO_SIOCTL_H | |
105 | |
106 #undef SIGIO |