From 31f68584d0732dc0d17f379773e5f87f1e5a78ad Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Tue, 12 Nov 2013 18:18:32 -0500 Subject: [PATCH] Fuller error message in PACK-WIRED-TN Cribbed directly from Alexandra Barchunova's regalloc work. --- src/compiler/pack.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp index 60d8565..288a988 100644 --- a/src/compiler/pack.lisp +++ b/src/compiler/pack.lisp @@ -1458,7 +1458,8 @@ (or (= offset 0) (= offset 1)))) (conflicts-in-sc original sc offset)) - (error "~S is wired to a location that it conflicts with." tn)) + (error "~S is wired to location ~D in SC ~A of kind ~S that it conflicts with." + tn offset sc (tn-kind tn))) (add-location-conflicts original sc offset optimize))) -- 1.7.10.4