mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

improve function name translation

Browse source
This commit is contained in:
Andrea Corallo 2019-07-10 21:29:32 +02:00 • committed by Andrea Corallo
parent c81aba08e3
commit 749f4ce51f
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -108,6 +108,7 @@ To be used when ncall-conv is nil.")
(defun comp-c-func-name (symbol-function)
"Given SYMBOL-FUNCTION return a name suitable for the native code."
;; Unfortunatelly not all symbol names are valid as C function names...
;; Nassi's algorithm.
(let* ((orig-name (symbol-name symbol-function))
(crypted (cl-loop with str = (make-string (* 2 (length orig-name)) 0)
for j from 0 by 2
@ -117,7 +118,9 @@ To be used when ncall-conv is nil.")
do (aset str (1+ j) (aref byte 1))
finally return str))
(human-readable (replace-regexp-in-string
(rx (not (any "a-z"))) "" orig-name)))
"-" "_" orig-name))
(human-readable (replace-regexp-in-string
(rx (not (any "a-z_"))) "" human-readable)))
(concat "F" crypted "_" human-readable)))
(defun comp-decrypt-lambda-list (x)
@ -298,7 +301,7 @@ VAL is known at compile time."
(comp-limple ()))
;; Prologue
(comp-push-block 'entry)
(comp-emit-annotation (concat "Function: "
(comp-emit-annotation (concat "Lisp function: "
(symbol-name (comp-func-symbol-name func))))
(cl-loop for i below (comp-args-mandatory (comp-func-args func))
do (progn