paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 17:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed create relative paths without shared based directory

Browse Source 
git-svn-id: trunk@42874 -
This commit is contained in:
Mattias Gaertner 2019-08-30 03:47:22 +00:00
parent 73ba1e6292
commit f741c85283
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/pas2jsfilecache.pp
View File

@ -1810,7 +1810,7 @@ function TPas2jsFilesCache.TryCreateRelativePath(const Filename, BaseDirectory:
UsePointDirectory: boolean; out RelPath: String): Boolean; UsePointDirectory: boolean; out RelPath: String): Boolean;
begin begin
Result:=Pas2jsFileUtils.TryCreateRelativePath(Filename, BaseDirectory, Result:=Pas2jsFileUtils.TryCreateRelativePath(Filename, BaseDirectory,
UsePointDirectory, true, RelPath); UsePointDirectory, false, RelPath);
end; end;
function TPas2jsFilesCache.FindIncludeFileName(const aFilename, function TPas2jsFilesCache.FindIncludeFileName(const aFilename,