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

Remove size limit in elide-type-checks

Browse source 
* module/language/cps/dce.scm (elide-type-checks!): Remove limit on
  label-count, now that complexity is under control.
This commit is contained in:
Andy Wingo 2014-06-30 15:30:39 +02:00
parent e21dae43fc
commit 0ad455ca6b
1 changed files with 24 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/cps/dce.scm
View file

@ -80,7 +80,6 @@
defs)) defs))
(define (elide-type-checks! fun dfg effects min-label label-count) (define (elide-type-checks! fun dfg effects min-label label-count)
(when (< label-count 2000)
(match fun (match fun
(($ $cont kfun ($ $kfun src meta min-var)) (($ $cont kfun ($ $kfun src meta min-var))
(let ((typev (infer-types fun dfg))) (let ((typev (infer-types fun dfg)))
@ -104,7 +103,7 @@
(visit-primcall lidx fx name args)) (visit-primcall lidx fx name args))
(_ #f))) (_ #f)))
(_ #f))))) (_ #f)))))
(lp (1+ lidx))))))))) (lp (1+ lidx))))))))
(define (compute-live-code fun) (define (compute-live-code fun)
(let* ((fun-data-table (make-hash-table)) (let* ((fun-data-table (make-hash-table))