Mercurial > emacs

comparison src/m/gec63.h @ 9257:d77adcd3277b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(XSETPNTR): Deleted.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 10:24:08 +0000
parents 23f72b18b420
children ad238f4988c0
comparison
equal deleted inserted replaced
9256:50532339ab7a 9257:d77adcd3277b
65 65
66 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) 66 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
67 #define XSETTYPE(a, b) ((a) = ((a) & VALAMASK) + ((int)(b) << VALBITS)) 67 #define XSETTYPE(a, b) ((a) = ((a) & VALAMASK) + ((int)(b) << VALBITS))
68 68
69 #define XPNTR(a) ((a) & VALAMASK) 69 #define XPNTR(a) ((a) & VALAMASK)
70 #define XSETPNTR(a, b) ((a) = ((a) & ~VALAMASK) + ((b) & VALAMASK))
71 70
72 #define XSET(var, type, ptr) \ 71 #define XSET(var, type, ptr) \
73 ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK)) 72 ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK))
74 73
75 /* Move some garbage-collector flag bits to different bit positions. */ 74 /* Move some garbage-collector flag bits to different bit positions. */