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

cse hashing tweak

Browse source 
* module/language/tree-il/cse.scm (cse): Minor tweak to hash depth based
  on time profile of compiling peval.scm.
This commit is contained in:
Andy Wingo 2012-04-16 12:42:31 -07:00
parent 036c366dc2
commit 3db8f60977
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/cse.scm
View file

@ -193,7 +193,7 @@
(/ (string-length (symbol->string (struct-layout x))) 2)) (/ (string-length (symbol->string (struct-layout x))) 2))
(define hash-bits (logcount most-positive-fixnum)) (define hash-bits (logcount most-positive-fixnum))
(define hash-depth 3) (define hash-depth 4)
(define hash-width 3) (define hash-width 3)
(define (hash-expression exp) (define (hash-expression exp)
(define (hash-exp exp depth) (define (hash-exp exp depth)