procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add a bunch of ops

Browse source
This commit is contained in:
Andrea Corallo 2019-07-20 16:34:37 +02:00 • committed by Andrea Corallo
parent a556a2ef5b
commit f78257006c
1 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lisp/emacs-lisp/comp.el
View file

@ -284,7 +284,7 @@ If C-FUN-NAME is nil it will be guessed from SUBR-NAME."
"Set current slot with slot number N as source." "Set current slot with slot number N as source."
(let ((src-slot (comp-slot-n n))) (let ((src-slot (comp-slot-n n)))
(cl-assert src-slot) (cl-assert src-slot)
;; Should the id increased here? ;; FIXME id should encrease here.
(setf (comp-slot) (setf (comp-slot)
(copy-sequence src-slot)) (copy-sequence src-slot))
(setf (comp-mvar-slot (comp-slot)) (comp-sp)) (setf (comp-mvar-slot (comp-slot)) (comp-sp))
@ -482,7 +482,7 @@ the annotation emission."
(byte-set auto) (byte-set auto)
(byte-fset auto) (byte-fset auto)
(byte-get auto) (byte-get auto)
(byte-substring) (byte-substring auto)
(byte-concat2 (byte-concat2
(comp-emit-set-call `(callref Fconcat 2 ,(comp-sp)))) (comp-emit-set-call `(callref Fconcat 2 ,(comp-sp))))
(byte-concat3 (byte-concat3
@ -503,19 +503,19 @@ the annotation emission."
(byte-negate) (byte-negate)
(byte-plus (byte-plus
(comp-emit-set-call `(callref Fplus 2 ,(comp-sp)))) (comp-emit-set-call `(callref Fplus 2 ,(comp-sp))))
(byte-max) (byte-max auto)
(byte-min) (byte-min auto)
(byte-mult) (byte-mult)
(byte-point auto) (byte-point auto)
(byte-goto-char auto) (byte-goto-char auto)
(byte-insert) (byte-insert auto)
(byte-point-max auto) (byte-point-max auto)
(byte-point-min auto) (byte-point-min auto)
(byte-char-after) (byte-char-after auto)
(byte-following-char auto) (byte-following-char auto)
(byte-preceding-char auto) (byte-preceding-char auto)
(byte-current-column auto) (byte-current-column auto)
(byte-indent-to) (byte-indent-to auto)
(byte-scan-buffer-OBSOLETE) (byte-scan-buffer-OBSOLETE)
(byte-eolp auto) (byte-eolp auto)
(byte-eobp auto) (byte-eobp auto)
@ -526,17 +526,17 @@ the annotation emission."
(byte-save-current-buffer) (byte-save-current-buffer)
(byte-set-mark-OBSOLETE) (byte-set-mark-OBSOLETE)
(byte-interactive-p-OBSOLETE) (byte-interactive-p-OBSOLETE)
(byte-forward-char) (byte-forward-char auto)
(byte-forward-word) (byte-forward-word auto)
(byte-skip-chars-forward) (byte-skip-chars-forward auto)
(byte-skip-chars-backward) (byte-skip-chars-backward auto)
(byte-forward-line) (byte-forward-line auto)
(byte-char-syntax auto) (byte-char-syntax auto)
(byte-buffer-substring auto) (byte-buffer-substring auto)
(byte-delete-region auto) (byte-delete-region auto)
(byte-narrow-to-region) (byte-narrow-to-region)
(byte-widen) (byte-widen)
(byte-end-of-line) (byte-end-of-line auto)
(byte-constant2) (byte-constant2)
(byte-goto (byte-goto
(let ((bb (comp-new-block-sym)) (let ((bb (comp-new-block-sym))
@ -571,14 +571,14 @@ the annotation emission."
(byte-temp-output-buffer-setup-OBSOLETE) (byte-temp-output-buffer-setup-OBSOLETE)
(byte-temp-output-buffer-show-OBSOLETE) (byte-temp-output-buffer-show-OBSOLETE)
(byte-unbind-all) (byte-unbind-all)
(byte-set-marker) (byte-set-marker auto)
(byte-match-beginning) (byte-match-beginning auto)
(byte-match-end) (byte-match-end auto)
(byte-upcase) (byte-upcase auto)
(byte-downcase) (byte-downcase auto)
(byte-string=) (byte-string=)
(byte-string<) (byte-string<)
(byte-equal) (byte-equal auto)
(byte-nthcdr auto) (byte-nthcdr auto)
(byte-elt auto) (byte-elt auto)
(byte-member auto) (byte-member auto)
@ -590,7 +590,7 @@ the annotation emission."
(comp-emit-set-call `(call Fcar_safe ,(comp-slot)))) (comp-emit-set-call `(call Fcar_safe ,(comp-slot))))
(byte-cdr-safe (byte-cdr-safe
(comp-emit-set-call `(call Fcdr_safe ,(comp-slot)))) (comp-emit-set-call `(call Fcdr_safe ,(comp-slot))))
(byte-nconc) (byte-nconc auto)
(byte-quo) (byte-quo)
(byte-rem) (byte-rem)
(byte-numberp auto) (byte-numberp auto)