Mercurial > emacs
annotate src/m/gec63.h @ 22363:d00f146c3e9d
#include sys/file.h
(sys_access): Provide our own implementation which recognizes D_OK.
(is_exec): New function.
(stat): Use it.
(init_environment): Set TMPDIR to an existing directory.
Abort if none of the usual places is available.
(sys_rename): On Windows 95, choose a temp name that
includes the original file's base name and use an explicit loop
rather than calling mktemp. Only attempt to unlink the newname if
the rename fails, rather than second-guessing whether the old and
new names refer to the same file.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 05 Jun 1998 16:08:32 +0000 |
parents | ee40177f6c68 |
children | 4be8406ebef9 |
rev | line source |
---|---|
456 | 1 /* machine description file for gec63 |
2 Copyright (C) 1986 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 | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13374
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13374
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
456 | 20 |
21 | |
22 /* The following line tells the configuration script what sort of | |
23 operating system this machine is likely to run. | |
24 USUAL-OPSYS="usg5-2" */ | |
25 | |
9095
23f72b18b420
(WORDS_BIG_ENDIAN): define or undef appropriately, superseding BIG_ENDIAN.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
26 /* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word |
23f72b18b420
(WORDS_BIG_ENDIAN): define or undef appropriately, superseding BIG_ENDIAN.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
27 is the most significant byte. */ |
23f72b18b420
(WORDS_BIG_ENDIAN): define or undef appropriately, superseding BIG_ENDIAN.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
28 |
23f72b18b420
(WORDS_BIG_ENDIAN): define or undef appropriately, superseding BIG_ENDIAN.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
29 #define WORDS_BIG_ENDIAN |
23f72b18b420
(WORDS_BIG_ENDIAN): define or undef appropriately, superseding BIG_ENDIAN.
Karl Heuer <kwzh@gnu.org>
parents:
8892
diff
changeset
|
30 |
456 | 31 /* Say this machine is a 68000 */ |
32 | |
33 #define gec63 | |
34 | |
35 /* Use an int to represent Lisp_Object */ | |
36 | |
37 #define NO_UNION_TYPE | |
38 | |
39 /* GEC63 has alloca in the PW/ux63 library. */ | |
40 #define LIB_STANDARD -lPW -lc | |
41 #define HAVE_ALLOCA | |
42 | |
43 /* Do not define LOAD_AVE_TYPE or LOAD_AVE_CVT | |
44 since there is no /dev/kmem */ | |
45 | |
46 #undef ADDR_CORRECT(x) | |
47 #define NO_ARG_ARRAY | |
48 | |
49 #undef TERMCAP | |
50 #define TERMINFO | |
51 | |
11410 | 52 #define NO_REMAP |
53 | |
54 /* The rest of the file certainly needs updating for Emacs 19.29! */ | |
55 | |
456 | 56 /* Define sizes of portions of a Lisp_Object. */ |
10361
ad238f4988c0
(VALBITS): Adjust for new bit layout.
Karl Heuer <kwzh@gnu.org>
parents:
9257
diff
changeset
|
57 #define VALBITS 24 |
456 | 58 |
59 #define VALAMASK (((1<<VALBITS) - 1)| 0xF0000000L) | |
60 | |
61 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) | |
62 #define XSETTYPE(a, b) ((a) = ((a) & VALAMASK) + ((int)(b) << VALBITS)) | |
63 | |
64 #define XPNTR(a) ((a) & VALAMASK) | |
65 | |
66 #define XSET(var, type, ptr) \ | |
67 ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK)) | |
68 | |
69 /* Move some garbage-collector flag bits to different bit positions. */ | |
70 #define ARRAY_MARK_FLAG (1 << 27) |