Skip to content
Snippets Groups Projects
Commit 6ebd79f3 authored by wlott's avatar wlott
Browse files

Had two args backwards in the call to dump-assemble-routines. So it wasn't

doing a very good job of dumping the assembly routines.
parent 75c8ae36
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.29 1992/05/22 17:09:08 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.30 1992/05/22 18:05:20 wlott Exp $
;;;
;;; This file contains the extra code necessary to feed an entire file of
;;; assembly code to the assembler.
......@@ -59,8 +59,8 @@
(assem:finalize-segment *code-segment*)))))
(dump-assembler-routines *code-segment*
length
*assembler-routines*
*fixups*
*assembler-routines*
*lap-output-file*))
(when (and trace-file (not (target-featurep :new-assembler)))
(with-open-file (file (if (eq trace-file t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment