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

Preserve source locations.

Browse Source 
original commit: 81e357d3aea4fa3438f67d5bdb3ef7503804ce94
This commit is contained in:
Vincent St-Amour 2014-03-07 16:57:11 -05:00
parent 34303c8300
commit fbc5326ae0
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 ...))])
(not (subtypeof? arg -Output-Port)))
#: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
;; (which logs the hidden cost itself), i.e. (random <Integer>) .
(pattern (#%plain-app op:hidden-random-parameter-function args:opt-expr ...)
@ -37,7 +37,7 @@
#: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 ...))
#:with opt (syntax/loc this-syntax (op args.opt ...)))
;; Log calls to struct constructors, so that OC can report those used in
;; hot loops.
@ -49,4 +49,4 @@
(or (and constructor-for (struct-constructor? constructor-for))
(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 ...))))