|
|
|
|
@@ -317,7 +317,7 @@ Useful to hook into pass checkers.")
|
|
|
|
|
(buffer-file-name (function (&optional buffer) (or string null)))
|
|
|
|
|
(buffer-list (function (&optional frame) list))
|
|
|
|
|
(buffer-local-variables (function (&optional buffer) list))
|
|
|
|
|
(buffer-modified-p (function (&optional buffer) boolean))
|
|
|
|
|
(buffer-modified-p (function (&optional buffer) (or boolean (member autosaved))))
|
|
|
|
|
(buffer-size (function (&optional buffer) integer))
|
|
|
|
|
(buffer-string (function () string))
|
|
|
|
|
(buffer-substring (function ((or integer marker) (or integer marker)) string))
|
|
|
|
|
@@ -344,7 +344,7 @@ Useful to hook into pass checkers.")
|
|
|
|
|
(concat (function (&rest sequence) string))
|
|
|
|
|
(cons (function (t t) cons))
|
|
|
|
|
(consp (function (t) boolean))
|
|
|
|
|
(coordinates-in-window-p (function (cons window) boolean))
|
|
|
|
|
(coordinates-in-window-p (function (cons window) (or cons null (member bottom-divider right-divider mode-line header-line tab-line left-fringe right-fringe vertical-line left-margin right-margin))))
|
|
|
|
|
(copy-alist (function (list) list))
|
|
|
|
|
(copy-marker (function (&optional (or integer marker) boolean) marker))
|
|
|
|
|
(copy-sequence (function (sequence) sequence))
|
|
|
|
|
@@ -363,7 +363,7 @@ Useful to hook into pass checkers.")
|
|
|
|
|
(current-time-zone (function (&optional (or number list)
|
|
|
|
|
(or symbol string cons integer))
|
|
|
|
|
cons))
|
|
|
|
|
(custom-variable-p (function (symbol) boolean))
|
|
|
|
|
(custom-variable-p (function (symbol) t))
|
|
|
|
|
(decode-char (function (cons t) (or fixnum null)))
|
|
|
|
|
(decode-time (function (&optional (or number list)
|
|
|
|
|
(or symbol string cons integer)
|
|
|
|
|
@@ -385,18 +385,18 @@ Useful to hook into pass checkers.")
|
|
|
|
|
(error-message-string (function (list) string))
|
|
|
|
|
(eventp (function (t) boolean))
|
|
|
|
|
(exp (function (number) float))
|
|
|
|
|
(expt (function (number number) float))
|
|
|
|
|
(expt (function (number number) number))
|
|
|
|
|
(fboundp (function (symbol) boolean))
|
|
|
|
|
(fceiling (function (float) float))
|
|
|
|
|
(featurep (function (symbol &optional symbol) boolean))
|
|
|
|
|
(ffloor (function (float) float))
|
|
|
|
|
(file-directory-p (function (string) boolean))
|
|
|
|
|
(file-exists-p (function (string) boolean))
|
|
|
|
|
(file-locked-p (function (string) boolean))
|
|
|
|
|
(file-locked-p (function (string) (or boolean string)))
|
|
|
|
|
(file-name-absolute-p (function (string) boolean))
|
|
|
|
|
(file-newer-than-file-p (function (string string) boolean))
|
|
|
|
|
(file-readable-p (function (string) boolean))
|
|
|
|
|
(file-symlink-p (function (string) boolean))
|
|
|
|
|
(file-symlink-p (function (string) (or boolean string)))
|
|
|
|
|
(file-writable-p (function (string) boolean))
|
|
|
|
|
(fixnump (function (t) boolean))
|
|
|
|
|
(float (function (number) float))
|
|
|
|
|
@@ -411,8 +411,8 @@ Useful to hook into pass checkers.")
|
|
|
|
|
(frame-first-window (function ((or frame window)) window))
|
|
|
|
|
(frame-root-window (function (&optional (or frame window)) window))
|
|
|
|
|
(frame-selected-window (function (&optional (or frame window)) window))
|
|
|
|
|
(frame-visible-p (function (frame) boolean))
|
|
|
|
|
(framep (function (t) boolean))
|
|
|
|
|
(frame-visible-p (function (frame) (or boolean (member icon))))
|
|
|
|
|
(framep (function (t) (or boolean (member x w32 ns pc pgtk haiku))))
|
|
|
|
|
(fround (function (float) float))
|
|
|
|
|
(ftruncate (function (float) float))
|
|
|
|
|
(get (function (symbol symbol) t))
|
|
|
|
|
@@ -506,7 +506,7 @@ Useful to hook into pass checkers.")
|
|
|
|
|
(previous-window (function (&optional window t t) window))
|
|
|
|
|
(prin1-to-string (function (t &optional t t) string))
|
|
|
|
|
(processp (function (t) boolean))
|
|
|
|
|
(proper-list-p (function (t) boolean))
|
|
|
|
|
(proper-list-p (function (t) (or fixnum null)))
|
|
|
|
|
(propertize (function (string &rest t) string))
|
|
|
|
|
(radians-to-degrees (function (number) float))
|
|
|
|
|
(rassoc (function (t list) list))
|
|
|
|
|
@@ -1723,17 +1723,11 @@ Return value is the fall-through block name."
|
|
|
|
|
;; (byte-constant #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (created 126 deleted 126 changed 126)) . 24)
|
|
|
|
|
;; (byte-switch)
|
|
|
|
|
;; (TAG 126 . 10)
|
|
|
|
|
(cl-loop
|
|
|
|
|
with labels = (cl-loop for target-label being each hash-value of jmp-table
|
|
|
|
|
collect target-label)
|
|
|
|
|
with x = (car labels)
|
|
|
|
|
for l in (cdr-safe labels)
|
|
|
|
|
unless (= l x)
|
|
|
|
|
return nil
|
|
|
|
|
finally return (pcase (nth (1+ (comp-limplify-pc comp-pass))
|
|
|
|
|
(comp-func-lap comp-func))
|
|
|
|
|
(`(TAG ,label . ,_label-sp)
|
|
|
|
|
(= label l)))))
|
|
|
|
|
(let ((targets (hash-table-values jmp-table)))
|
|
|
|
|
(when (apply #'= targets)
|
|
|
|
|
(pcase (nth (1+ (comp-limplify-pc comp-pass)) (comp-func-lap comp-func))
|
|
|
|
|
(`(TAG ,target . ,_label-sp)
|
|
|
|
|
(= target (car targets)))))))
|
|
|
|
|
|
|
|
|
|
(defun comp-emit-switch (var last-insn)
|
|
|
|
|
"Emit a Limple for a lap jump table given VAR and LAST-INSN."
|
|
|
|
|
|
Po Lu