diff options
Diffstat (limited to 'unix/tclUnixEvent.c')
| -rw-r--r-- | unix/tclUnixEvent.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/unix/tclUnixEvent.c b/unix/tclUnixEvent.c index 688938b..40aac6f 100644 --- a/unix/tclUnixEvent.c +++ b/unix/tclUnixEvent.c @@ -1,4 +1,4 @@ -/* +/* * tclUnixEvent.c -- * * This file implements Unix specific event related routines. @@ -7,11 +7,11 @@ * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclUnixEvent.c,v 1.8 2005/07/20 23:16:00 dkf Exp $ */ #include "tclInt.h" +#ifndef HAVE_COREFOUNDATION /* Darwin/Mac OS X CoreFoundation notifier is + * in tclMacOSXNotify.c */ /* *---------------------------------------------------------------------- @@ -30,8 +30,8 @@ */ void -Tcl_Sleep(ms) - int ms; /* Number of milliseconds to sleep. */ +Tcl_Sleep( + int ms) /* Number of milliseconds to sleep. */ { struct timeval delay; Tcl_Time before, after, vdelay; @@ -64,7 +64,7 @@ Tcl_Sleep(ms) } if ((vdelay.sec != 0) || (vdelay.usec != 0)) { - (*tclScaleTimeProcPtr) (&vdelay, tclTimeClientData); + tclScaleTimeProcPtr(&vdelay, tclTimeClientData); } delay.tv_sec = vdelay.sec; @@ -85,6 +85,7 @@ Tcl_Sleep(ms) } } +#endif /* HAVE_COREFOUNDATION */ /* * Local Variables: * mode: c |