From c0f5bc8391e950a0af2a77a1c18653cf5d5903af Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 1 Mar 2013 09:20:48 -0800 Subject: [PATCH] tools.profiler.sampling: fix top-down*. --- basis/tools/profiler/sampling/sampling.factor | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor index 12fa449079..a73245cc1d 100644 --- a/basis/tools/profiler/sampling/sampling.factor +++ b/basis/tools/profiler/sampling/sampling.factor @@ -58,10 +58,13 @@ PRIVATE> : total-time ( -- n ) most-recent-profile-data total-time* ; + : gc-time ( -- n ) most-recent-profile-data gc-time* ; + : foreign-time ( -- n ) most-recent-profile-data foreign-time* ; + : foreign-thread-time ( -- n ) most-recent-profile-data foreign-thread-time* ; @@ -127,7 +130,7 @@ PRIVATE> most-recent-profile-data top-down-max-depth* ; : top-down* ( profile-data -- tree ) - most-positive-fixnum top-down-max-depth* ; + [ most-positive-fixnum ] dip top-down-max-depth* ; : top-down ( -- tree ) most-positive-fixnum top-down-max-depth ;