compiler.cfg.representation: OK to unbox output of ##load-reference globally

2009-08-08 20:03:13 -05:00 · 2009-08-08 20:03:13 -05:00 · 55acddef3f
parent d0c393aa60
commit 55acddef3f
1 changed files with 3 additions and 1 deletions
--- a/basis/compiler/cfg/representations/representations.factor
+++ b/basis/compiler/cfg/representations/representations.factor
@ -47,7 +47,9 @@ SYMBOL: always-boxed
    H{ } clone [
        '[
            [
+                dup ##load-reference? [ drop ] [
                    [ _ (compute-always-boxed) ] each-def-rep
+                ] if
            ] each-non-phi
        ] each-basic-block
    ] keep ;