683 |
;; discard (following one byte & 0x7F) stack entries _underneath_ the top of stack |
;; discard (following one byte & 0x7F) stack entries _underneath_ the top of stack |
684 |
;; (that is, if the operand = 0x83, ... X Y Z T => ... T) |
;; (that is, if the operand = 0x83, ... X Y Z T => ... T) |
685 |
(byte-defop 182 nil byte-discardN) |
(byte-defop 182 nil byte-discardN) |
686 |
|
;; `byte-discardN-preserve-tos' is a pseudo-op that gets turned into |
687 |
|
;; `byte-discardN' with the high bit in the operand set (by |
688 |
|
;; `byte-compile-lapcode'). |
689 |
|
(defconst byte-discardN-preserve-tos byte-discardN) |
690 |
|
|
691 |
;; unused: 182-191 |
;; unused: 182-191 |
692 |
|
|
2403 |
;; This is true if we should be making a closure instead of |
;; This is true if we should be making a closure instead of |
2404 |
;; a simple lambda (because some variables from the |
;; a simple lambda (because some variables from the |
2405 |
;; containing lexical environment are closed over). |
;; containing lexical environment are closed over). |
2406 |
(byte-compile-closure-lexenv-p byte-compile-lexical-environment)) |
(byte-compile-closure-initial-lexenv-p |
2407 |
|
byte-compile-lexical-environment)) |
2408 |
(byte-compile-current-heap-environment nil) |
(byte-compile-current-heap-environment nil) |
2409 |
(byte-compile-current-num-closures 0) |
(byte-compile-current-num-closures 0) |
2410 |
(compiled |
(compiled |
3425 |
(vinfo (assq var (byte-compile-lforminfo-vars lforminfo))) |
(vinfo (assq var (byte-compile-lforminfo-vars lforminfo))) |
3426 |
(unused (and vinfo (zerop (cadr vinfo))))) |
(unused (and vinfo (zerop (cadr vinfo))))) |
3427 |
(unless (and unused (symbolp clause)) |
(unless (and unused (symbolp clause)) |
3428 |
(when lforminfo |
(when (and lforminfo (not unused)) |
3429 |
;; We record the stack position even of dynamic bindings and |
;; We record the stack position even of dynamic bindings and |
3430 |
;; variables in non-stack lexical environments; we'll put |
;; variables in non-stack lexical environments; we'll put |
3431 |
;; them in the proper place below. |
;; them in the proper place below. |