The R Project SVN R

Rev

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

Rev 6622 Rev 6994
Line 156... Line 156...
156 
/* Vector Heap Macros */
 156 
/* Vector Heap Macros */
157 
#define BACKPOINTER(v)	((v).u.backpointer)
 157 
#define BACKPOINTER(v)	((v).u.backpointer)
158 
#define BYTE2VEC(n)	(((n)>0)?(((n)-1)/sizeof(VECREC)+1):0)
 158 
#define BYTE2VEC(n)	(((n)>0)?(((n)-1)/sizeof(VECREC)+1):0)
159 
#define INT2VEC(n)	(((n)>0)?(((n)*sizeof(int)-1)/sizeof(VECREC)+1):0)
 159 
#define INT2VEC(n)	(((n)>0)?(((n)*sizeof(int)-1)/sizeof(VECREC)+1):0)
160 
#define FLOAT2VEC(n)	(((n)>0)?(((n)*sizeof(double)-1)/sizeof(VECREC)+1):0)
 160 
#define FLOAT2VEC(n)	(((n)>0)?(((n)*sizeof(double)-1)/sizeof(VECREC)+1):0)
161 
#define COMPLEX2VEC(n)	(((n)>0)?(((n)*sizeof(complex)-1)/sizeof(VECREC)+1):0)
 161 
#define COMPLEX2VEC(n)	(((n)>0)?(((n)*sizeof(Rcomplex)-1)/sizeof(VECREC)+1):0)
162 
#define PTR2VEC(n)	(((n)>0)?(((n)*sizeof(SEXP)-1)/sizeof(VECREC)+1):0)
 162 
#define PTR2VEC(n)	(((n)>0)?(((n)*sizeof(SEXP)-1)/sizeof(VECREC)+1):0)
163 
 
 163 
 
164 
 
 164 
 
165 
/* Evaluation Context Structure */
 165 
/* Evaluation Context Structure */
166 
typedef struct RCNTXT {
 166 
typedef struct RCNTXT {
Line 270... Line 270...
270 
#define INI_as(v) = v
 270 
#define INI_as(v) = v
271 
#else
 271 
#else
272 
#define INI_as(v)
 272 
#define INI_as(v)
273 
#endif
 273 
#endif
274 
 
 274 
 
275 
extern int	errno;
 275 
/* extern int	errno; already have errno.h ! */
276 
extern int	gc_inhibit_torture INI_as(1);
 276 
extern int	gc_inhibit_torture INI_as(1);
277 
 
 277 
 
278 
/* R Home Directory */
 278 
/* R Home Directory */
279 
extern char*	R_Home;		    /* Root of the R tree */
 279 
extern char*	R_Home;		    /* Root of the R tree */
280 
 
 280