From 518834b9bf84caec6d037ea96f30c77c3713c1c4 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 18 Nov 1992 23:33:54 +0000 Subject: [PATCH] Only try to generate a disassembly when making a trace file if the disassembler has been set up for the backend we are using. --- compiler/main.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index cbe25e956..e6cd78407 100644 --- a/compiler/main.lisp +++ b/compiler/main.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/main.lisp,v 1.76 1992/09/23 17:09:48 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.77 1992/11/18 23:33:54 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -290,7 +290,8 @@ (length trace-table fixups) (generate-code component) - (when *compiler-trace-output* + (when (and *compiler-trace-output* + (backend-disassem-params *backend*)) (format *compiler-trace-output* "~|~%Disassembly of code for ~S~2%" component) (disassem:disassemble-assem-segment *code-segment* -- GitLab