The R Project SVN – R – Diff – /trunk/src/main/array.c



	error(_("'x' must be numeric"));
    }
 
    if (OP == 0 || OP == 1) { /* columns */
	PROTECT(ans = allocVector(REALSXP, p));
#ifdef _OPENMP
	int nthreads;
	/* This gives a spurious -Wunused-but-set-variable error */
	if (R_num_math_threads > 0)
	    nthreads = R_num_math_threads;
	else

Rev 62618	Rev 62637
Line 1265...	Line 1265...
1265	`error(_("'x' must be numeric"));`	1265	`error(_("'x' must be numeric"));`
1266	`}`	1266	`}`
1267		1267
1268	`if (OP == 0 \|\| OP == 1) { /* columns */`	1268	`if (OP == 0 \|\| OP == 1) { /* columns */`
1269	`PROTECT(ans = allocVector(REALSXP, p));`	1269	`PROTECT(ans = allocVector(REALSXP, p));`
1270	`#ifdef HAVE_OPENMP`	1270	`#ifdef _OPENMP`
1271	`int nthreads;`	1271	`int nthreads;`
1272	`/* This gives a spurious -Wunused-but-set-variable error */`	1272	`/* This gives a spurious -Wunused-but-set-variable error */`
1273	`if (R_num_math_threads > 0)`	1273	`if (R_num_math_threads > 0)`
1274	`nthreads = R_num_math_threads;`	1274	`nthreads = R_num_math_threads;`
1275	`else`	1275	`else`

The R Project SVN R

(root)/trunk/src/main/array.c – Rev 62618 → 62637