suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Report struct constructors used in hot code.

Browse Source 
original commit: 9c7356370577067fffd66d3770cf4a5f3da8a53f
This commit is contained in:
Vincent St-Amour 2012-11-26 14:45:20 -05:00
parent 8fd0b9b328
commit 6838ac39df
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-racket/optimizer/hidden-costs.rkt
View File

@ -6,6 +6,8 @@
(optimizer utils logging)
(types abbrev))
(require (types type-table))
(provide hidden-cost-log-expr)
(define-syntax-class hidden-port-parameter-function
@ -29,4 +31,11 @@
(syntax->list #'(args ...)))
#:with opt
(begin (log-optimization-info "hidden parameter" #'op)
#`(op #,@(syntax-map (optimize) #'(args ...)))))
;; Log calls to struct constructors, so that OC can report those used in
;; hot loops.
(pattern (#%plain-app op:id args ...)
#:when (struct-constructor? #'op)
#:with opt
(begin (log-optimization-info "struct constructor" #'op)
#`(op #,@(syntax-map (optimize) #'(args ...))))))