浏览代码

* Fixed TCompilerMessageWindow.AddMessage to see line numbers with 1.1

armin 22 年之前
父节点
当前提交
1f0510925c
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      ide/fpcompil.pas

+ 5 - 2
ide/fpcompil.pas

@@ -400,7 +400,7 @@ begin
 {$ifdef COMPILER_1_0}
 {$ifdef COMPILER_1_0}
   if AClass>=V_Info then
   if AClass>=V_Info then
 {$else}
 {$else}
-  if (AClass and V_LineInfo)=V_LineInfo then
+  if (AClass and V_LineInfo)<>V_LineInfo then
 {$endif}
 {$endif}
     Line:=0;
     Line:=0;
   MsgLB^.AddItem(New(PCompilerMessage,Init(AClass, Msg, MsgLB^.AddModuleName(Module), Line, Column)));
   MsgLB^.AddItem(New(PCompilerMessage,Init(AClass, Msg, MsgLB^.AddModuleName(Module), Line, Column)));
@@ -1330,7 +1330,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.21  2003-03-27 14:11:53  pierre
+  Revision 1.22  2003-03-28 09:55:46  armin
+  * Fixed TCompilerMessageWindow.AddMessage to see line numbers with 1.1
+
+  Revision 1.21  2003/03/27 14:11:53  pierre
    * fix problem in CompilerComment procedure
    * fix problem in CompilerComment procedure
 
 
   Revision 1.20  2003/01/13 09:05:18  pierre
   Revision 1.20  2003/01/13 09:05:18  pierre