From 71107624d2814e9b31e5bcf73bd79a29ce10645d Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 2 Feb 1999 16:39:41 +0000
Subject: [PATCH]   * reset c,pattern,orgpattern also at startup

---
 compiler/parser.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/compiler/parser.pas b/compiler/parser.pas
index e13966d74f..7b9832b597 100644
--- a/compiler/parser.pas
+++ b/compiler/parser.pas
@@ -91,6 +91,12 @@ unit parser;
          { global switches }
          aktglobalswitches:=initglobalswitches;
 
+         { scanner }
+         c:=#0;
+         pattern:='';
+         orgpattern:='';
+         current_scanner:=nil;
+
          { memory sizes }
          if heapsize=0 then
           heapsize:=target_info.heapsize;
@@ -443,7 +449,10 @@ unit parser;
 end.
 {
   $Log$
-  Revision 1.67  1999-01-27 13:05:44  pierre
+  Revision 1.68  1999-02-02 16:39:41  peter
+    * reset c,pattern,orgpattern also at startup
+
+  Revision 1.67  1999/01/27 13:05:44  pierre
    * give include file name on error
 
   Revision 1.66  1999/01/23 23:29:35  florian