1 files changed, 1 insertions, 1 deletions
diff --git a/src/floatfns.c b/src/floatfns.c
index de3e811acfc..2471731c6d8 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -673,7 +673,7 @@ This is the same as the exponent of a float.")
     Lisp_Object arg;
 {
  Lisp_Object val;
-  int value;
+  EMACS_INT value;
  double f = extract_float (arg);
  if (f == 0.0)

diff --git a/src/floatfns.c b/src/floatfns.c index de3e811acfc..2471731c6d8 100644 --- a/src/floatfns.c +++ b/src/floatfns.c
@@ -673,7 +673,7 @@ This is the same as the exponent of a float.")
673	Lisp_Object arg;	673	Lisp_Object arg;
674	{	674	{
675	Lisp_Object val;	675	Lisp_Object val;
676	int value;	676	EMACS_INT value;
677	double f = extract_float (arg);	677	double f = extract_float (arg);
678		678
679	if (f == 0.0)	679	if (f == 0.0)