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

making the timing messages a parameter for the builder

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 20:23:23 -04:00
parent 28dbb9a74a
commit 97ccebb298
7 changed files with 29 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
js-assembler/collect-jump-targets.rkt
View File

@ -3,6 +3,7 @@
"../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../helpers.rkt"
"../parameters.rkt"
racket/list)
(provide collect-general-jump-targets
@ -146,7 +147,7 @@
(: end-time Real)
(define end-time (current-inexact-milliseconds))
(printf " collect-general-jump-targets: ~a milliseconds\n" (- end-time start-time))
(fprintf (current-timing-port) " collect-general-jump-targets: ~a milliseconds\n" (- end-time start-time))
result)

3
js-assembler/fracture.rkt
View File

@ -4,6 +4,7 @@
"collect-jump-targets.rkt"
"../compiler/il-structs.rkt"
"../compiler/expression-structs.rkt"
"../parameters.rkt"
racket/list)
@ -96,6 +97,6 @@
(GotoStatement? (car stmts)))]))]))))
(define end-time (current-inexact-milliseconds))
(printf " assemble fracture: ~a milliseconds\n" (- end-time start-time))
(fprintf (current-timing-port) " assemble fracture: ~a milliseconds\n" (- end-time start-time))
(values blocks entries))

2
js-assembler/package.rkt
View File

@ -252,7 +252,7 @@ MACHINE.modules[~s] =
(assemble/write-invoke stmts temporary-output-port)
(fprintf temporary-output-port "(MACHINE, function() { ")])
(define stop-time (current-inexact-milliseconds))
(printf " assembly: ~s milliseconds\n" (- stop-time start-time))
(fprintf (current-timing-port) " assembly: ~s milliseconds\n" (- stop-time start-time))
(write-bytes (get-output-bytes temporary-output-port) op)
(void))

8
make/make.rkt
View File

@ -66,7 +66,7 @@
(define start-time (current-inexact-milliseconds))
(define compiled-code (compile ast 'val next-linkage/drop-multiple))
(define stop-time (current-inexact-milliseconds))
(printf " compile ast: ~a milliseconds\n" (- stop-time start-time))
(fprintf (current-timing-port) " compile ast: ~a milliseconds\n" (- stop-time start-time))
(values ast compiled-code))]))
@ -87,7 +87,7 @@
(open-input-bytes
(get-output-bytes source-code-op))))))]))
(define stop-time (current-inexact-milliseconds))
(printf " get-ast: ~a milliseconds\n" (- stop-time start-time))
(fprintf (current-timing-port) " get-ast: ~a milliseconds\n" (- stop-time start-time))
ast)
@ -168,7 +168,7 @@
[(hash-has-key? visited (first sources))
(loop (rest sources))]
[else
(printf "compiling a module ~a\n" (source-name (first sources)))
(fprintf (current-timing-port) "compiling a module ~a\n" (source-name (first sources)))
(hash-set! visited (first sources) #t)
(let*-values ([(this-source)
((current-module-source-compiling-hook)
@ -180,7 +180,7 @@
(define start-time (current-inexact-milliseconds))
(define new-dependencies (map wrap-source (collect-new-dependencies this-source ast)))
(define end-time (current-inexact-milliseconds))
(printf " computing dependencies: ~a milliseconds\n" (- end-time start-time))
(fprintf (current-timing-port) " computing dependencies: ~a milliseconds\n" (- end-time start-time))
(loop (append new-dependencies (rest sources)))
(after-module-statements this-source ast stmts))])))

12
parameters.rkt
View File

@ -3,7 +3,8 @@
(require "compiler/expression-structs.rkt"
"compiler/lexical-structs.rkt"
"sets.rkt"
racket/path)
racket/path
racket/port)
(require/typed "logger.rkt"
[log-warning (String -> Void)])
@ -17,7 +18,10 @@
current-seen-unimplemented-kernel-primitives
current-kernel-module-locator?
current-compress-javascript?
current-report-port)
current-report-port
current-timing-port
)
@ -75,6 +79,10 @@
(define current-report-port (make-parameter (current-output-port)))
(: current-timing-port (Parameterof Output-Port))
(define current-timing-port (make-parameter (open-output-nowhere) ;(current-output-port)
))

2
whalesong-helpers.rkt
View File

@ -142,7 +142,7 @@
#:exists 'replace)
(define stop-time (current-inexact-milliseconds))
(printf "Time taken: ~a milliseconds\n" (- stop-time start-time))
(fprintf (current-timing-port) "Time taken: ~a milliseconds\n" (- stop-time start-time))
))))

10
whalesong.rkt
View File

@ -43,6 +43,9 @@
[("-v" "--verbose")
("Display verbose messages.")
(current-verbose? #t)]
[("--debug-show-timings")
("Display debug messages about compilation time.")
(current-timing-port (current-output-port))]
[("--compress-javascript")
("Compress JavaScript with Google Closure (requires Java)")
(current-compress-javascript? #t)]
@ -65,6 +68,9 @@
[("-v" "--verbose")
("Display verbose messages.")
(current-verbose? #t)]
[("--debug-show-timings")
("Display debug messages about compilation time.")
(current-timing-port (current-output-port))]
[("--compress-javascript")
("Compress JavaScript with Google Closure (requires Java)")
(current-compress-javascript? #t)]
@ -77,7 +83,9 @@
[("-v" "--verbose")
("Display verbose messages.")
(current-verbose? #t)]
[("--debug-show-timings")
("Display debug messages about compilation time.")
(current-timing-port (current-output-port))]
[("--compress-javascript")
("Compress JavaScript with Google Closure (requires Java)")
(current-compress-javascript? #t)]