"DEFINITION-SOURCE-CHARACTER-OFFSET"
"DEFINITION-SOURCE-FILE-WRITE-DATE"
"DEFINITION-SOURCE-PLIST"
- "DEFINITION-NOT-FOUND" "DEFINITION-NAME"
"FIND-FUNCTION-CALLEES"
"FIND-FUNCTION-CALLERS"
"MAP-ROOT"
(case type
((:variable)
(when (and (symbolp name)
- (eq (sb-int:info :variable :kind name) :special))
+ (member (sb-int:info :variable :kind name)
+ '(:global :special)))
(translate-source-location (sb-int:info :source-location type name))))
((:constant)
(when (and (symbolp name)
(let ((expander (or (sb-int:info :setf :inverse name)
(sb-int:info :setf :expander name))))
(when expander
- (sb-introspect:find-definition-source (if (symbolp expander)
- (symbol-function expander)
- expander)))))
+ (find-definition-source (if (symbolp expander)
+ (symbol-function expander)
+ expander)))))
((:structure)
(let ((class (get-class name)))
(if class
(list note)))
collect source)))))
((:optimizer)
- (when (symbolp name)
- (let ((fun-info (sb-int:info :function :info name)))
- (when fun-info
- (let ((otypes '((sb-c::fun-info-derive-type . sb-c:derive-type)
- (sb-c::fun-info-ltn-annotate . sb-c:ltn-annotate)
- (sb-c::fun-info-ltn-annotate . sb-c:ltn-annotate)
- (sb-c::fun-info-optimizer . sb-c:optimizer))))
- (loop for (reader . name) in otypes
- for fn = (funcall reader fun-info)
- when fn collect
- (let ((source (find-definition-source fn)))
- (setf (definition-source-description source)
- (list name))
- source)))))))
+ (let ((fun-info (and (symbolp name)
+ (sb-int:info :function :info name))))
+ (when fun-info
+ (let ((otypes '((sb-c:fun-info-derive-type . sb-c:derive-type)
+ (sb-c:fun-info-ltn-annotate . sb-c:ltn-annotate)
+ (sb-c:fun-info-optimizer . sb-c:optimizer)
+ (sb-c:fun-info-ir2-convert . sb-c:ir2-convert)
+ (sb-c::fun-info-stack-allocate-result
+ . sb-c::stack-allocate-result))))
+ (loop for (reader . name) in otypes
+ for fn = (funcall reader fun-info)
+ when fn collect
+ (let ((source (find-definition-source fn)))
+ (setf (definition-source-description source)
+ (list name))
+ source))))))
((:vop)
(when (symbolp name)
(find-vop-source name)))
(when (symbolp name)
(let ((transform-fun (sb-int:info :function :source-transform name)))
(when transform-fun
- (sb-introspect:find-definition-source transform-fun)))))
+ (find-definition-source transform-fun)))))
(t
nil)))))
(lambda (obj header size)
(when (= sb-vm:code-header-widetag header)
(funcall fn obj size)))
- space
- t)))
+ space)))
(declaim (inline map-caller-code-components))
(defun map-caller-code-components (function spaces fn)
For :HEAP objects the secondary value is a plist:
:SPACE
- Inficates the heap segment the object is allocated in.
+ Indicates the heap segment the object is allocated in.
:GENERATION
Is the current generation of the object: 0 for nursery, 6 for pseudo-static