From 66df86a3b2e629cb868d17a2cab643ee09fca8be Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Mon, 4 Jun 2001 18:41:31 +0000 Subject: [PATCH] Initialize sparc::*note-sethi-inst* and sparc::*pseudo-atomic-set* before doing disassembly. --- compiler/disassem.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 50de7d921..c0d4846f6 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.29 2001/05/08 12:32:32 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.30 2001/06/04 18:41:31 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3180,6 +3180,11 @@ (seg-length last)) (seg-virtual-location first))) (setf (dstate-output-state dstate) :beginning) + #+sparc + (progn + ;; Initialize these to a sane value, just in case. + (setf sparc::*note-sethi-inst* nil) + (setf sparc::*pseudo-atomic-set* nil)) (dolist (seg segments) (disassemble-segment seg stream dstate))))) -- GitLab