Commit 2eafb9e3 authored by Radford Neal's avatar Radford Neal

move Win32 fninit to less-executed spot

parent e90cb16f
......@@ -818,11 +818,6 @@ static SEXP attribute_noinline evalv_other (SEXP e, SEXP rho, int variant)
SEXP op;
# ifdef Win32
/* Reset precision, rounding and exception modes of an ix86 fpu. */
__asm__ ( "fninit" );
# endif
# if SCALAR_STACK_DEBUG
SEXP sv_stack = R_scalar_stack;
# endif
......@@ -848,6 +843,11 @@ static SEXP attribute_noinline evalv_other (SEXP e, SEXP rho, int variant)
int save = R_PPStackTop;
const void *vmax = VMAXGET();
# ifdef Win32
/* Reset precision, rounding & exception modes of an ix86 fpu */
__asm__ ( "fninit" );
# endif
/* Note: If called from evalv, R_Visible will've been set to TRUE */
if (type_etc == SPECIALSXP) {
res = CALL_PRIMFUN (e, op, args, rho, variant);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment