The R Project SVN R

Rev

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

Rev 77331 Rev 77369
Line 199... Line 199...
199 
#define ITERATE_BY_REGION_PARTIAL(sx, px, idx, nb, etype, vtype,	\
 199 
#define ITERATE_BY_REGION_PARTIAL(sx, px, idx, nb, etype, vtype,	\
200 
				  strt, nfull, expr) do {		\
 200 
				  strt, nfull, expr) do {		\
201 
	const etype *px = (etype *) DATAPTR_OR_NULL(sx);		\
 201 
	const etype *px = (etype *) DATAPTR_OR_NULL(sx);		\
202 
	if (px != NULL) {						\
 202 
	if (px != NULL) {						\
203 
	    R_xlen_t idx = strt;					\
 203 
	    R_xlen_t idx = strt;					\
- 
 
 204 
	    (void) idx; /* variable may be unused in expr */		\
204 
	    R_xlen_t nb = nfull;					\
 205 
	    R_xlen_t nb = nfull;					\
205 
	    px += strt;							\
 206 
	    px += strt;							\
206 
	    expr							\
 207 
	    expr							\
207 
	}								\
 208 
	}								\
208 
	else ITERATE_BY_REGION_PARTIAL0(sx, px, idx, nb, etype, vtype,	\
 209 
	else ITERATE_BY_REGION_PARTIAL0(sx, px, idx, nb, etype, vtype,	\