sb-sprof: Record profiling start and end times

contrib/sb-sprof/interface.lisp

@@ -185,7 +185,8 @@ The following keyword args are recognized:
  (truncate sample-interval)
  (values secs (truncate (* rest 1000000))))
  (setf *sampling* sampling
- *samples* (make-samples :max-depth max-depth
+ *samples* (make-samples :start-time (get-internal-real-time)
+ :max-depth max-depth
  :max-samples max-samples
  :sample-interval sample-interval
  :alloc-interval alloc-interval
@@ -251,7 +252,8 @@ The following keyword args are recognized:
  (disable-call-counting)
  (setf *profiling* nil
  *sampling* nil
- *profiled-threads* nil)))
+ *profiled-threads* nil)
+ (setf (samples-end-time *samples*) (get-internal-real-time))))
  (values))
 
 (defun reset ()

contrib/sb-sprof/record.lisp

@@ -25,7 +25,8 @@
 ;;; Encapsulate all the information about a sampling run
 (defstruct (samples
  (:constructor
- make-samples (&key mode sample-interval alloc-interval
+ make-samples (&key start-time
+ mode sample-interval alloc-interval
  max-depth max-samples
  &aux (vector (make-sample-vector max-samples)))))
  ;; When this vector fills up, we allocate a new one and copy over
@@ -36,6 +37,10 @@
 
  (sampled-threads nil :type list)
 
+ ;; Metadata
+ (start-time (sb-int:missing-arg) :type sb-kernel:internal-time :read-only t)
+ (end-time nil :type (or null sb-kernel:internal-time))
+
  (mode nil :type sampling-mode :read-only t)
  (sample-interval (sb-int:missing-arg) :type (real (0)) :read-only t)
  (alloc-interval (sb-int:missing-arg) :type (integer (0)) :read-only t)