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

+ print full file path if -vb is passed even if no line number is known, resolves #39419

Browse Source
This commit is contained in:
florian 2021-10-26 21:34:22 +02:00
parent 5c7974fceb
commit 4b157a1498
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/comphook.pas
View File

@ -365,11 +365,6 @@ begin
MsgLocStr:=gccfilename(status.currentsource)+':'+tostr(status.currentline)+':'+tostr(status.currentcolumn)+':'
else
MsgLocStr:=status.currentsource+'('+tostr(status.currentline)+','+tostr(status.currentcolumn)+')';
if status.print_source_path then
if status.sources_avail then
MsgLocStr:=status.currentsourcepath+MsgLocStr
else
MsgLocStr:=status.currentsourceppufilename+':'+MsgLocStr;
end
else
begin
@ -378,6 +373,11 @@ begin
else
MsgLocStr:=status.currentsource+'('+tostr(status.currentline)+')';
end;
if status.print_source_path then
if status.sources_avail then
MsgLocStr:=status.currentsourcepath+MsgLocStr
else
MsgLocStr:=status.currentsourceppufilename+':'+MsgLocStr;
{$else macos}
{ MPW style error }
if status.currentcolumn>0 then