diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-18 19:09:01 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-18 19:09:01 +0000 |
| commit | f1960394e35835c8dd0a479e47f2acd762ddb003 (patch) | |
| tree | 53d550417922bdbac1078e41c834a33a941d6fce | |
| parent | ed9db25649964d2865142ba12507e0b70adff978 (diff) | |
| parent | 682c7b8fbc5c115777301dc73928553bea489dcd (diff) | |
| download | fpc-f1960394e35835c8dd0a479e47f2acd762ddb003.tar.gz | |
# revisions: 45428
git-svn-id: https://svn.freepascal.org/svn/fpc/tags/release_3_2_0@45429 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/scandir.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/scandir.pas b/compiler/scandir.pas index 8728ac4f10..811e8edd74 100644 --- a/compiler/scandir.pas +++ b/compiler/scandir.pas @@ -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; |