Browse Source

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

florian 3 years ago
parent
commit
4b157a1498
1 changed files with 5 additions and 5 deletions
  1. 5 5
      compiler/comphook.pas

+ 5 - 5
compiler/comphook.pas

@@ -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