mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

Fix too-large integer in Hg backend

Browse Source 
* lisp/vc/vc-hg.el (vc-hg-state-fast):
Don’t assume that 2**32 - 1 is representable as a fixnum.
This commit is contained in:
Paul Eggert 2018-03-23 13:10:14 -07:00
parent 42e7e267e5
commit f92c6dd6cd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/vc/vc-hg.el
View File

@ -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))