From 7d67e4a64774ecc8826bec24622b70a6803d198e Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 13 Jul 1990 11:59:13 +0000 Subject: [PATCH] Changed (vop-info-name (ir2-block-last-vop 2block)) to (vop-info-name (vop-info (ir2-block-last-vop 2block))). --- compiler/pack.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/pack.lisp b/compiler/pack.lisp index 53aeec425..da0e849e4 100644 --- a/compiler/pack.lisp +++ b/compiler/pack.lisp @@ -826,7 +826,8 @@ (let ((next-lab (block-label (ir2-block-block (ir2-block-next 2block))))) (add-to-emit-order new-2block 2block) - (unless (eq (vop-info-name (ir2-block-last-vop 2block)) 'branch) + (unless (eq (vop-info-name (vop-info (ir2-block-last-vop 2block))) + 'branch) (vop branch node 2block next-lab))) (undefined-value))) -- GitLab