mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

More slot-allocation simplification

Browse source 
* module/language/cps/slot-allocation.scm (allocate-slots): Remove
  unreachable clause.
This commit is contained in:
Andy Wingo 2015-07-20 10:57:52 +02:00
parent 365296a866
commit f63b2e4814
1 changed files with 1 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/language/cps/slot-allocation.scm
View file

@ -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)