Only go into eventloop/interrupt check 10 times per second

This commit is contained in:
Jack Jansen 1997-02-20 15:23:18 +00:00
parent 4f27a55e80
commit 7e94404081
1 changed files with 9 additions and 0 deletions

View File

@ -351,11 +351,20 @@ scan_event_queue(flush)
}
}
#define TICKCOUNT 6
int
PyOS_InterruptOccurred()
{
static unsigned long nextticktime;
unsigned long curticktime;
if (PyMac_DoYieldEnabled < 0)
return 0;
curticktime = (unsigned long)LMGetTicks();
if ( curticktime < nextticktime )
return 0;
nextticktime = curticktime + TICKCOUNT;
#ifdef THINK_C
scan_event_queue(1);
#endif