a guest Aug 26th, 2019 68 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand