2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@34786 -
florian 8 жил өмнө
parent
commit
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 }