Mercurial > hg > xemacs-beta

comparison src/m/pfa50.h @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 850242ba4a81
children 697ef44129c6
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
23 /* Say this machine is a 68000 */ 23 /* Say this machine is a 68000 */
24 24
25 #define m68000 25 #define m68000
26 #define mc68000 1 26 #define mc68000 1
27 27
28 /* XINT must explicitly sign-extend */
29
30 #define EXPLICIT_SIGN_EXTEND
31
32 /* Define NO_REMAP if memory segmentation makes it not work well 28 /* Define NO_REMAP if memory segmentation makes it not work well
33 to change the boundary between the text section and data section 29 to change the boundary between the text section and data section
34 when Emacs is dumped. If you define this, the preloaded Lisp 30 when Emacs is dumped. If you define this, the preloaded Lisp
35 code will not be sharable; but that's better than failing completely. */ 31 code will not be sharable; but that's better than failing completely. */
36 32
49 /* Define LD_SWITCH_MACHINE if your linker needs it. 45 /* Define LD_SWITCH_MACHINE if your linker needs it.
50 */ 46 */
51 47
52 #define LD_SWITCH_MACHINE "-e __start" 48 #define LD_SWITCH_MACHINE "-e __start"
53 49
54 #if pfa50 || pfa70
55
56 /* On A-50/60/70/80, data space has high order byte use. */
57 #define VALBITS 26
58 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000)
59 /* XEmacs: markbit is between type bits and value bits */
60 /* #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) */
61 #define XTYPE(a) ((enum Lisp_Type) (((a) >> ((VALBITS) + 1)) & GCTYPEMASK))
62
63 #endif /* pfa50, pfa70 */
64
65 /* SX/A has alloca in the PW library. */ 50 /* SX/A has alloca in the PW library. */
66 51
67 #define LIB_STANDARD "-lPW -lc" 52 #define LIB_STANDARD "-lPW -lc"
68 #define HAVE_ALLOCA 53 #define HAVE_ALLOCA
69 54