From 2dfadfc8fdaf7a471c39ce1ea18e99b54f74736c Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 14 Nov 2004 15:55:25 +0000
Subject: [PATCH]  * initialise error to false. Why was this not found yet? :-)

---
 packages/base/regexpr/regexpr.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/base/regexpr/regexpr.pp b/packages/base/regexpr/regexpr.pp
index 8dff3f6e91..73ac4e12ce 100644
--- a/packages/base/regexpr/regexpr.pp
+++ b/packages/base/regexpr/regexpr.pp
@@ -435,6 +435,7 @@ unit regexpr;
           if (ref_singleline in flags) and (ref_multiline in flags) then
             exit;
           currentpos:=regexpr;
+	  error:=false;
           new(endp);
           doregister(endp);
           endp^.typ:=ret_illegalend;
@@ -593,7 +594,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2002-09-07 15:42:53  peter
+  Revision 1.3  2004-11-14 15:55:25  marco
+   * initialise error to false. Why was this not found yet? :-)
+
+  Revision 1.2  2002/09/07 15:42:53  peter
     * old logs removed and tabs fixed
 
   Revision 1.1  2002/01/29 17:54:56  peter