paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:06:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid 100 CPU usage when AltF5 is used

Browse Source
This commit is contained in:
pierre 2002-09-02 09:27:35 +00:00
parent c7df12f6f0
commit d1c1c11f34
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpmdebug.inc
View File

@ -46,6 +46,8 @@ begin
repeat repeat
repeat repeat
Drivers.GetKeyEvent(Event); Drivers.GetKeyEvent(Event);
if Event.What=evNothing then
GiveUpTimeSlice;
until Event.What=evKeyboard; until Event.What=evKeyboard;
Clear:=true; Clear:=true;
case Event.keycode of case Event.keycode of
@ -177,7 +179,10 @@ end;
{ {
$Log$ $Log$
Revision 1.1 2001-08-04 11:30:23 peter Revision 1.2 2002-09-02 09:27:35 pierre
* avoid 100 CPU usage when AltF5 is used
Revision 1.1 2001/08/04 11:30:23 peter
* ide works now with both compiler versions * ide works now with both compiler versions
Revision 1.1.2.3 2001/06/13 16:15:36 pierre Revision 1.1.2.3 2001/06/13 16:15:36 pierre