From b1afd4c49183c184842759baa0288aaa87e91ef1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Thu, 23 Jul 2009 18:03:04 -0500
Subject: [PATCH] compiler.cfg.linear-scan.mapping: simplify
---
basis/compiler/cfg/linear-scan/mapping/mapping.factor | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/basis/compiler/cfg/linear-scan/mapping/mapping.factor b/basis/compiler/cfg/linear-scan/mapping/mapping.factor
index 5b47f33c64..36678a2f53 100644
--- a/basis/compiler/cfg/linear-scan/mapping/mapping.factor
+++ b/basis/compiler/cfg/linear-scan/mapping/mapping.factor
@@ -44,17 +44,11 @@ M: register->register >insn
SYMBOL: froms
SYMBOL: tos
-SINGLETONS: memory register ;
-
-: from-loc ( operation -- obj ) from>> spill-slot? memory register ? ;
-
-: to-loc ( operation -- obj ) to>> spill-slot? memory register ? ;
-
: from-reg ( operation -- seq )
- [ from-loc ] [ from>> ] [ reg-class>> ] tri 3array ;
+ [ from>> ] [ reg-class>> ] bi 2array ;
: to-reg ( operation -- seq )
- [ to-loc ] [ to>> ] [ reg-class>> ] tri 3array ;
+ [ to>> ] [ reg-class>> ] bi 2array ;
: start? ( operations -- pair )
from-reg tos get key? not ;