The R Project SVN R

Rev

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

Rev 76874 Rev 77366
Line 1191... Line 1191...
1191 
	    PROTECT(prevSrcrefs = getAttrib(a2, R_SrcrefSymbol));
 1191 
	    PROTECT(prevSrcrefs = getAttrib(a2, R_SrcrefSymbol));
1192 
	    SEXP s = PROTECT(makeSrcref(lloc, PS_SRCFILE));
 1192 
	    SEXP s = PROTECT(makeSrcref(lloc, PS_SRCFILE));
1193 
	    PrependToSrcRefs(s);
 1193 
	    PrependToSrcRefs(s);
1194 
	    attachSrcrefs(a2);
 1194 
	    attachSrcrefs(a2);
1195 
	    UNPROTECT(2); /* prevSrcrefs, s */
 1195 
	    UNPROTECT(2); /* prevSrcrefs, s */
- 
 
 1196 
#ifndef SWITCH_TO_REFCNT
1196 
	    /* SrcRefs got NAMED by being an attribute, preventively
 1197 
	    /* SrcRefs got NAMED by being an attribute, preventively
1197 
	       getAttrib(), but it has not in fact been referenced. Set NAMED
 1198 
	       getAttrib(), but it has not in fact been referenced. Set NAMED
1198 
	       to 0 to avoid overhead in further setAttrib calls due to cycle
 1199 
	       to 0 to avoid overhead in further setAttrib calls due to cycle
1199 
	       detection. */
 1200 
	       detection. */
1200 
	    SET_NAMED(prevSrcrefs, 0);
 1201 
	    SET_NAMED(prevSrcrefs, 0);
- 
 
 1202 
#endif
1201 
	    PS_SET_SRCREFS(prevSrcrefs);
 1203 
	    PS_SET_SRCREFS(prevSrcrefs);
1202 
	}
 1204 
	}
1203 
	PRESERVE_SV(ans = a2);
 1205 
	PRESERVE_SV(ans = a2);
1204 
    }
 1206 
    }
1205 
    else
 1207 
    else