mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

Disable Tree-IL CSE

Browse source 
* module/language/tree-il/optimize.scm (optimize): Disable Tree-IL CSE
  by default.
This commit is contained in:
Andy Wingo 2014-04-05 10:27:26 +02:00
parent a79f4f67e2
commit 84d3ce20cd
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/language/tree-il/optimize.scm
View file

@ -1,6 +1,6 @@
;;; Tree-il optimizer ;;; Tree-il optimizer
;; Copyright (C) 2009, 2011, 2012, 2013 Free Software Foundation, Inc. ;; Copyright (C) 2009, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -35,10 +35,11 @@
(lambda (x e) x)) (lambda (x e) x))
(_ peval))) (_ peval)))
(cse (match (memq #:cse? opts) (cse (match (memq #:cse? opts)
((#:cse? #f _ ...) ((#:cse? #t _ ...)
;; Disable CSE. cse)
(lambda (x) x)) (_
(_ cse)))) ;; Disable Tree-IL CSE by default.
(lambda (x) x)))))
(fix-letrec (fix-letrec
(verify-tree-il (verify-tree-il
(cse (cse