/* 
 * tclWinTime.c --
 *
 *	Contains Windows specific versions of Tcl functions that
 *	obtain time values from the operating system.
 *
 * Copyright 1995-1998 by Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclWinTime.c,v 1.18.2.5 2004/04/09 20:58:20 dgp Exp $
 * RCS: @(#) $Id: tclWinTime.c,v 1.18.2.6 2004/05/04 17:44:21 dgp Exp $
 */

#include "tclInt.h"

#define SECSPERDAY (60L * 60L * 24L)
#define SECSPERYEAR (SECSPERDAY * 365L)
#define SECSPER4YEAR (SECSPERYEAR * 4L + SECSPERDAY)

 */

static void
StopCalibration( ClientData unused )
				/* Client data is unused */
{
    SetEvent( timeInfo.exitEvent );
    /*
     * If Tcl_Finalize was called from DllMain, the calibration thread
     * is in a paused state so we need to timeout and continue.
     */
    WaitForSingleObject( timeInfo.calibrationThread, INFINITE );
    WaitForSingleObject( timeInfo.calibrationThread, 100 );
    CloseHandle( timeInfo.exitEvent );
    CloseHandle( timeInfo.calibrationThread );
}

/*
 *----------------------------------------------------------------------
 *