From f63b2e4814761f805d3e7897bc543ebd3543b008 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 20 Jul 2015 10:57:52 +0200 Subject: [PATCH] More slot-allocation simplification * module/language/cps/slot-allocation.scm (allocate-slots): Remove unreachable clause. --- module/language/cps/slot-allocation.scm | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/module/language/cps/slot-allocation.scm b/module/language/cps/slot-allocation.scm index 400f9e390..c60f0f22f 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)