From 8c701eaa7b91c56a4db0bc96bd3c0080ee9e8e90 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 5 Nov 2016 23:05:39 +0000
Subject: [PATCH] * reset c in dir_include if it will be re-read

git-svn-id: trunk@34786 -
---
 compiler/scanner.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 86c956d830..e00802de02 100644
--- a/compiler/scanner.pas
+++ b/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 }