paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 05:10:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

# revisions: 45428

Browse Source 
git-svn-id: tags/release_3_2_0@45429 -
This commit is contained in:
marco 2020-05-18 19:09:01 +00:00
commit 986622bd58
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/scandir.pas
View File

@ -1495,7 +1495,8 @@ unit scandir;
begin
current_scanner.skipspace;
unitpath:=current_scanner.readcomment;
if current_module.path<>'' then
if (current_module.path<>'') and
not path_absolute(unitpath) then
unitpath:=current_module.path+source_info.DirSep+unitpath;
current_module.localunitsearchpath.AddPath(unitpath,false);
end;