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

Preserve source locations.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-03-07 16:57:11 -05:00
parent 83a573ccd8
commit 81e357d3ae
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,7 +29,7 @@
#:when (for/and ([arg (in-syntax #'(args ...))]) #:when (for/and ([arg (in-syntax #'(args ...))])
(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 (syntax/loc this-syntax (op args.opt ...)))
;; This one only fires if the call to `random' didn't get optimized ;; This one only fires if the call to `random' didn't get optimized
;; (which logs the hidden cost itself), i.e. (random <Integer>) . ;; (which logs the hidden cost itself), i.e. (random <Integer>) .
(pattern (#%plain-app op:hidden-random-parameter-function args:opt-expr ...) (pattern (#%plain-app op:hidden-random-parameter-function args:opt-expr ...)
@ -37,7 +37,7 @@
#:when (for/and ([arg (in-syntax #'(args ...))]) #:when (for/and ([arg (in-syntax #'(args ...))])
(not (subtypeof? arg -Pseudo-Random-Generator))) (not (subtypeof? arg -Pseudo-Random-Generator)))
#:do [(log-optimization-info "hidden parameter (random)" #'op)] #:do [(log-optimization-info "hidden parameter (random)" #'op)]
#:with opt #'(op args.opt ...)) #:with opt (syntax/loc this-syntax (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.
@ -49,4 +49,4 @@
(or (and constructor-for (struct-constructor? constructor-for)) (or (and constructor-for (struct-constructor? constructor-for))
(struct-constructor? #'op))) (struct-constructor? #'op)))
#:do [(log-optimization-info "struct constructor" #'op)] #:do [(log-optimization-info "struct constructor" #'op)]
#:with opt #'(op-part args.opt ...))) #:with opt (syntax/loc this-syntax (op-part args.opt ...))))