From 0354e83a871bf27971bb8343b4ee7cc3faabff04 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 17 Mar 1991 14:01:24 +0000
Subject: [PATCH] Added call to EXPAND-PSEUDO-INSTRUCTIONS now that this has
 been spilt off to allow assembly optimizations.

---
 assembly/assemfile.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 0af8934db..9696d5dde 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.24 1990/11/16 04:42:15 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.25 1991/03/17 14:01:24 ram Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -47,6 +47,7 @@
 				    *lap-output-file*)
 	  (assemble (*code-segment* nil)
 	    (insert-segment *elsewhere*))
+	  (expand-pseudo-instructions *code-segment*)
 	  (let ((length (finalize-segment *code-segment*)))
 	    (dump-assembler-routines *code-segment*
 				     length
-- 
GitLab