suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

modification on previous commit for blocking in expeditor

Browse Source 
original commit: 02844bee98871bf03cf435441ba23556ad4fc6aa
This commit is contained in:
yjqww6 2016-06-14 20:35:27 +08:00
parent 2b94b98c06
commit 6fd5cb7fdd
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LOG
View File

@ -200,3 +200,5 @@
release_notes.stex release_notes.stex
- fixed spelling of non-existent - fixed spelling of non-existent
s/syntax.ss s/syntax.ss
- fixed unnessesary blocking in expeditor on Windows.
c/expeditor.c

21
c/expeditor.c
View File

@ -73,6 +73,10 @@ static IBOOL s_ee_init_term(void) {
static ptr s_ee_read_char(IBOOL blockp) { static ptr s_ee_read_char(IBOOL blockp) {
DWORD cNumRead; DWORD cNumRead;
INPUT_RECORD irInBuf[1]; INPUT_RECORD irInBuf[1];
#ifdef PTHREADS
ptr tc;
#endif /* PTHREADS */
BOOL succ;
static char buf[10]; static char buf[10];
static int bufidx = 0; static int bufidx = 0;
static int buflen = 0; static int buflen = 0;
@ -97,15 +101,18 @@ static ptr s_ee_read_char(IBOOL blockp) {
} }
#ifdef PTHREADS #ifdef PTHREADS
ptr tc = get_thread_context(); tc = get_thread_context();
if (DISABLECOUNT(tc) == FIX(0)) {
deactivate_thread(tc); deactivate_thread(tc);
#endif succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
BOOL succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
#ifdef PTHREADS
reactivate_thread(tc); reactivate_thread(tc);
#endif } else {
succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
}
#else /* PTHREADS */
succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
#endif /* PTHREADS */
if (!succ) if (!succ)
S_error1("expeditor", "error getting console info: ~a", S_error1("expeditor", "error getting console info: ~a",