still looking at assembly, which is taking way too long
This commit is contained in:
parent
27e3a444b1
commit
4dde2929f4
|
@ -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))
|
||||
(printf " compile ast: ~a milliseconds\n" (- stop-time start-time))
|
||||
(values ast compiled-code))]))
|
||||
|
||||
|
||||
|
|
|
@ -144,10 +144,7 @@
|
|||
base]
|
||||
[else
|
||||
(error 'parse-bytecode)])])
|
||||
(define start-time (current-inexact-milliseconds))
|
||||
(define module-bytecode (get-module-bytecode normal-path))
|
||||
(define stop-time (current-inexact-milliseconds))
|
||||
(printf " parse-bytecode get-module-bytecode: ~a milliseconds\n" (- stop-time start-time))
|
||||
(parse-bytecode (open-input-bytes module-bytecode))))]
|
||||
[else
|
||||
(error 'parse-bytecode "Don't know how to parse from ~e" in)]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user