procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use `length=' and family where possible in native comp code

Browse source 
* lisp/emacs-lisp/comp-cstr.el (comp-intersect-typesets)
	(comp-cstr-imm): Use Use `length=' and family where possible.
	* lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-target-block)
	(comp-compute-dominator-frontiers)
	(batch-byte-native-compile-for-bootstrap): Likewise.
This commit is contained in:
Andrea Corallo 2021-03-07 21:26:55 +01:00
parent dcf2be6971
commit 9809f7ed2c
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp.el
View file

@ -2364,7 +2364,7 @@ TARGET-BB-SYM is the symbol name of the target block."
(comp-func-blocks comp-func)))
(target-bb-in-edges (comp-block-in-edges target-bb)))
(cl-assert target-bb-in-edges)
(if (= (length target-bb-in-edges) 1)
(if (length= target-bb-in-edges 1)
;; If block has only one predecessor is already suitable for
;; adding constraint assumptions.
target-bb
@ -2780,7 +2780,7 @@ blocks."
for b-name being each hash-keys of blocks
using (hash-value b)
for preds = (comp-block-preds b)
when (>= (length preds) 2) ; All joins
when (length> preds 1) ; All joins
do (cl-loop for p in preds
for runner = p
do (while (not (eq runner (comp-block-idom b)))
@ -4104,7 +4104,7 @@ environment variable 'NATIVE_DISABLED' is set, only byte compile."
(comp-ensure-native-compiler)
(if (equal (getenv "NATIVE_DISABLED") "1")
(batch-byte-compile)
(cl-assert (= 1 (length command-line-args-left)))
(cl-assert (length= command-line-args-left 1))
(let ((byte-native-for-bootstrap t)
(byte-to-native-output-file nil))
(batch-native-compile)