[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/timer.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/timer.el |
Date: |
Fri, 12 Jul 2002 07:50:59 -0400 |
Index: emacs/lisp/timer.el
diff -c emacs/lisp/timer.el:1.24 emacs/lisp/timer.el:1.25
*** emacs/lisp/timer.el:1.24 Sun Jul 15 12:15:34 2001
--- emacs/lisp/timer.el Fri Oct 5 05:26:53 2001
***************
*** 116,124 ****
(setq low (+ low (floor secs)))
;; Normalize
! (setq low (+ low (/ micro 1000000)))
(setq micro (mod micro 1000000))
! (setq high (+ high (/ low 65536)))
(setq low (logand low 65535))
(list high low (and (/= micro 0) micro))))
--- 116,126 ----
(setq low (+ low (floor secs)))
;; Normalize
! ;; `/' rounds towards zero while `mod' returns a positive number,
! ;; so we can't rely on (= a (+ (* 100 (/ a 100)) (mod a 100))).
! (setq low (+ low (/ micro 1000000) (if (< micro 0) -1 0)))
(setq micro (mod micro 1000000))
! (setq high (+ high (/ low 65536) (if (< low 0) -1 0)))
(setq low (logand low 65535))
(list high low (and (/= micro 0) micro))))
- [Emacs-diffs] Changes to emacs/lisp/timer.el,
Juanma Barranquero <=
- [Emacs-diffs] Changes to emacs/lisp/timer.el, Juanma Barranquero, 2002/07/12
- [Emacs-diffs] Changes to emacs/lisp/timer.el, Juanma Barranquero, 2002/07/16
- [Emacs-diffs] Changes to emacs/lisp/timer.el, Juanma Barranquero, 2002/07/16
- [Emacs-diffs] Changes to emacs/lisp/timer.el, Juanma Barranquero, 2002/07/17
- [Emacs-diffs] Changes to emacs/lisp/timer.el, Richard M. Stallman, 2002/07/18