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

tracing the time down to assembly

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 18:54:20 -04:00
parent e5d69fbfc1
commit 086f6c283f
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
js-assembler/package.rkt
View File

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

7
make/make.rkt
View File

@ -177,8 +177,11 @@
(get-ast-and-statements this-source)])
(log-debug (format "visiting ~a\n" (source-name this-source)))
(on-module-statements this-source ast stmts)
(loop (append (map wrap-source (collect-new-dependencies this-source ast))
(rest sources)))
(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))
(loop (append new-dependencies (rest sources)))
(after-module-statements this-source ast stmts))])))
(follow-dependencies (map wrap-source sources))])))