From a013d19c367adaaf6d53c70e268756fd08f875a8 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Fri, 6 Sep 2002 14:58:42 +0000
Subject: [PATCH]   * bugfix of bug report 2072 (merged)

---
 compiler/scanner.pas | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 1dbf508b70..3c4bd79997 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -1740,6 +1740,23 @@ implementation
                  inc_comment_level;
                  incomment:=true;
                end;
+             '*' :
+               begin
+                 if incomment then
+                   begin
+                     readchar;
+                     if c=')' then
+                       begin
+                         dec_comment_level;
+                         found:=0;
+                         incomment:=false;
+                       end
+                     else
+                       next_char_loaded:=true;
+                   end
+                 else
+                   found := 0;
+               end;
              '}' :
                begin
                  dec_comment_level;
@@ -2781,7 +2798,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.46  2002-09-05 19:27:05  peter
+  Revision 1.47  2002-09-06 14:58:42  carl
+    * bugfix of bug report 2072 (merged)
+
+  Revision 1.46  2002/09/05 19:27:05  peter
     * fixed crash when current_module becomes nil
 
   Revision 1.45  2002/09/05 14:17:27  pierre