The R Project SVN R

Rev

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

Rev 75611 Rev 75618
Line 331... Line 331...
331 
static R_INLINE void *ALTVEC_DATAPTR_EX(SEXP x, Rboolean writeable)
 331 
static R_INLINE void *ALTVEC_DATAPTR_EX(SEXP x, Rboolean writeable)
332 
{
 332 
{
333 
    /**** move GC disabling into methods? */
 333 
    /**** move GC disabling into methods? */
334 
    if (R_in_gc)
 334 
    if (R_in_gc)
335 
	error("cannot get ALTVEC DATAPTR during GC");
 335 
	error("cannot get ALTVEC DATAPTR during GC");
336 
    R_CHECK_THREAD("ALTVEC_DATAPTR_EX");
 336 
    R_CHECK_THREAD;
337 
    int enabled = R_GCEnabled;
 337 
    int enabled = R_GCEnabled;
338 
    R_GCEnabled = FALSE;
 338 
    R_GCEnabled = FALSE;
339 
 
 339 
 
340 
    void *val = ALTVEC_DISPATCH(Dataptr, x, writeable);
 340 
    void *val = ALTVEC_DISPATCH(Dataptr, x, writeable);
341 
 
 341 
 
Line 492... Line 492...
492 
    SEXP val = NULL;
 492 
    SEXP val = NULL;
493 
 
 493 
 
494 
    /**** move GC disabling into method? */
 494 
    /**** move GC disabling into method? */
495 
    if (R_in_gc)
 495 
    if (R_in_gc)
496 
	error("cannot get ALTSTRING_ELT during GC");
 496 
	error("cannot get ALTSTRING_ELT during GC");
497 
    R_CHECK_THREAD("ALTSTRING_ELT");
 497 
    R_CHECK_THREAD;
498 
    int enabled = R_GCEnabled;
 498 
    int enabled = R_GCEnabled;
499 
    R_GCEnabled = FALSE;
 499 
    R_GCEnabled = FALSE;
500 
 
 500 
 
501 
    val = ALTSTRING_DISPATCH(Elt, x, i);
 501 
    val = ALTSTRING_DISPATCH(Elt, x, i);
502 
 
 502 
 
Line 507... Line 507...
507 
void attribute_hidden ALTSTRING_SET_ELT(SEXP x, R_xlen_t i, SEXP v)
 507 
void attribute_hidden ALTSTRING_SET_ELT(SEXP x, R_xlen_t i, SEXP v)
508 
{
 508 
{
509 
    /**** move GC disabling into method? */
 509 
    /**** move GC disabling into method? */
510 
    if (R_in_gc)
 510 
    if (R_in_gc)
511 
	error("cannot set ALTSTRING_ELT during GC");
 511 
	error("cannot set ALTSTRING_ELT during GC");
512 
    R_CHECK_THREAD("ALTSTRING_SET_ELT");
 512 
    R_CHECK_THREAD;
513 
    int enabled = R_GCEnabled;
 513 
    int enabled = R_GCEnabled;
514 
    R_GCEnabled = FALSE;
 514 
    R_GCEnabled = FALSE;
515 
 
 515 
 
516 
    ALTSTRING_DISPATCH(Set_elt, x, i, v);
 516 
    ALTSTRING_DISPATCH(Set_elt, x, i, v);
517 
 
 517