From 43c0474872fd9708f63b2b6d0470f9f22edde4c6 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 26 Aug 2002 13:03:14 +0000
Subject: [PATCH]  + add a lock to speed up parsing of userscreen

---
 ide/fpcompil.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ide/fpcompil.pas b/ide/fpcompil.pas
index a675eb8528..5a8a118fb2 100644
--- a/ide/fpcompil.pas
+++ b/ide/fpcompil.pas
@@ -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