Commit f9210e18 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* emacs-lisp/bytecomp.el (byte-compile-constants-vector): Allow more

than 197 variables.
parent 679910f1
2012-03-26 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/bytecomp.el (byte-compile-constants-vector): Allow more
than 197 variables.
2012-03-26 Ami Fischman <ami@fischman.org> 2012-03-26 Ami Fischman <ami@fischman.org>
* vc/vc-git.el (vc-git-state): Avoid unnecessarily locking. * vc/vc-git.el (vc-git-state): Avoid unnecessarily locking.
......
...@@ -2694,7 +2694,8 @@ If FORM is a lambda or a macro, byte-compile it as a function." ...@@ -2694,7 +2694,8 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(limits '(5 ; Use the 1-byte varref codes, (limits '(5 ; Use the 1-byte varref codes,
63 ; 1-constlim ; 1-byte byte-constant codes, 63 ; 1-constlim ; 1-byte byte-constant codes,
255 ; 2-byte varref codes, 255 ; 2-byte varref codes,
65535)) ; 3-byte codes for the rest. 65535 ; 3-byte codes for the rest.
65535)) ; twice since we step when we swap.
limit) limit)
(while (or rest other) (while (or rest other)
(setq limit (car limits)) (setq limit (car limits))
...@@ -2708,8 +2709,8 @@ If FORM is a lambda or a macro, byte-compile it as a function." ...@@ -2708,8 +2709,8 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(setcdr (car rest) (setq i (1+ i))) (setcdr (car rest) (setq i (1+ i)))
(setq ret (cons (car rest) ret)))) (setq ret (cons (car rest) ret))))
(setq rest (cdr rest))) (setq rest (cdr rest)))
(setq limits (cdr limits) (setq limits (cdr limits) ;Step
rest (prog1 other rest (prog1 other ;&Swap.
(setq other rest)))) (setq other rest))))
(apply 'vector (nreverse (mapcar 'car ret))))) (apply 'vector (nreverse (mapcar 'car ret)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment