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

* if an include file name ends in dot, and the file is not found, also search

Browse Source 
for the file name without the dot. So, for example, if the code contains
  {$I MPAL256.} and 'MPAL256.' is not found, search also for 'MPAL256'

git-svn-id: trunk@39316 -
This commit is contained in:
nickysn 2018-06-27 14:41:06 +00:00
parent 7a6fed75a0
commit a38e9ff12e
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/scanner.pas
View File

@ -2524,6 +2524,9 @@ type
if (not found) then
found:=findincludefile(path,ChangeFileExt(name,pasext),foundfile);
end;
{ if the name ends in dot, try without the dot }
if (not found) and (ExtractFileExt(name)=ExtensionSeparator) and (Length(name)>=2) then
found:=findincludefile(path,Copy(name,1,Length(name)-1),foundfile);
if current_scanner.inputfilecount<max_include_nesting then
begin
inc(current_scanner.inputfilecount);