diff --git a/compiler/verbose.pas b/compiler/verbose.pas index 246ebe4a07..470968041e 100644 --- a/compiler/verbose.pas +++ b/compiler/verbose.pas @@ -118,7 +118,7 @@ interface implementation uses - comphook,fmodule,constexp,globals; + comphook,fmodule,constexp,globals,cfileutl; {**************************************************************************** Extra Handlers for default compiler @@ -422,6 +422,9 @@ implementation status.currentmodulestate:=ModuleStateStr[module.state]; status.currentsource:=module.sourcefiles.get_file_name(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 } if status.currentsource<>'' then