The R Project SVN R

Rev

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

Rev 80166 Rev 80555
Line 214... Line 214...
214 
	    /* see comment above integerOneIndex */
 214 
	    /* see comment above integerOneIndex */
215 
	    if (dblind > 0) {
 215 
	    if (dblind > 0) {
216 
		if(R_FINITE(dblind)) indx = (R_xlen_t)(dblind - 1);
 216 
		if(R_FINITE(dblind)) indx = (R_xlen_t)(dblind - 1);
217 
	    } else if (dblind == 0 || len < 2) {
 217 
	    } else if (dblind == 0 || len < 2) {
218 
		ECALL3(call,
 218 
		ECALL3(call,
219 
		       _((dblind < 0) ? "invalid negative subscript in %s"
 219 
		       (dblind < 0) ? _("invalid negative subscript in %s")
220 
			 : "attempt to select less than one element in %s"),
 220 
		       : _("attempt to select less than one element in %s"),
221 
		       "get1index <real>");
 221 
		       "get1index <real>");
222 
	    } else if (len == 2 && dblind > -3) // dblind = -2 or -1 {why exception ?}
 222 
	    } else if (len == 2 && dblind > -3) // dblind = -2 or -1 {why exception ?}
223 
		indx = (R_xlen_t)(2 + dblind);
 223 
		indx = (R_xlen_t)(2 + dblind);
224 
	    else {
 224 
	    else {
225 
		ECALL3(call,
 225 
		ECALL3(call,
226 
		       _((dblind < 0) ? "invalid negative subscript in %s"
 226 
		       (dblind < 0) ? _("invalid negative subscript in %s")
227 
			 : "attempt to select more than one element in %s"),
 227 
		       : _("attempt to select more than one element in %s"),
228 
		       "get1index <real>");
 228 
		       "get1index <real>");
229 
	    }
 229 
	    }
230 
	}
 230 
	}
231 
	break;
 231 
	break;
232 
    }
 232 
    }