From 70c6c64766ff12e62b2fcf56d780fd7faf14c112 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 8 Oct 2008 23:43:07 -0500
Subject: [PATCH] Debugging register allocator and inline allocation

---
 basis/compiler/codegen/codegen.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/codegen/codegen.factor b/basis/compiler/codegen/codegen.factor
index d72d50c18d..70b72ae80c 100644
--- a/basis/compiler/codegen/codegen.factor
+++ b/basis/compiler/codegen/codegen.factor
@@ -164,9 +164,12 @@ M: ##unbox-byte-array generate-insn dst/src %unbox-byte-array ;
 
 M: ##unbox-any-c-ptr generate-insn dst/src %unbox-any-c-ptr ;
 
-M: ##box-float generate-insn dst/src %box-float ;
+: dst/src/temp ( insn -- dst src temp )
+    [ dst/src ] [ temp>> v>operand ] bi ;
 
-M: ##box-alien generate-insn dst/src %box-alien ;
+M: ##box-float generate-insn dst/src/temp %box-float ;
+
+M: ##box-alien generate-insn dst/src/temp %box-alien ;
 
 M: ##allot generate-insn
     {