Explorar o código

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

git-svn-id: trunk@34786 -
florian %!s(int64=8) %!d(string=hai) anos
pai
achega
8c701eaa7b
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      compiler/scanner.pas

+ 2 - 0
compiler/scanner.pas

@@ -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 }