paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed search inc file

Browse Source
This commit is contained in:
mattias 2022-08-31 19:14:52 +02:00
parent 76aa9b1f8b
commit 89dbfd0d99
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1887,6 +1887,7 @@ function TPas2jsFilesCache.FindIncludeFileName(const aFilename, SrcDir,
i: Integer; i: Integer;
CurFile: String; CurFile: String;
begin begin
Result:=false;
Dir:=IncludeTrailingPathDelimiter(Dir); Dir:=IncludeTrailingPathDelimiter(Dir);
for i:=0 to length(SearchedDir)-1 do for i:=0 to length(SearchedDir)-1 do
if SearchedDir[i]=Dir then exit; if SearchedDir[i]=Dir then exit;