소스 검색

+ 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