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

(profile-convert-byte-code): New function.

Browse source 
(profile-a-function): Use profile-convert-byte-code.
This commit is contained in:
Richard M. Stallman 1996-03-08 17:44:00 +00:00
parent 7f37116457
commit 6193939604
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/profile.el
View file

@ -218,9 +218,27 @@ With argument FLIST, use the list FLIST instead."
(setcdr accum (- (cdr accum) profile-million)))
)))
(defun profile-convert-byte-code (function)
(let ((defn (symbol-function function)))
(if (byte-code-function-p defn)
;; It is a compiled code object.
(let* ((contents (append defn nil))
(body
(list (list 'byte-code (nth 1 contents)
(nth 2 contents) (nth 3 contents)))))
(if (nthcdr 5 contents)
(setq body (cons (list 'interactive (nth 5 contents)) body)))
(if (nth 4 contents)
;; Use `documentation' here, to get the actual string,
;; in case the compiled function has a reference
;; to the .elc file.
(setq body (cons (documentation function) body)))
(fset function (cons 'lambda (cons (car contents) body)))))))
(defun profile-a-function (fun)
"Profile the function FUN."
(interactive "aFunction to profile: ")
(profile-convert-byte-code fun)
(let ((def (symbol-function fun)) (funlen (length (symbol-name fun))))
(if (eq (car def) 'lambda) nil
(error "To profile: %s must be a user-defined function" fun))