mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-13 09:32:47 +00:00
* lisp/emacs-lisp/comp.el (comp-c-func-name): Fix for M-x disassemble
This commit is contained in:
parent
a04c960a35
commit
32a079aef2
@ -474,14 +474,18 @@ Put PREFIX in front of it."
|
||||
"-" "_" orig-name))
|
||||
(human-readable (replace-regexp-in-string
|
||||
(rx (not (any "0-9a-z_"))) "" human-readable)))
|
||||
;; Prevent C namespace conflicts.
|
||||
(cl-loop
|
||||
with h = (comp-ctxt-funcs-h comp-ctxt)
|
||||
for i from 0
|
||||
for c-sym = (concat prefix crypted "_" human-readable "_"
|
||||
(number-to-string i))
|
||||
unless (gethash c-sym h)
|
||||
return c-sym)))
|
||||
(if comp-ctxt
|
||||
;; Prevent C namespace conflicts.
|
||||
(cl-loop
|
||||
with h = (comp-ctxt-funcs-h comp-ctxt)
|
||||
for i from 0
|
||||
for c-sym = (concat prefix crypted "_" human-readable "_"
|
||||
(number-to-string i))
|
||||
unless (gethash c-sym h)
|
||||
return c-sym)
|
||||
;; When called out of a compilation context (ex disassembling)
|
||||
;; pick the first one.
|
||||
(concat prefix crypted "_" human-readable "_0"))))
|
||||
|
||||
(defun comp-decrypt-arg-list (x function-name)
|
||||
"Decript argument list X for FUNCTION-NAME."
|
||||
|
Loading…
Reference in New Issue
Block a user