Mercurial > hg > xemacs-beta

comparison src/lisp-union.h @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
121 extern Lisp_Object Qnull_pointer, Qzero; 121 extern Lisp_Object Qnull_pointer, Qzero;
122 122
123 #define XREALINT(x) ((x).s.val) 123 #define XREALINT(x) ((x).s.val)
124 #define XUINT(x) ((x).u.val) 124 #define XUINT(x) ((x).u.val)
125 #define XTYPE(x) ((x).gu.type) 125 #define XTYPE(x) ((x).gu.type)
126 #define XGCTYPE(x) XTYPE (x)
127 #define EQ(x,y) ((x).v == (y).v) 126 #define EQ(x,y) ((x).v == (y).v)
128 127
129 #define INTP(x) ((x).s.bits) 128 #define INTP(x) ((x).s.bits)
130 #define GC_EQ(x,y) EQ (x, y) 129 #define INT_PLUS(x,y) make_int (XINT (x) + XINT (y))
130 #define INT_MINUS(x,y) make_int (XINT (x) - XINT (y))
131 #define INT_PLUS1(x) make_int (XINT (x) + 1)
132 #define INT_MINUS1(x) make_int (XINT (x) - 1)
131 133
132 /* Convert between a (void *) and a Lisp_Object, as when the 134 /* Convert between a (void *) and a Lisp_Object, as when the
133 Lisp_Object is passed to a toolkit callback function */ 135 Lisp_Object is passed to a toolkit callback function */
134 #define VOID_TO_LISP(larg,varg) \ 136 #define VOID_TO_LISP(larg,varg) \
135 ((void) ((larg).v = (struct nosuchstruct *) (varg))) 137 ((void) ((larg).v = (struct nosuchstruct *) (varg)))