The R Project SVN R

Rev

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

Rev 28254 Rev 28362
Line 1689... Line 1689...
1689 
}
 1689 
}
1690 
 
 1690 
 
1691 
 
 1691 
 
1692 
/* Allocate a vector object on the heap */
 1692 
/* Allocate a vector object on the heap */
1693 
 
 1693 
 
1694 
SEXP allocVector(SEXPTYPE type, int length)
 1694 
SEXP allocVector(SEXPTYPE type, R_len_t length)
1695 
{
 1695 
{
1696 
    SEXP s;     /* For the generational collector it would be safer to
 1696 
    SEXP s;     /* For the generational collector it would be safer to
1697 
		   work in terms of a VECSEXP here, but that would
 1697 
		   work in terms of a VECSEXP here, but that would
1698 
		   require several casts below... */
 1698 
		   require several casts below... */
1699 
    int i;
 1699 
    R_len_t i;
1700 
    R_size_t size = 0, alloc_size, old_R_VSize;
 1700 
    R_size_t size = 0, alloc_size, old_R_VSize;
1701 
    int node_class;
 1701 
    int node_class;
1702 
 
 1702 
 
1703 
    if (length < 0 )
 1703 
    if (length < 0 )
1704 
	errorcall(R_GlobalContext->call,
 1704 
	errorcall(R_GlobalContext->call,