From 82ddd74eabd7128c1cade876043358da01914398 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 18 Jun 2013 15:45:37 +0000 Subject: Make the (cosmetic) change to 4-state system, separating RISING and FALLING. --- generic/tclEvent.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/generic/tclEvent.c b/generic/tclEvent.c index d0ad7fd..732a7d6 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -934,7 +934,7 @@ Tcl_Exit( #define INITDEBUG 1 typedef enum { - DOWN, CHANGING, UP + DOWN, RISING, FALLING, UP } State; static State initState = DOWN; @@ -959,8 +959,8 @@ TclInitSubsystems(void) /* Did we win? */ if (initState == DOWN) { - /* Yes! Record that we are CHANGING the state */ - initState = CHANGING; + /* Yes! Record that we are bring the state up */ + initState = RISING; changer = Tcl_GetCurrentThread(); /* @@ -1077,7 +1077,7 @@ Tcl_Finalize(void) TclpInitLock(); if (initState == UP) { - initState = CHANGING; + initState = FALLING; changer = Tcl_GetCurrentThread(); /* -- cgit v0.12