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

* force always printing absolute paths when using -vb (mantis #15783)

Browse Source 
git-svn-id: trunk@15000 -
This commit is contained in:
Jonas Maebe 2010-03-10 10:04:51 +00:00
parent 1eb7bb27f1
commit 43846ca8c9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/verbose.pas
View File

@ -118,7 +118,7 @@ interface
implementation implementation
uses uses
comphook,fmodule,constexp,globals; comphook,fmodule,constexp,globals,cfileutl;
{**************************************************************************** {****************************************************************************
Extra Handlers for default compiler Extra Handlers for default compiler
@ -422,6 +422,9 @@ implementation
status.currentmodulestate:=ModuleStateStr[module.state]; status.currentmodulestate:=ModuleStateStr[module.state];
status.currentsource:=module.sourcefiles.get_file_name(current_filepos.fileindex); status.currentsource:=module.sourcefiles.get_file_name(current_filepos.fileindex);
status.currentsourcepath:=module.sourcefiles.get_file_path(current_filepos.fileindex); status.currentsourcepath:=module.sourcefiles.get_file_path(current_filepos.fileindex);
{ if currentsourcepath is relative, make it absolute }
if not path_absolute(status.currentsourcepath) then
status.currentsourcepath:=GetCurrentDir+status.currentsourcepath;
{ update lastfileidx only if name known PM } { update lastfileidx only if name known PM }
if status.currentsource<>'' then if status.currentsource<>'' then