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