354 |
|
|
355 |
(defcustom byte-compile-generate-call-tree nil |
(defcustom byte-compile-generate-call-tree nil |
356 |
"*Non-nil means collect call-graph information when compiling. |
"*Non-nil means collect call-graph information when compiling. |
357 |
This records functions were called and from where. |
This records which functions were called and from where. |
358 |
If the value is t, compilation displays the call graph when it finishes. |
If the value is t, compilation displays the call graph when it finishes. |
359 |
If the value is neither t nor nil, compilation asks you whether to display |
If the value is neither t nor nil, compilation asks you whether to display |
360 |
the graph. |
the graph. |
3880 |
(mapconcat 'symbol-name callers ", ") |
(mapconcat 'symbol-name callers ", ") |
3881 |
"<top level>")) |
"<top level>")) |
3882 |
(let ((fill-prefix " ")) |
(let ((fill-prefix " ")) |
3883 |
(fill-region-as-paragraph p (point))))) |
(fill-region-as-paragraph p (point))) |
3884 |
|
(unless (= 0 (current-column)) |
3885 |
|
(insert "\n")))) |
3886 |
(if calls |
(if calls |
3887 |
(progn |
(progn |
3888 |
(insert " calls:\n") |
(insert " calls:\n") |
3889 |
(setq p (point)) |
(setq p (point)) |
3890 |
(insert " " (mapconcat 'symbol-name calls ", ")) |
(insert " " (mapconcat 'symbol-name calls ", ")) |
3891 |
(let ((fill-prefix " ")) |
(let ((fill-prefix " ")) |
3892 |
(fill-region-as-paragraph p (point))))) |
(fill-region-as-paragraph p (point))) |
3893 |
(insert "\n") |
(unless (= 0 (current-column)) |
3894 |
|
(insert "\n")))) |
3895 |
(setq rest (cdr rest))) |
(setq rest (cdr rest))) |
3896 |
|
|
3897 |
(message "Generating call tree...(finding uncalled functions...)") |
(message "Generating call tree...(finding uncalled functions...)") |