Plaster
New
List
Login
common-lisp
default
anonymous
2019.08.27 00:02:49
(loop for index = (or (code-metadata code) (loop-finish)) for dilocation = (or (gethash index (module-metadata module)) (error "Could not find index ~a in module-metadata~%" index)) for function-scope = (gethash (location-scope dilocation) (module-metadata module)) when (location-inlined-at dilocation) do (incf (gethash (subprogram-function-name function-scope) function-count 0)) do (incf (gethash index analysis 0)))
Raw
Annotate
Repaste
Edit