From 48a014f3bc1cb6ea3633d135e5064f736fab8207 Mon Sep 17 00:00:00 2001 From: Andrey Kotlarski Date: Fri, 5 Sep 2014 14:44:24 +0300 Subject: [PATCH] Fix write measuring and endless loop in nearby approximation. --- vlf-tune.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/vlf-tune.el b/vlf-tune.el index b711c5a..d4b39a4 100644 --- a/vlf-tune.el +++ b/vlf-tune.el @@ -153,8 +153,8 @@ VEC is a vector of (mean time . count) elements ordered by size." "Save buffer and save time it takes. START, END, APPEND, VISIT have same meaning as in `write-region'. SIZE is number of bytes that are saved." - (let ((time (car (write-region start end buffer-file-name - append visit)))) + (let ((time (car (vlf-time (write-region start end buffer-file-name + append visit))))) (vlf-tune-add-measurement vlf-tune-write-bps size time))) (defun vlf-tune-hexlify () @@ -192,7 +192,9 @@ SIZE is number of bytes that are saved." (1+ right-idx)) val (if (zerop val) right - (/ (+ val right) 2))))))) + (/ (+ val right) 2)))))) + (setq left-idx (1- left-idx) + right-idx (1+ right-idx))) val)) (defmacro vlf-tune-approximate (vec index)