diff options
| author | Andrea Corallo | 2021-02-27 21:26:41 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2021-02-28 23:29:49 +0100 |
| commit | 2acc46b55bdf518ece6301913ffa074f31563fa4 (patch) | |
| tree | 996a9b209c9fac76fe22a8b48d693af23934b88b /src | |
| parent | 312deba5302a8136fa104b054af54572cc64ea5e (diff) | |
| download | emacs-2acc46b55bdf518ece6301913ffa074f31563fa4.tar.gz emacs-2acc46b55bdf518ece6301913ffa074f31563fa4.zip | |
Migrate and rename a bunch of functions from comp.el to comp-cstr.el
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-imm-vld-p)
(comp-cstr-imm, comp-cstr-fixnum-p, comp-cstr-symbol-p)
(comp-cstr-cons-p): Move and rename from 'comp.el'.
* lisp/emacs-lisp/comp.el (comp-mvar-type-hint-match-p)
(make-comp-mvar, comp-emit-assume, comp-fwprop-prologue)
(comp-function-foldable-p, comp-function-call-maybe-fold)
(comp-fwprop-call, comp-fwprop-insn, comp-call-optim-func)
(comp-compute-function-type): Update for renamed functions.
* src/comp.c (emit_mvar_rval): Likewise.
* test/src/comp-tests.el (comp-tests-mentioned-p-1)
(comp-tests-cond-rw-checker-val): Likewise.
Diffstat (limited to 'src')
| -rw-r--r-- | src/comp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/comp.c b/src/comp.c index 1a89e4e62a4..21d1c1a23cf 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -1747,11 +1747,11 @@ emit_PURE_P (gcc_jit_rvalue *ptr) | |||
| 1747 | static gcc_jit_rvalue * | 1747 | static gcc_jit_rvalue * |
| 1748 | emit_mvar_rval (Lisp_Object mvar) | 1748 | emit_mvar_rval (Lisp_Object mvar) |
| 1749 | { | 1749 | { |
| 1750 | Lisp_Object const_vld = CALL1I (comp-mvar-value-vld-p, mvar); | 1750 | Lisp_Object const_vld = CALL1I (comp-cstr-imm-vld-p, mvar); |
| 1751 | 1751 | ||
| 1752 | if (!NILP (const_vld)) | 1752 | if (!NILP (const_vld)) |
| 1753 | { | 1753 | { |
| 1754 | Lisp_Object value = CALL1I (comp-mvar-value, mvar); | 1754 | Lisp_Object value = CALL1I (comp-cstr-imm, mvar); |
| 1755 | if (comp.debug > 1) | 1755 | if (comp.debug > 1) |
| 1756 | { | 1756 | { |
| 1757 | Lisp_Object func = | 1757 | Lisp_Object func = |