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