Mercurial > hg > xemacs-beta

comparison src/m/pfa50.h @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents a86b2b5e0111
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
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
28 /* Define NO_REMAP if memory segmentation makes it not work well 32 /* Define NO_REMAP if memory segmentation makes it not work well
29 to change the boundary between the text section and data section 33 to change the boundary between the text section and data section
30 when Emacs is dumped. If you define this, the preloaded Lisp 34 when Emacs is dumped. If you define this, the preloaded Lisp
31 code will not be sharable; but that's better than failing completely. */ 35 code will not be sharable; but that's better than failing completely. */
32 36
45 /* Define LD_SWITCH_MACHINE if your linker needs it. 49 /* Define LD_SWITCH_MACHINE if your linker needs it.
46 */ 50 */
47 51
48 #define LD_SWITCH_MACHINE "-e __start" 52 #define LD_SWITCH_MACHINE "-e __start"
49 53
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
50 /* SX/A has alloca in the PW library. */ 65 /* SX/A has alloca in the PW library. */
51 66
52 #define LIB_STANDARD "-lPW -lc" 67 #define LIB_STANDARD "-lPW -lc"
53 #define HAVE_ALLOCA 68 #define HAVE_ALLOCA
54 69