The R Project SVN R

Rev

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

Rev 89147 Rev 90023
Line 1743... Line 1743...
1743 
	} else {
 1743 
	} else {
1744 
	    PROTECT(perm = coerceVector(perm, INTSXP));
 1744 
	    PROTECT(perm = coerceVector(perm, INTSXP));
1745 
	    for (i = 0; i < n; i++) pp[i] = INTEGER(perm)[i] - 1;
 1745 
	    for (i = 0; i < n; i++) pp[i] = INTEGER(perm)[i] - 1;
1746 
	    UNPROTECT(1);
 1746 
	    UNPROTECT(1);
1747 
	}
 1747 
	}
- 
 
 1748 
        bool skip = true;
- 
 
 1749 
        for (i = 0; i < n; i++) if (pp[i] != i) {skip = false; break;}
- 
 
 1750 
        if (skip) {UNPROTECT(1); return(a);}
1748 
    }
 1751 
    }
1749 
 
 1752 
 
1750 
    R_xlen_t *iip = (R_xlen_t *) R_alloc((size_t) n, sizeof(R_xlen_t));
 1753 
    R_xlen_t *iip = (R_xlen_t *) R_alloc((size_t) n, sizeof(R_xlen_t));
1751 
    Memzero(iip, n);
 1754 
    Memzero(iip, n);
1752 
    for (i = 0; i < n; i++)
 1755 
    for (i = 0; i < n; i++)