[Guile-commits] 05/13: More slot-allocation simplification

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit f63b2e4814761f805d3e7897bc543ebd3543b008
Author: Andy Wingo <address@hidden>
Date:   Mon Jul 20 10:57:52 2015 +0200

    More slot-allocation simplification
    
    * module/language/cps/slot-allocation.scm (allocate-slots): Remove
      unreachable clause.
---
 module/language/cps/slot-allocation.scm |   14 +-------------
 1 files changed, 1 insertions(+), 13 deletions(-)

diff --git a/module/language/cps/slot-allocation.scm 
b/module/language/cps/slot-allocation.scm
index 400f9e3..c60f0f2 100644
--- a/module/language/cps/slot-allocation.scm
+++ b/module/language/cps/slot-allocation.scm
@@ -542,19 +542,7 @@ are comparable with eqv?.  A tmp slot may be used."
            (hashq-set! call-allocations label
                        (make-call-allocation proc-slot arg-moves 
dead-slot-map))
            (hashq-set! call-allocations k
-                       (make-call-allocation proc-slot result-moves #f))))
-
-        (_
-         (let* ((proc-slot (compute-call-proc-slot post-live))
-                (call-slots (map (cut + proc-slot <>) (iota (length uses))))
-                (pre-live (fold allocate! pre-live uses call-slots))
-                (arg-moves (parallel-move (map (cut vector-ref slots <>) uses)
-                                          call-slots
-                                          (compute-tmp-slot pre-live
-                                                            call-slots))))
-           (bump-nlocals! (+ proc-slot (length uses)))
-           (hashq-set! call-allocations label
-                       (make-call-allocation proc-slot arg-moves #f))))))
+                       (make-call-allocation proc-slot result-moves #f))))))
                          
     (define (allocate-values label k uses pre-live post-live)
       (match (lookup-cont k dfg)