From 4a64b81562938164b91076a8addde0e860d57f47 Mon Sep 17 00:00:00 2001 From: James Swaine Date: Wed, 10 Oct 2012 11:44:58 -0500 Subject: [PATCH] FV: handle empty-timeline cases more gracefully --- collects/future-visualizer/private/visualizer-data.rkt | 2 ++ collects/future-visualizer/private/visualizer-gui.rkt | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/future-visualizer/private/visualizer-data.rkt b/collects/future-visualizer/private/visualizer-data.rkt index 80e841d083..38b36b084a 100644 --- a/collects/future-visualizer/private/visualizer-data.rkt +++ b/collects/future-visualizer/private/visualizer-data.rkt @@ -340,6 +340,8 @@ (when (null? log-output) (error 'build-trace "Empty timeline in log-output")) (define-values (fst last) (first-and-last-fevents log-output)) + (when (and (not fst) (not last)) ;If the log has no future events (only GC's) no timeline + (error 'build-trace "Empty timeline in log-output")) (define start-time (future-event-time fst)) (define end-time (future-event-time last)) (define data (organize-output log-output start-time end-time)) diff --git a/collects/future-visualizer/private/visualizer-gui.rkt b/collects/future-visualizer/private/visualizer-gui.rkt index 4c712ff4f8..c1d4913fbb 100644 --- a/collects/future-visualizer/private/visualizer-gui.rkt +++ b/collects/future-visualizer/private/visualizer-gui.rkt @@ -97,7 +97,7 @@ (values (min screen-w DEF-WINDOW-WIDTH) (min screen-h DEF-WINDOW-HEIGHT))) -(define COMFORTABLE-TL-LEN 10000) +(define COMFORTABLE-TL-LEN 5000) (define (show-visualizer #:timeline [timeline #f]) (define the-tl (if timeline timeline (timeline-events)))