The R Project SVN R

Rev

Rev 85847 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 85847 Rev 88919
Line 177... Line 177...
177 
				  n1, n2, n3, n4, n5,			\
 177 
				  n1, n2, n3, n4, n5,			\
178 
				  i, i1, i2, i3, i4, i5, loop_body);	\
 178 
				  i, i1, i2, i3, i4, i5, loop_body);	\
179 
    } while (0)
 179 
    } while (0)
180 
 
 180 
 
181 
#define GET_REGION_BUFSIZE 512
 181 
#define GET_REGION_BUFSIZE 512
- 
 
 182 
#ifdef USE_RINTERNALS
182 
#define GET_REGION_PTR(x, i, n, buf, type)				\
 183 
# define GET_REGION_PTR(x, i, n, buf, type)				\
183 
    (ALTREP(x) == 0 ? type##0(x) + (i) : (type##_GET_REGION(x, i, n, buf), buf))
 184 
    (ALTREP(x) == 0 ? type##0(x) + (i) : (type##_GET_REGION(x, i, n, buf), buf))
- 
 
 185 
#else
- 
 
 186 
# define GET_REGION_PTR(x, i, n, buf, type)				\
- 
 
 187 
    (ALTREP(x) == 0 ? type(x) + (i) : (type##_GET_REGION(x, i, n, buf), buf))
- 
 
 188 
#endif
184 
 
 189 
 
185 
#define ITERATE_BY_REGION_PARTIAL0(sx, px, idx, nb, etype, vtype,	\
 190 
#define ITERATE_BY_REGION_PARTIAL0(sx, px, idx, nb, etype, vtype,	\
186 
				   strt, nfull, expr) do {		\
 191 
				   strt, nfull, expr) do {		\
187 
	etype __ibr_buf__[GET_REGION_BUFSIZE];				\
 192 
	etype __ibr_buf__[GET_REGION_BUFSIZE];				\
188 
	R_xlen_t __ibr_n__ = strt + nfull;				\
 193 
	R_xlen_t __ibr_n__ = strt + nfull;				\