Преглед изворни кода

* reset c in dir_include if it will be re-read

git-svn-id: trunk@34786 -
florian пре 8 година
родитељ
комит
8c701eaa7b
1 измењених фајлова са 2 додато и 0 уклоњено
  1. 2 0
      compiler/scanner.pas

+ 2 - 0
compiler/scanner.pas

@@ -2489,6 +2489,8 @@ type
                inc(current_scanner.inputfilecount);
                inc(current_scanner.inputfilecount);
                { we need to reread the current char }
                { we need to reread the current char }
                dec(current_scanner.inputpointer);
                dec(current_scanner.inputpointer);
+               { reset c }
+               c:=#0;
                { shutdown current file }
                { shutdown current file }
                current_scanner.tempcloseinputfile;
                current_scanner.tempcloseinputfile;
                { load new file }
                { load new file }