[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 10a4509: Fix misleading name ‘double_to_bignum’
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 10a4509: Fix misleading name ‘double_to_bignum’ |
Date: |
Mon, 10 Sep 2018 12:04:30 -0400 (EDT) |
branch: master
commit 10a45096988f6f19e36e2e7865b6eb35c0929b6d
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Fix misleading name ‘double_to_bignum’
* src/bignum.c (double_to_integer): Rename from double_to_bignum,
since the result is not necessarily a bignum. All uses changed.
---
src/bignum.c | 4 ++--
src/editfns.c | 2 +-
src/floatfns.c | 2 +-
src/lisp.h | 2 +-
4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/bignum.c b/src/bignum.c
index 35894f5..f4c24d1 100644
--- a/src/bignum.c
+++ b/src/bignum.c
@@ -64,9 +64,9 @@ bignum_to_double (Lisp_Object n)
return mpz_get_d (XBIGNUM (n)->value);
}
-/* Return D, converted to a bignum. Discard any fraction. */
+/* Return D, converted to a Lisp integer. Discard any fraction. */
Lisp_Object
-double_to_bignum (double d)
+double_to_integer (double d)
{
mpz_set_d (mpz[0], d);
return make_integer_mpz ();
diff --git a/src/editfns.c b/src/editfns.c
index f19c3f1..8c7491b 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4657,7 +4657,7 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool
message)
/* Characters to be inserted after spaces and before
leading zeros. This can occur with bignums, since
- string_to_bignum does only leading '-'. */
+ bignum_to_string does only leading '-'. */
char prefix[sizeof "-0x" - 1];
int prefixlen = 0;
diff --git a/src/floatfns.c b/src/floatfns.c
index dc72363..8e56fed 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -391,7 +391,7 @@ rounding_driver (Lisp_Object arg, Lisp_Object divisor,
if (! FIXNUM_OVERFLOW_P (ir))
return make_fixnum (ir);
}
- return double_to_bignum (dr);
+ return double_to_integer (dr);
}
static EMACS_INT
diff --git a/src/lisp.h b/src/lisp.h
index f2a3ac9..454d728 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3327,7 +3327,7 @@ extern ptrdiff_t bignum_bufsize (Lisp_Object, int);
extern ptrdiff_t bignum_to_c_string (char *, ptrdiff_t, Lisp_Object, int);
extern Lisp_Object bignum_to_string (Lisp_Object, int);
extern Lisp_Object make_bignum_str (char const *, int);
-extern Lisp_Object double_to_bignum (double);
+extern Lisp_Object double_to_integer (double);
/* Converthe integer NUM to *N. Return true if successful, false
(possibly setting *N) otherwise. */
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 10a4509: Fix misleading name ‘double_to_bignum’,
Paul Eggert <=