sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-03-31 16:08:05 +01:00
Code Issues Releases Wiki Activity

Fix write measuring and endless loop in nearby approximation.

Browse Source
This commit is contained in:
Andrey Kotlarski 2014-09-05 14:44:24 +03:00
parent facdb9f6bc
commit 48a014f3bc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
vlf-tune.el
View File

@ -153,8 +153,8 @@ VEC is a vector of (mean time . count) elements ordered by size."
"Save buffer and save time it takes. "Save buffer and save time it takes.
START, END, APPEND, VISIT have same meaning as in `write-region'. START, END, APPEND, VISIT have same meaning as in `write-region'.
SIZE is number of bytes that are saved." SIZE is number of bytes that are saved."
(let ((time (car (write-region start end buffer-file-name (let ((time (car (vlf-time (write-region start end buffer-file-name
append visit)))) append visit)))))
(vlf-tune-add-measurement vlf-tune-write-bps size time))) (vlf-tune-add-measurement vlf-tune-write-bps size time)))
(defun vlf-tune-hexlify () (defun vlf-tune-hexlify ()
@ -192,7 +192,9 @@ SIZE is number of bytes that are saved."
(1+ right-idx)) (1+ right-idx))
val (if (zerop val) val (if (zerop val)
right right
(/ (+ val right) 2))))))) (/ (+ val right) 2))))))
(setq left-idx (1- left-idx)
right-idx (1+ right-idx)))
val)) val))
(defmacro vlf-tune-approximate (vec index) (defmacro vlf-tune-approximate (vec index)