projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(vars_of_mule_charset): Update `utf-2000-version' to
[chise/xemacs-chise.git-]
/
src
/
floatfns.c
diff --git
a/src/floatfns.c
b/src/floatfns.c
index
5dd8496
..
21c819d
100644
(file)
--- a/
src/floatfns.c
+++ b/
src/floatfns.c
@@
-705,19
+705,19
@@
This is the same as the exponent of a float.
double f = extract_float (arg);
if (f == 0.0)
double f = extract_float (arg);
if (f == 0.0)
- return make_int (- (int)((((EMACS_UINT) 1) << (VALBITS - 1)))); /* most-negative-fixnum */
+ return make_int (- (EMACS_INT)(((EMACS_UINT) 1) << (VALBITS - 1))); /* most-negative-fixnum */
#ifdef HAVE_LOGB
{
Lisp_Object val;
#ifdef HAVE_LOGB
{
Lisp_Object val;
- IN_FLOAT (val = make_int ((int) logb (f)), "logb", arg);
- return (val);
+ IN_FLOAT (val = make_int ((EMACS_INT) logb (f)), "logb", arg);
+ return val;
}
#else
#ifdef HAVE_FREXP
{
int exqp;
IN_FLOAT (frexp (f, &exqp), "logb", arg);
}
#else
#ifdef HAVE_FREXP
{
int exqp;
IN_FLOAT (frexp (f, &exqp), "logb", arg);
- return (make_int (exqp - 1));
+ return make_int (exqp - 1);
}
#else
{
}
#else
{
@@
-741,7
+741,7
@@
This is the same as the exponent of a float.
f /= d;
val += i;
}
f /= d;
val += i;
}
- return (make_int (val));
+ return make_int (val);
}
#endif /* ! HAVE_FREXP */
#endif /* ! HAVE_LOGB */
}
#endif /* ! HAVE_FREXP */
#endif /* ! HAVE_LOGB */