From 59ed71b878b55d56cdedf5211c5e75120aa40002 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 12 Sep 2001 09:25:01 +0000
Subject: [PATCH]  * fix bug #1585

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

diff --git a/ide/fpcompil.pas b/ide/fpcompil.pas
index 9367f2c957..13561e9b09 100644
--- a/ide/fpcompil.pas
+++ b/ide/fpcompil.pas
@@ -510,6 +510,8 @@ begin
   R.Grow(-1,-1); R.A.Y:=R.B.Y-1;
   New(KeyST, Init(R, '', Blue*16+White+longint($80+Blue*16+White)*256,true));
   Insert(KeyST);
+  { Reset Status infos see bug 1585 }
+  Fillchar(Status,SizeOf(Status),#0);
 end;
 
 
@@ -1231,7 +1233,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.2  2001-08-05 02:01:47  peter
+  Revision 1.3  2001-09-12 09:25:01  pierre
+   * fix bug 1585
+
+  Revision 1.2  2001/08/05 02:01:47  peter
     * FVISION define to compile with fvision units
 
   Revision 1.1  2001/08/04 11:30:22  peter