Guest User

Untitled

a guest
Aug 26th, 2019
70
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 (if (gethash (subprogram-function-name function-scope)
  17. function-count)
  18. (incf (gethash (subprogram-function-name function-scope)
  19. function-count))
  20. (setf (gethash (subprogram-function-name function-scope)
  21. function-count) 1))
  22. if (gethash index analysis)
  23. do (incf (gethash index analysis))
  24. else (setf (gethash index analysis) 1))
RAW Paste Data