The R Project SVN R

Rev

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

Rev 71443 Rev 71551
Line 164... Line 164...
164 
	    if (x <= xt[ihi])		goto L51;
 164 
	    if (x <= xt[ihi])		goto L51;
165 
	}
 165 
	}
166 
	if (X_grtr(xt[n]))		right_boundary;
 166 
	if (X_grtr(xt[n]))		right_boundary;
167 
	ihi = n;
 167 
	ihi = n;
168 
    }
 168 
    }
- 
 
 169
- 
 
 170 
    if (left_open) goto L51; /* There _is_ a path to here, avoiding return and goto */
169 
 
 171 
 
170 
L50: // ! left_open
 172 
L50: // ! left_open
171 
    /* **** now xt[ilo] <= x < xt[ihi] . narrow the interval. */
 173 
    /* **** now xt[ilo] <= x < xt[ihi] . narrow the interval. */
172 
    for(;;) {
 174 
    for(;;) {
173 
	middle = (ilo + ihi) / 2;
 175 
	middle = (ilo + ihi) / 2;