mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 09:06:02 +02:00
* reset c in dir_include if it will be re-read
git-svn-id: trunk@34786 -
This commit is contained in:
parent
7293bb7fdb
commit
8c701eaa7b
@ -2489,6 +2489,8 @@ type
|
||||
inc(current_scanner.inputfilecount);
|
||||
{ we need to reread the current char }
|
||||
dec(current_scanner.inputpointer);
|
||||
{ reset c }
|
||||
c:=#0;
|
||||
{ shutdown current file }
|
||||
current_scanner.tempcloseinputfile;
|
||||
{ load new file }
|
||||
|
Loading…
Reference in New Issue
Block a user