diff options
| author | Paul Eggert | 2018-03-23 13:10:14 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-03-23 13:10:48 -0700 |
| commit | f92c6dd6cd09991c2ab4c0612574064ca061d927 (patch) | |
| tree | 3c8dfdf55d303ac3059666ec92dafed1008022af | |
| parent | 42e7e267e5487f60f4d72e1b5c5cba001ba4d704 (diff) | |
| download | emacs-f92c6dd6cd09991c2ab4c0612574064ca061d927.tar.gz emacs-f92c6dd6cd09991c2ab4c0612574064ca061d927.zip | |
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.
| -rw-r--r-- | lisp/vc/vc-hg.el | 4 |
1 files 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." | |||
| 1016 | (not (vc-hg--requirements-understood-p repo)) | 1016 | (not (vc-hg--requirements-understood-p repo)) |
| 1017 | ;; Dirstate too small to be valid | 1017 | ;; Dirstate too small to be valid |
| 1018 | (< (nth 7 dirstate-attr) 40) | 1018 | (< (nth 7 dirstate-attr) 40) |
| 1019 | ;; We want to store 32-bit unsigned values in fixnums | 1019 | ;; We want to store 32-bit unsigned values in fixnums. |
| 1020 | (< most-positive-fixnum 4294967295) | 1020 | (zerop (lsh -1 32)) |
| 1021 | (progn | 1021 | (progn |
| 1022 | (setf repo-relative-filename | 1022 | (setf repo-relative-filename |
| 1023 | (file-relative-name truename repo)) | 1023 | (file-relative-name truename repo)) |