diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-01-18 22:37:52 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-01-19 21:58:53 +0100 |
| commit | 0ffb3dfaa483b0c5cf1f7f367efcb5e9c041ab53 (patch) | |
| tree | a0bf20d5f19426834a8db5dbb8f5bf2b110e797c /lisp/emacs-lisp/comp-cstr.el | |
| parent | 39b3bcd324c4519ae3b204a31ab1a385b8ba9574 (diff) | |
| download | emacs-0ffb3dfaa483b0c5cf1f7f367efcb5e9c041ab53.tar.gz emacs-0ffb3dfaa483b0c5cf1f7f367efcb5e9c041ab53.tar.bz2 emacs-0ffb3dfaa483b0c5cf1f7f367efcb5e9c041ab53.zip | |
Do not add unnecesary arg constraints (bug#45812 bug#45705 bug#45751).
These have the effect of bloating the IR for no effect killing compile
time. The typical cases for that are extremely long backuoted lists.
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-t): New var.
* lisp/emacs-lisp/comp.el (comp-add-call-cstr): No need to add
arg call constraints if this is t.
Diffstat (limited to 'lisp/emacs-lisp/comp-cstr.el')
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index 651c7b7931e..1afb928e10c 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el @@ -179,6 +179,9 @@ Return them as multiple value." (defvar comp-cstr-one (comp-value-to-cstr 1) "Represent the integer immediate one.") +(defvar comp-cstr-t (comp-type-to-cstr t) + "Represent the superclass t.") + ;;; Value handling. |