From 8048a4235a14e14d03093d8d469b33b843496a42 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 1 Oct 2007 04:42:31 -0400 Subject: [PATCH] Fix another code gen regression --- core/generator/registers/registers.factor | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/core/generator/registers/registers.factor b/core/generator/registers/registers.factor index 1d0392706f..4ad360d0db 100644 --- a/core/generator/registers/registers.factor +++ b/core/generator/registers/registers.factor @@ -78,6 +78,8 @@ TUPLE: ds-loc n class ; M: ds-loc minimal-ds-loc* ds-loc-n min ; M: ds-loc operand-class* ds-loc-class ; M: ds-loc set-operand-class set-ds-loc-class ; +M: ds-loc live-loc? + over ds-loc? [ [ ds-loc-n ] 2apply = not ] [ 2drop t ] if ; ! A retain stack location. TUPLE: rs-loc n class ; @@ -86,11 +88,12 @@ TUPLE: rs-loc n class ; M: rs-loc operand-class* rs-loc-class ; M: rs-loc set-operand-class set-rs-loc-class ; +M: rs-loc live-loc? + over rs-loc? [ [ rs-loc-n ] 2apply = not ] [ 2drop t ] if ; UNION: loc ds-loc rs-loc ; M: loc move-spec drop loc ; -M: loc live-loc? = not ; INSTANCE: loc value