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

fix path collection for profiling

Browse Source 
svn: r2372
This commit is contained in:
Matthew Flatt 2006-03-06 13:18:14 +00:00
parent d4952b42e7
commit 41b06100e3
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/errortrace/doc.txt
View File

@ -109,12 +109,12 @@ Profiling records:
* the procedure's source in the form of a syntax object (which might, * the procedure's source in the form of a syntax object (which might,
in turn, provide a source location file and position). in turn, provide a source location file and position).
* optionally, information about the procedure call path (something * optionally, information about the procedure call path (i.e., a
like the stack trace) for every call to the procedure. Path stack trace) for every call to the procedure; follecting this
information is collected when the `profile-paths-enabled' boolean information is expensive. Path information is collected when the
parameter is #t; the default is #f, but setting the parameter to #t `profile-paths-enabled' boolean parameter is #t; the default is #f,
immediately affects all procedure instrumented for profiling but setting the parameter to #t immediately affects all procedure
information: instrumented for profiling information:
> (profile-paths-enabled) - returns #t if profiling collects path > (profile-paths-enabled) - returns #t if profiling collects path
information, #f otherwise information, #f otherwise

6
collects/errortrace/errortrace-lib.ss
View File

@ -44,8 +44,10 @@
[v (cdr v)]) [v (cdr v)])
(set-car! v (add1 (car v))) (set-car! v (add1 (car v)))
(when (profile-paths-enabled) (when (profile-paths-enabled)
(let ([v (cdddr v)]) (let ([v (cddddr v)])
(set-car! v (cons (current-continuation-marks profile-key) (set-car! v (cons (continuation-mark-set->list
(current-continuation-marks)
profile-key)
(car v))))) (car v)))))
(if (unbox b) (if (unbox b)
#f #f