X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=071a476058eb2e0be6c081e288622f9fd6d4649b;hb=47bcbbb709e9e35e38e34ef2ea658f5a8eb0804d;hp=7d2ba9edd2decd09783ce53ad7328873afa2b508;hpb=b4282a9e700b7793a1efd97dfb37fc2fc39d24ad;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 7d2ba9e..071a476 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -986,10 +986,10 @@
 
 ;;;; frame utilities
 
-;;; This returns a COMPILED-DEBUG-FUN for code and pc. We fetch the
+;;; This returns a COMPILED-DEBUG-FUN for COMPONENT and PC. We fetch the
 ;;; SB!C::DEBUG-INFO and run down its FUN-MAP to get a
-;;; SB!C::COMPILED-DEBUG-FUN from the pc. The result only needs to
-;;; reference the component, for function constants, and the
+;;; SB!C::COMPILED-DEBUG-FUN from the PC. The result only needs to
+;;; reference the COMPONENT, for function constants, and the
 ;;; SB!C::COMPILED-DEBUG-FUN.
 (defun debug-fun-from-pc (component pc)
   (let ((info (%code-debug-info component)))
@@ -999,7 +999,7 @@
      ((eq info :bogus-lra)
       (make-bogus-debug-fun "function end breakpoint"))
      (t
-      (let* ((fun-map (get-debug-info-fun-map info))
+      (let* ((fun-map (sb!c::compiled-debug-info-fun-map info))
 	     (len (length fun-map)))
 	(declare (type simple-vector fun-map))
 	(if (= len 1)
@@ -1188,7 +1188,7 @@
 		     (and (sb!c::compiled-debug-fun-p x)
 			  (eq (sb!c::compiled-debug-fun-name x) name)
 			  (eq (sb!c::compiled-debug-fun-kind x) nil)))
-		   (get-debug-info-fun-map
+		   (sb!c::compiled-debug-info-fun-map
 		    (%code-debug-info component)))))
 	(if res
 	    (make-compiled-debug-fun res component)
@@ -1628,18 +1628,6 @@
 							 save-sc-offset)
 				buffer)))))))
 
-;;;; unpacking minimal debug functions
-
-;;; Return a FUN-MAP for a given COMPILED-DEBUG-INFO object.
-(defun get-debug-info-fun-map (info)
-  (declare (type sb!c::compiled-debug-info info))
-  (let ((map (sb!c::compiled-debug-info-fun-map info)))
-    ;; The old CMU CL had various hairy possibilities here, but in
-    ;; SBCL we only use this one, right? 
-    (aver (simple-vector-p map))
-    ;; So it's easy..
-    map))
-
 ;;;; CODE-LOCATIONs
 
 ;;; If we're sure of whether code-location is known, return T or NIL.