Browse Source

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

git-svn-id: trunk@34786 -
florian 8 năm trước cách đây
mục cha
commit
8c701eaa7b
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  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 }