Mercurial > hg > xemacs-beta

comparison src/m/pfa50.h @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children c69610198c35
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
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