Parent Directory | Revision Log | Patch
revision 1.92 by dirk, Fri Mar 1 00:19:20 2002 UTC | revision 1.93 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC | |
---|---|---|
# | Line 315 typedef signed long scm_t_signed_bits; | Line 315 typedef signed long scm_t_signed_bits; |
315 | #define SCM_TYP16(x) (0xffff & SCM_CELL_TYPE (x)) | #define SCM_TYP16(x) (0xffff & SCM_CELL_TYPE (x)) |
316 | #define SCM_TYP16S(x) (0xfeff & SCM_CELL_TYPE (x)) | #define SCM_TYP16S(x) (0xfeff & SCM_CELL_TYPE (x)) |
317 | ||
318 | #define SCM_TYP16_PREDICATE(tag,x) (!SCM_IMP (x) && SCM_TYP16 (x) == (tag)) | #define SCM_TYP16_PREDICATE(tag, x) (!SCM_IMP (x) && SCM_TYP16 (x) == (tag)) |
319 | ||
320 | ||
321 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |