paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 20:20:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't write line if no sourcefile is set

Browse Source
This commit is contained in:
peter 1998-08-11 14:02:45 +00:00
parent 86b6ed3db6
commit 6b3f286443
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/comphook.pas
View File

@ -191,7 +191,7 @@ begin
if (status.verbosity and Level)=V_Fatal then
hs:=rh_errorstr;
end;
if (Level<=V_ShowFile) and (status.currentline>0) then
if (Level<=V_ShowFile) and (status.currentsource<>'') and (status.currentline>0) then
begin
{ Adding the column should not confuse RHIDE,
even if it does not yet use it PM }
@ -234,7 +234,10 @@ end;
end.
{
$Log$
Revision 1.1 1998-08-10 10:18:24 peter
Revision 1.2 1998-08-11 14:02:45 peter
* don't write line if no sourcefile is set
Revision 1.1 1998/08/10 10:18:24 peter
+ Compiler,Comphook unit which are the new interface units to the
compiler