From b11db75cab81067a7b9cc99c9bbd308a1bdcad2e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 11 May 1990 17:46:19 +0000
Subject: [PATCH] Don't save/restore the NFP.

---
 compiler/pack.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 709cf99e5..80187911d 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -451,6 +451,13 @@
   (undefined-value))
 
 
+;;; Emit-Saves  --  Internal
+;;;
+;;;    Scan over the VOPs in Block, emiting saving code for TNs noted in the
+;;; codegen info that are packed into saved SCs.
+;;;
+
+
 ;;; Emit-Saves  --  Internal
 ;;;
 ;;;    Scan over the VOPs in Block, emiting saving code for TNs noted in the
@@ -462,7 +469,8 @@
       ((null vop))
     (when (eq (vop-info-save-p (vop-info vop)) t)
       (do-live-tns (tn (vop-save-set vop) block)
-	(when (sc-save-p (tn-sc tn))
+	(when (and (sc-save-p (tn-sc tn))
+		   (not (eq (tn-kind tn) :component)))
 	  (let ((writes (tn-writes tn))
 		(save (tn-save-tn tn)))
 	    (if (or (and save (eq (tn-kind save) :save-once))
-- 
GitLab