Keep the profiling results even when the quotation throws an exception.
parent
05c96477f3
commit
4d66cd26dc
|
@ -24,8 +24,9 @@ CONSTANT: ignore-words
|
|||
|
||||
: profile ( quot -- )
|
||||
samples-per-second get-global profiling
|
||||
[ 0 profiling ] [ ] cleanup
|
||||
(get-samples) raw-profile-data set-global ; inline
|
||||
[ 0 profiling ] [
|
||||
(get-samples) raw-profile-data set-global
|
||||
] cleanup ; inline
|
||||
|
||||
: total-sample-count ( sample -- count ) 0 swap nth ;
|
||||
: gc-sample-count ( sample -- count ) 1 swap nth ;
|
||||
|
|
Loading…
Reference in New Issue