diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-10 20:42:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-10 20:42:29 (GMT) |
| commit | 424c53931bf9517cb3287c59a25a90a8defddf9d (patch) | |
| tree | 2486c87afd86c6ccc17ee7fe2a1d28ff78fecf6f /win/tclWinConsole.c | |
| parent | a3ea58d94b5e8e1abeba9336503bc1b2856be8fc (diff) | |
| parent | 4a38609129a5103a58655c4f4789012c1144f5c7 (diff) | |
| download | tcl-424c53931bf9517cb3287c59a25a90a8defddf9d.zip tcl-424c53931bf9517cb3287c59a25a90a8defddf9d.tar.gz tcl-424c53931bf9517cb3287c59a25a90a8defddf9d.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'win/tclWinConsole.c')
| -rw-r--r-- | win/tclWinConsole.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c index 29ccf01..5496d58 100644 --- a/win/tclWinConsole.c +++ b/win/tclWinConsole.c @@ -97,7 +97,7 @@ typedef struct RingBuffer { RingSizeT length; /* Number of RingBufferChar*/ } RingBuffer; #define RingBufferLength(ringPtr_) ((ringPtr_)->length) -#define RingBufferFreeSpace(ringPtr_) ((ringPtr_)->capacity - (ringPtr_)->length) +#define RingBufferHasFreeSpace(ringPtr_) ((ringPtr_)->length < (ringPtr_)->capacity) #define RINGBUFFER_ASSERT(ringPtr_) assert(RingBufferCheck(ringPtr_)) /* @@ -795,7 +795,7 @@ ConsoleSetupProc( } } else if (chanInfoPtr->watchMask & TCL_WRITABLE) { - if (RingBufferFreeSpace(&handleInfoPtr->buffer) > 0) { + if (RingBufferHasFreeSpace(&handleInfoPtr->buffer)) { /* TCL_WRITABLE */ block = 0; /* Output space available */ } @@ -878,7 +878,7 @@ ConsoleCheckProc( } } else if (chanInfoPtr->watchMask & TCL_WRITABLE) { - if (RingBufferFreeSpace(&handleInfoPtr->buffer) > 0) { + if (RingBufferHasFreeSpace(&handleInfoPtr->buffer)) { needEvent = 1; /* Output space available */ } } @@ -1429,7 +1429,7 @@ ConsoleEventProc( mask = TCL_READABLE; } else if ((chanInfoPtr->watchMask & TCL_WRITABLE) - && RingBufferFreeSpace(&handleInfoPtr->buffer) > 0) { + && RingBufferHasFreeSpace(&handleInfoPtr->buffer)) { /* Generate write event space available */ mask = TCL_WRITABLE; } |