From 51251be9651e620ec3c678e5fdc99c529552f0ba Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 8 Dec 1991 07:10:33 +0000 Subject: [PATCH] Removed import of XP:*PRINT-LINES*, because we no longer use XP. Changed DI:DO-BLOCKS to DI:DO-DEBUG-FUNCTION-BLOCKS. --- compiler/disassem.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 534b10582..0792b16bd 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.4 1991/12/08 03:30:26 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.5 1991/12/08 07:10:33 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -83,8 +83,6 @@ prin1-quoted-short )) -(import 'xp:*print-lines*) - ;;; This file implements a retargetable disassembler, that uses simple hooks ;;; in the compiler-backend's instruction definitions to learn about a ;;; machine's instruction set. @@ -2818,7 +2816,7 @@ symbol object that we know about.") (defun source-available-p (debug-function) (handler-case - (di:do-blocks (block debug-function) + (di:do-debug-function-blocks (block debug-function) (declare (ignore block)) (return t)) (di:no-debug-blocks () nil))) @@ -2844,7 +2842,7 @@ symbol object that we know about.") (push (cons (dstate-code-insts-offs-address dstate pc) fun) hooks))) (handler-case - (di:do-blocks (block debug-function) + (di:do-debug-function-blocks (block debug-function) (let ((first-location-in-block-p t)) (di:do-debug-block-locations (loc block) (let ((pc (di::compiled-code-location-pc loc))) -- GitLab