The R Project SVN R

(root)/trunk/src/main/subscript.c – Rev 63181 → 63185



#endif
	    cx = nthcdr(x, (int) offset);
	    x = CAR(cx);
	    if (dup && NAMED(x) > 1) {
		x = duplicate(x);
		SETCAR(cx, x);
	    }
	} else {
	    cx = x;
	    x = VECTOR_ELT(x, offset);
	    if (dup && NAMED(x) > 1) {

Rev 63181	Rev 63185
Line 315...	Line 315...
315	`#endif`	315	`#endif`
316	`cx = nthcdr(x, (int) offset);`	316	`cx = nthcdr(x, (int) offset);`
317	`x = CAR(cx);`	317	`x = CAR(cx);`
318	`if (dup && NAMED(x) > 1) {`	318	`if (dup && NAMED(x) > 1) {`
319	`x = duplicate(x);`	319	`x = duplicate(x);`
320	`nthcdr(x, (int) offset);`	320	`SETCAR(cx, x);`
321	`}`	321	`}`
322	`} else {`	322	`} else {`
323	`cx = x;`	323	`cx = x;`
324	`x = VECTOR_ELT(x, offset);`	324	`x = VECTOR_ELT(x, offset);`
325	`if (dup && NAMED(x) > 1) {`	325	`if (dup && NAMED(x) > 1) {`