From f5bc102c7ea538983d67cf1bb0a54372acc5d672 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 11 May 1990 03:19:17 +0000
Subject: [PATCH] Pack component restricted tns before normal restricted tns.

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

diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 48de5e7fc..709cf99e5 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -978,7 +978,13 @@
       
       (do ((tn (ir2-component-restricted-tns 2comp) (tn-next tn)))
 	  ((null tn))
-	(pack-tn tn t))
+	(when (eq (tn-kind tn) :component)
+	  (pack-tn tn t)))
+
+      (do ((tn (ir2-component-restricted-tns 2comp) (tn-next tn)))
+	  ((null tn))
+	(unless (tn-offset tn)
+	  (pack-tn tn t)))
       
       (do ((tn (ir2-component-normal-tns 2comp) (tn-next tn)))
 	  ((null tn))
-- 
GitLab