The R Project SVN R

Rev

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

Rev 50609 Rev 50745
Line 352... Line 352...
352 
static SEXP ArraySubset(SEXP x, SEXP s, SEXP call, int drop)
 352 
static SEXP ArraySubset(SEXP x, SEXP s, SEXP call, int drop)
353 
{
 353 
{
354 
    int i, j, k, ii, jj, mode, n;
 354 
    int i, j, k, ii, jj, mode, n;
355 
    int **subs, *indx, *offset, *bound;
 355 
    int **subs, *indx, *offset, *bound;
356 
    SEXP dimnames, dimnamesnames, p, q, r, result, xdims;
 356 
    SEXP dimnames, dimnamesnames, p, q, r, result, xdims;
357 
    void *vmaxsave;
 357 
    const void *vmaxsave;
358 
 
 358 
 
359 
    mode = TYPEOF(x);
 359 
    mode = TYPEOF(x);
360 
    xdims = getAttrib(x, R_DimSymbol);
 360 
    xdims = getAttrib(x, R_DimSymbol);
361 
    k = length(xdims);
 361 
    k = length(xdims);
362 
 
 362