Lines Matching defs:lap
189 (defun byte-compile-log-lap-1 (format &rest args)
220 (defmacro byte-compile-log-lap (format-string &rest args)
222 (byte-compile-log-lap-1 ,format-string ,@args)))
248 ;; Splice the given lap code into the current instruction stream.
252 (defun byte-inline-lapcode (lap)
253 (setq byte-compile-output (nconc (nreverse lap) byte-compile-output)))
436 ;; will be optimized away in the lap-optimize pass.
1276 (if (not (memq byte-optimize '(t lap)))
1352 lap tmp
1356 (setq lap (cons ptr lap)))
1386 ;; lap = ( [ (pc . (op . arg)) ]* )
1387 (setq lap (cons (cons optr (cons op (or offset 0)))
1388 lap))
1391 (let ((rest lap))
1402 (if (null (car (cdr (car lap))))
1403 (setq lap (cdr lap)))
1405 (setq lap (cons (cons nil endtag) lap)))
1406 ;; remove addrs, lap = ( [ (op . arg) | (TAG tagno) ]* )
1411 (nreverse lap))))
1484 (defun byte-optimize-lapcode (lap &optional for-effect)
1498 (byte-compile-log-lap " ---- next pass"))
1499 (setq rest lap
1522 (byte-compile-log-lap
1524 (setq lap (delq lap0 (delq lap1 lap))))
1526 (byte-compile-log-lap
1528 (setq lap (delq lap0 lap)))
1530 (byte-compile-log-lap
1541 (setq lap (delq lap0 lap))
1573 (byte-compile-log-lap " %s %s %s\t-->\t%s %s %s"
1578 (byte-compile-log-lap " %s %s\t-->\tdup %s" lap1 lap2 lap1)
1595 (byte-compile-log-lap " dup %s discard\t-->\t%s" lap1 lap1)
1598 (setq lap (delq lap0 (delq lap2 lap))))
1608 (byte-compile-log-lap " not %s\t-->\t%s"
1618 (setq lap (delq lap0 lap))
1632 (byte-compile-log-lap " %s %s %s:\t-->\t%s %s:"
1635 (setq lap (delq lap0 lap))
1647 (byte-compile-log-lap " %s %s\t-->\t<deleted>"
1650 lap (delq lap0 (delq lap1 lap))))
1654 (byte-compile-log-lap " %s %s\t-->\t%s"
1656 (setq lap (delq lap0 lap)))
1657 (byte-compile-log-lap " %s %s\t-->\t%s" lap0 lap1
1682 (byte-compile-log-lap " %s%s %s\t-->\t%s%s dup"
1697 (setq tmp3 lap)
1701 (setq lap (delq lap0 lap)
1707 (not (rassq lap0 lap)))
1710 (setq lap (delq lap0 lap)
1720 (opt-p (memq byte-optimize-log '(t lap)))
1733 (apply 'byte-compile-log-lap-1
1739 (byte-compile-log-lap
1751 (byte-compile-log-lap " %s %s\t-->\t%s %s" lap0 lap1 lap1 lap0)
1768 (setq lap (delq lap0 lap)))
1769 (byte-compile-log-lap " %s %s\t-->\t%s %s"
1784 (memq (car (setq tmp (nth 1 (memq (cdr lap0) lap))))
1789 (byte-compile-log-lap " %s [%s]\t-->\t%s"
1801 (memq (car (car (setq tmp (cdr (memq (cdr lap0) lap)))))
1813 (byte-compile-log-lap " %s-else-pop [%s]\t-->\t%s"
1819 (byte-compile-log-lap " %s [%s]\t-->\t%s <skip>"
1830 (memq (car (car (setq tmp (cdr (memq (cdr lap1) lap)))))
1840 (byte-compile-log-lap " %s goto [%s]\t-->\t%s %s"
1848 (byte-compile-log-lap
1855 (setq lap (delq lap0 lap))))
1866 (eq (car (car (setq tmp (cdr (memq (cdr lap2) lap)))))
1870 ;;(byte-compile-log-lap " Pulled %s to end of loop" (car tmp))
1872 (byte-compile-log-lap
1891 (cdr (car (setq tmp (cdr (memq (cdr lap0) lap))))))
1895 ;; (byte-compile-log-lap " %s %s, %s %s --> moved conditional"
1898 (byte-compile-log-lap
1937 (setq rest lap)
1958 (byte-compile-log-lap " %s %s %s\t-->\t%s dup %s"
1977 (byte-compile-log-lap
1984 (byte-compile-log-lap " %s %s\t-->\t%s" lap0 lap1
1988 (setq lap (delq lap0 lap))
1993 lap)