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

Log hidden prng parameter dereferences.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-11-13 18:24:27 -05:00
parent 0dcceccfa4
commit 04eeeb13f1
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/hidden-costs.rkt
View File

@ -11,6 +11,8 @@
;; not an exhaustive list ;; not an exhaustive list
(define-literal-syntax-class hidden-port-parameter-function (define-literal-syntax-class hidden-port-parameter-function
(display displayln newline write write-byte print printf)) (display displayln newline write write-byte print printf))
(define-literal-syntax-class hidden-random-parameter-function
(random))
;; This syntax class does not perform optimization. ;; This syntax class does not perform optimization.
;; It only logs operations with hidden costs, for use by Optimization Coach. ;; It only logs operations with hidden costs, for use by Optimization Coach.
@ -27,6 +29,12 @@
(not (subtypeof? arg -Output-Port))) (not (subtypeof? arg -Output-Port)))
#:do [(log-optimization-info "hidden parameter" #'op)] #:do [(log-optimization-info "hidden parameter" #'op)]
#:with opt #'(op args.opt ...)) #:with opt #'(op args.opt ...))
(pattern (#%plain-app op:hidden-random-parameter-function args:opt-expr ...)
;; see above
#:when (for/and ([arg (in-syntax #'(args ...))])
(not (subtypeof? arg -Pseudo-Random-Generator)))
#:do [(log-optimization-info "hidden parameter (random)" #'op)]
#:with opt #'(op args.opt ...))
;; Log calls to struct constructors, so that OC can report those used in ;; Log calls to struct constructors, so that OC can report those used in
;; hot loops. ;; hot loops.
;; Note: Sometimes constructors are wrapped in `#%expression', need to watch ;; Note: Sometimes constructors are wrapped in `#%expression', need to watch