/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.98.2.4 by miles, Sun Aug 18 15:59:05 2002 UTC revision 2.98.2.5 by miles, Sun Aug 25 21:45:28 2002 UTC
# Line 683  otherwise pop it") Line 683  otherwise pop it")
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    
# Line 2399  If FORM is a lambda or a macro, byte-com Line 2403  If FORM is a lambda or a macro, byte-com
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
# Line 3420  if LFORMINFO is nil (meaning all binding Line 3425  if LFORMINFO is nil (meaning all binding
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.

Legend:
Removed from v.2.98.2.4  
changed lines
  Added in v.2.98.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26