The R Project SVN R

Rev

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

Rev 51291 Rev 51638
Line 473... Line 473...
473 
    s = allocVector(type, n);
 473 
    s = allocVector(type, n);
474 
    rawptr = (Rbyte *)p;
 474 
    rawptr = (Rbyte *)p;
475 
    for (i = 0; i < n; i++) RAW(s)[i] = rawptr[i];
 475 
    for (i = 0; i < n; i++) RAW(s)[i] = rawptr[i];
476 
    break;
 476 
    break;
477 
    case LGLSXP:
 477 
    case LGLSXP:
- 
 
 478 
	/* FIXME: should this not force 0, 1, NA_LOGICAL? */
478 
    case INTSXP:
 479 
    case INTSXP:
479 
	s = allocVector(type, n);
 480 
	s = allocVector(type, n);
480 
	iptr = (int*)p;
 481 
	iptr = (int*)p;
481 
	for(i = 0 ; i < n ; i++) INTEGER(s)[i] = iptr[i];
 482 
	for(i = 0 ; i < n ; i++) INTEGER(s)[i] = iptr[i];
482 
	break;
 483 
	break;