The R Project SVN R

Rev

Rev 89924 | Rev 89976 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89924 Rev 89944
Line 377... Line 377...
377 
#define MAYBEJIT(x) ((x)->sxpinfo.gp & MAYBEJIT_MASK)
 377 
#define MAYBEJIT(x) ((x)->sxpinfo.gp & MAYBEJIT_MASK)
378 
#define SET_MAYBEJIT(x) (((x)->sxpinfo.gp) |= MAYBEJIT_MASK)
 378 
#define SET_MAYBEJIT(x) (((x)->sxpinfo.gp) |= MAYBEJIT_MASK)
379 
#define UNSET_MAYBEJIT(x) (((x)->sxpinfo.gp) &= ~MAYBEJIT_MASK)
 379 
#define UNSET_MAYBEJIT(x) (((x)->sxpinfo.gp) &= ~MAYBEJIT_MASK)
380 
 
 380 
 
381 
/* Growable vector support */
 381 
/* Growable vector support */
382 
#define GROWABLE_MASK ((unsigned short)(1<<5))
 - 
 
383 
#define GROWABLE_BIT_SET(x) ((x)->sxpinfo.gp & GROWABLE_MASK)
 382 
#define GROWABLE_BIT_SET(x) ((x)->sxpinfo.gp & GROWABLE_MASK)
384 
#define SET_GROWABLE_BIT(x) (((x)->sxpinfo.gp) |= GROWABLE_MASK)
 383 
#define SET_GROWABLE_BIT(x) (((x)->sxpinfo.gp) |= GROWABLE_MASK)
385 
#define IS_GROWABLE(x) (GROWABLE_BIT_SET(x) && XLENGTH(x) < XTRUELENGTH(x))
 384 
#define IS_GROWABLE(x) (GROWABLE_BIT_SET(x) && XLENGTH(x) < XTRUELENGTH(x))
386 
 
 385 
 
387 
/* Vector Access Macros */
 386 
/* Vector Access Macros */
Line 933... Line 932...
933 
/* CHARSXP charset bits */
 932 
/* CHARSXP charset bits */
934 
#define BYTES_MASK (1<<1)
 933 
#define BYTES_MASK (1<<1)
935 
#define LATIN1_MASK (1<<2)
 934 
#define LATIN1_MASK (1<<2)
936 
#define UTF8_MASK (1<<3)
 935 
#define UTF8_MASK (1<<3)
937 
/* (1<<4) is taken by S4_OBJECT_MASK */
 936 
/* (1<<4) is taken by S4_OBJECT_MASK */
- 
 
 937 
#define GROWABLE_MASK ((unsigned short)(1<<5))
938 
#define CACHED_MASK (1<<5)
 938 
#define CACHED_MASK (1<<5)
939 
#define ASCII_MASK (1<<6)
 939 
#define ASCII_MASK (1<<6)
940 
#define HASHASH_MASK 1
 940 
#define HASHASH_MASK 1
941 
/**** HASHASH uses the first bit -- see HASHASH_MASK defined below */
 941 
/**** HASHASH uses the first bit -- see HASHASH_MASK defined below */
942 
 
 942