paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write ppu+source file name in case the source file is not available instead of inserting an invalid absolute path, resolves #27588

Browse Source 
git-svn-id: trunk@30242 -
This commit is contained in:
florian 2015-03-15 19:51:17 +00:00
parent f07969245b
commit f6f8e1b83e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/verbose.pas
View File

@ -438,7 +438,7 @@ implementation
Procedure UpdateStatus; Procedure UpdateStatus;
var var
module : tmodulebase; module : tmodule;
begin begin
{ fix status } { fix status }
status.currentline:=current_filepos.line; status.currentline:=current_filepos.line;
@ -454,8 +454,12 @@ 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 sources are not available, construct a prefix from the
ppu file name }
if not(module.sources_avail) then
status.currentsourcepath:=module.ppufilename+':'
{ if currentsourcepath is relative, make it absolute } { if currentsourcepath is relative, make it absolute }
if not path_absolute(status.currentsourcepath) then else if not path_absolute(status.currentsourcepath) then
status.currentsourcepath:=GetCurrentDir+status.currentsourcepath; status.currentsourcepath:=GetCurrentDir+status.currentsourcepath;
{ update lastfileidx only if name known PM } { update lastfileidx only if name known PM }