From 4a805954e918819d736da2e4918d793a11e98513 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 23 Mar 2018 13:10:14 -0700 Subject: [PATCH] Fix too-large integer in Hg backend MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 9dafaef7aaf..14df9d8b673 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)) -- 2.39.2