Commit f8131ed2 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

[!FLOAT_CHECK_ERRNO] (IN_FLOAT): New definition.

(Flog): Fix argument of `log'.
parent 9f717104
......@@ -154,6 +154,7 @@ static char *float_error_fn_name;
} \
} while (0)
#else
#define IN_FLOAT(d, name, num) (in_float = 1, (d), in_float = 0)
#define IN_FLOAT2(d, name, num, num2) (in_float = 1, (d), in_float = 0)
#endif
......@@ -471,7 +472,7 @@ If second optional argument BASE is given, return log ARG using that base.")
if (b == 10.0)
IN_FLOAT2 (d = log10 (d), "log", arg, base);
else
IN_FLOAT2 (d = log (arg) / log (b), "log", arg, base);
IN_FLOAT2 (d = log (d) / log (b), "log", arg, base);
}
return make_float (d);
}
......
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