[Emacs-diffs] feature/gnus-select 4a80595 192/218: Fix too-large integer in Hg backend

[Andrew G Cohen]

branch: feature/gnus-select
commit 4a805954e918819d736da2e4918d793a11e98513
Author: Paul Eggert <address@hidden>
Commit: Andrew G Cohen <address@hidden>

    Fix too-large integer in Hg backend
    
    * lisp/vc/vc-hg.el (vc-hg-state-fast):
    Don’t assume that 2**32 - 1 is representable as a fixnum.
---
 lisp/vc/vc-hg.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 9dafaef..14df9d8 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -1016,8 +1016,8 @@ hg binary."
          (not (vc-hg--requirements-understood-p repo))
          ;; Dirstate too small to be valid
          (< (nth 7 dirstate-attr) 40)
-         ;; We want to store 32-bit unsigned values in fixnums
-         (< most-positive-fixnum 4294967295)
+         ;; We want to store 32-bit unsigned values in fixnums.
+         (zerop (lsh -1 32))
          (progn
            (setf repo-relative-filename
                  (file-relative-name truename repo))