Build a call graph corresponding to a translation unit.
(call-graph-transunit transunit) → call-graph
Function:
(defun call-graph-transunit (transunit) (declare (xargs :guard (transunitp transunit))) (let ((__function__ 'call-graph-transunit)) (declare (ignorable __function__)) (b* (((transunit transunit) transunit)) (call-graph-extdecl-list transunit.decls nil))))
Theorem:
(defthm ident-ident-option-set-mapp-of-call-graph-transunit (b* ((call-graph (call-graph-transunit transunit))) (ident-ident-option-set-mapp call-graph)) :rule-classes :rewrite)