浏览代码

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

florian 3 年之前
父节点
当前提交
4b157a1498
共有 1 个文件被更改,包括 5 次插入5 次删除
  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