From 2df0b23a0f6d462ddd89df0cb226369eb210a20e Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Thu, 4 Oct 2007 23:01:57 +0000 Subject: [PATCH] 1.0.10.23: Shuffle def* foo around for less compiler warnings. --- contrib/sb-sprof/sb-sprof.lisp | 30 +++++++++++++++--------------- version.lisp-expr | 2 +- 2 files changed, 16 insertions(+), 16 deletions(-) diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp index a6e461c..ff0f4b9 100644 --- a/contrib/sb-sprof/sb-sprof.lisp +++ b/contrib/sb-sprof/sb-sprof.lisp @@ -297,6 +297,20 @@ ;; number of times the call was sampled (count 1 :type sb-int:index)) +(defvar *sample-interval* 0.01 + "Default number of seconds between samples.") +(declaim (type number *sample-interval*)) + +(defvar *alloc-interval* 4 + "Default number of allocation region openings between samples.") +(declaim (type number *alloc-interval*)) + +(defvar *max-samples* 50000 + "Default number of traces taken. This variable is somewhat misnamed: +each trace may actually consist of an arbitrary number of samples, depending +on the depth of the call stack.") +(declaim (type sb-int:index *max-samples*)) + ;;; Encapsulate all the information about a sampling run (defstruct (samples) ;; When this vector fills up, we allocate a new one and copy over @@ -339,10 +353,6 @@ profiling") (declaim (type (member :cpu :alloc) *sampling-mode*)) -(defvar *sample-interval* 0.01 - "Default number of seconds between samples.") -(declaim (number *sample-interval*)) - (defvar *alloc-region-size* #-gencgc (get-page-size) @@ -350,17 +360,7 @@ profiling") ;; really worth genesifying. #+gencgc (* 2 sb-vm:gencgc-page-size)) -(declaim (number *alloc-region-size*)) - -(defvar *alloc-interval* 4 - "Default number of allocation region openings between samples.") -(declaim (number *alloc-interval*)) - -(defvar *max-samples* 50000 - "Default number of traces taken. This variable is somewhat misnamed: -each trace may actually consist of an arbitrary number of samples, depending -on the depth of the call stack.") -(declaim (type sb-int:index *max-samples*)) +(declaim (type number *alloc-region-size*)) (defvar *samples* nil) (declaim (type (or null samples) *samples*)) diff --git a/version.lisp-expr b/version.lisp-expr index 2ba8f62..9c31447 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.10.22" +"1.0.10.23" -- 1.7.10.4