paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 20:30:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add a lock to speed up parsing of userscreen

Browse Source
This commit is contained in:
pierre 2002-08-26 13:03:14 +00:00
parent c1c701655d
commit 43c0474872
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/fpcompil.pas
View File

@ -242,6 +242,7 @@ begin
exit;
DisplayCompilerWindow:=false;
PushStatus('Parsing User Screen');
CompilerMessageWindow^.Lock;
for Y:=0 to UserScreen^.GetHeight do
begin
UserScreen^.GetLine(Y,Text,Attr);
@ -260,6 +261,7 @@ begin
CompilerMessageWindow^.MakeFirst;
CompilerMessageWindow^.MsgLB^.SelectFirstError;
end;
CompilerMessageWindow^.UnLock;
PopStatus;
end;
@ -1263,7 +1265,10 @@ end;
end.
{
$Log$
Revision 1.8 2002-04-10 22:37:37 pierre
Revision 1.9 2002-08-26 13:03:14 pierre
+ add a lock to speed up parsing of userscreen
Revision 1.8 2002/04/10 22:37:37 pierre
* save and restore Exitproc if LongJmp called
Revision 1.7 2002/03/20 14:48:27 pierre