瀏覽代碼

* 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);
                { we need to reread the current char }
                dec(current_scanner.inputpointer);
+               { reset c }
+               c:=#0;
                { shutdown current file }
                current_scanner.tempcloseinputfile;
                { load new file }