Advertisement
Guest User

Untitled

a guest
Aug 26th, 2019
146
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.91 KB | None | 0 0
  1. (loop named inlined-at
  2. for index = (let ((idx (code-metadata code)))
  3. (unless idx (return-from inlined-at nil))
  4. idx)
  5. then (let ((idx (gethash index (module-inlined-at module))))
  6. (unless idx (return-from inlined-at nil))
  7. idx)
  8. for dilocation = (let ((loc (gethash index (module-metadata module))))
  9. (unless loc (error "Could not find index ~a in module-metadata~%" index))
  10. loc)
  11. for function-scope = (gethash (location-scope dilocation)
  12. (module-metadata module))
  13. unless index
  14. do (return-from inlined-at nil)
  15. when (location-inlined-at dilocation)
  16. do (incf (gethash (subprogram-function-name function-scope)
  17. function-count 0))
  18. do (incf (gethash index analysis 0)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement