From c1aa1ecbead6992f4e37a2e747bf82404ce6d4eb Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 9 Sep 1999 14:19:16 +0000
Subject: [PATCH]  * status should not be present in TCompilerMessage.GetText

---
 ide/text/fpcompil.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/ide/text/fpcompil.pas b/ide/text/fpcompil.pas
index d7d6d45ac5..e7de1fcff6 100644
--- a/ide/text/fpcompil.pas
+++ b/ide/text/fpcompil.pas
@@ -150,7 +150,8 @@ begin
   if ClassS<>'' then
    ClassS:=RExpand(ClassS,0)+': ';
   if assigned(Module) and
-     (TClass<=V_ShowFile) and (status.currentsource<>'') and (status.currentline>0) then
+     (TClass<=V_ShowFile)
+     {and (status.currentsource<>'') and (status.currentline>0)} then
     begin
       if Row>0 then
        begin
@@ -451,6 +452,7 @@ begin
 
 
 
+
      CompilerMessageWindow^.AddMessage(Level,S,status.currentsourcepath+status.currentsource,
        status.currentline,status.currentcolumn);
      { update info messages }
@@ -462,6 +464,7 @@ begin
 
 
 
+
      { update memory usage }
      { HeapView^.Update; }
    end;
@@ -742,7 +745,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.36  1999-09-07 11:32:13  pierre
+  Revision 1.37  1999-09-09 14:19:16  pierre
+   * status should not be present in TCompilerMessage.GetText
+
+  Revision 1.36  1999/09/07 11:32:13  pierre
     * fix for Linux ./ prepended to ppas.sh
     * Build add '-B' option
     * if linkAfter is set, get errors from linker