mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 04:59:26 +02:00
* Create instance of tdosinputfile instead of tinputfile to prevent warning about abstract methods.
git-svn-id: trunk@11452 -
This commit is contained in:
parent
8ce526d760
commit
578c91f69d
@ -778,7 +778,7 @@ uses
|
||||
sources_avail:=false;
|
||||
temp:=' not found';
|
||||
end;
|
||||
hp:=tinputfile.create(hs);
|
||||
hp:=tdosinputfile.create(hs);
|
||||
{ the indexing is wrong here PM }
|
||||
sourcefiles.register_file(hp);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user