0.83

On Thu, Jun 21, 2001 at 08:49:18PM -0700, Peter Lombard wrote:
> It appears you have forgotten the bug-fix I reported for timetable.c. Could
> you possibly include it in 0.83?

Done.

This patch seems to improve the accuracy of timers quite a lot.  Overall
performance seems unchanged but accuracy is better.

-- 
Get self-realization at <http://sahajayoga.org> ... <http://why-compete.org> ?
  Victory to the Divine Mother!!

--5vNYLRcllDrimb99
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=83

# This is a patch for Event-0.82 to update it to Event
# 
# To apply this patch:
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'applypatch' program with this patch file as input.
#
# If you do not have 'applypatch', it is part of the 'makepatch' package
# that you can fetch from the Comprehensive Perl Archive Network:
# http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz
# In the above URL, 'x' should be 2 or higher.
#
# To apply this patch without the use of 'applypatch':
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'patch' program with this file as input.
#
#### End of Preamble ####

#### Patch data follows ####
diff -c '/tmp/mp958.d/old/Event-0.82/ChangeLog' 'Event/ChangeLog'
Index: ./ChangeLog
*** ./ChangeLog	Thu Jun 21 14:54:05 2001
--- ./ChangeLog	Fri Jun 22 11:46:44 2001
***************
*** 1,3 ****
--- 1,11 ----
+ 2001-06-22  <[email protected]>
+ 
+ 	* Release 0.83.
+ 
+ 2001-06-22  <[email protected]>
+ 
+ 	* Waste less time in timeable.c. (Peter Lombard <[email protected]>)
+ 
  2001-06-21  <[email protected]>
  
  	* Release 0.82.
diff -c '/tmp/mp958.d/old/Event-0.82/c/timeable.c' 'Event/c/timeable.c'
Index: ./c/timeable.c
*** ./c/timeable.c	Tue Jun 13 20:54:24 2000
--- ./c/timeable.c	Fri Jun 22 11:44:50 2001
***************
*** 17,25 ****
  
  static void pe_timeables_check() {
      pe_timeable *tm = (pe_timeable*) Timeables.ring.next;
!     double now = NVtime();
      /*  warn("timeables at %.2f\n", now); db_show_timeables();/**/
!     while (tm->ring.self && tm->at < now) {
  	pe_watcher *ev = (pe_watcher*) tm->ring.self;
  	pe_timeable *next = (pe_timeable*) tm->ring.next;
  	D_TIMEABLE({
--- 17,25 ----
  
  static void pe_timeables_check() {
      pe_timeable *tm = (pe_timeable*) Timeables.ring.next;
!     double now = NVtime() + IntervalEpsilon;
      /*  warn("timeables at %.2f\n", now); db_show_timeables();/**/
!     while (tm->ring.self && now >= tm->at) {
  	pe_watcher *ev = (pe_watcher*) tm->ring.self;
  	pe_timeable *next = (pe_timeable*) tm->ring.next;
  	D_TIMEABLE({
diff -c '/tmp/mp958.d/old/Event-0.82/lib/Event.pm' 'Event/lib/Event.pm'
Index: ./lib/Event.pm
*** ./lib/Event.pm	Thu Jun 21 14:51:17 2001
--- ./lib/Event.pm	Fri Jun 22 11:46:53 2001
***************
*** 13,19 ****
  eval { require Carp::Heavy; };  # work around perl_call_pv bug XXX
  use vars qw($VERSION @EXPORT_OK
  	    $API $DebugLevel $Eval $DIED $Now);
! $VERSION = '0.82';
  
  # If we inherit DynaLoader then we inherit AutoLoader; Bletch!
  require DynaLoader;
--- 13,19 ----
  eval { require Carp::Heavy; };  # work around perl_call_pv bug XXX
  use vars qw($VERSION @EXPORT_OK
  	    $API $DebugLevel $Eval $DIED $Now);
! $VERSION = '0.83';
  
  # If we inherit DynaLoader then we inherit AutoLoader; Bletch!
  require DynaLoader;
#### End of Patch data ####

#### ApplyPatch data follows ####
# Data version        : 1.0
# Date generated      : Fri Jun 22 11:47:40 2001
# Generated by        : makepatch 2.00_03
# Recurse directories : Yes
# p 'ChangeLog' 27594 993190604 0100444
# p 'c/timeable.c' 2634 993190490 0100444
# p 'lib/Event.pm' 4709 993190613 0100444
#### End of ApplyPatch data ####

#### End of Patch kit [created: Fri Jun 22 11:47:40 2001] ####
#### Patch checksum: 78 2617 60539 ####
#### Checksum: 96 3293 51032 ####

--5vNYLRcllDrimb99--