* fixed some corner cases when parsing nested (* *) comments (mantis #15293)

git-svn-id: trunk@14412 -

.gitattributes

@@ -10132,6 +10132,8 @@ tests/webtbs/tw15088.pp svneol=native#text/plain
 tests/webtbs/tw15169.pp svneol=native#text/plain
 tests/webtbs/tw15207.pp svneol=native#text/plain
 tests/webtbs/tw15274.pp svneol=native#text/plain
+tests/webtbs/tw15293.pp svneol=native#text/plain
+tests/webtbs/tw15293a.pp svneol=native#text/plain
 tests/webtbs/tw15304.pp svneol=native#text/plain
 tests/webtbs/tw1532.pp svneol=native#text/plain
 tests/webtbs/tw1539.pp svneol=native#text/plain

compiler/scanner.pas

@@ -3253,7 +3253,12 @@ In case not, the value returned can be arbitrary.
                    continue;
                  end;
                #10,#13 :
-                 linebreak;
+                 begin
+                   if found=4 then
+                    inc_comment_level;
+                   linebreak;
+                   found:=0;
+                 end;
                '*' :
                  begin
                    if found=3 then
@@ -3270,7 +3275,9 @@ In case not, the value returned can be arbitrary.
                        found:=2
                       else
                        found:=0;
-                    end;
+                    end
+                   else
+                    found:=0;
                  end;
                '(' :
                  begin

tests/webtbs/tw15293.pp

@@ -0,0 +1,5 @@
+{ %norun }
+
+begin
+(* ()* *)
+end.

tests/webtbs/tw15293a.pp

@@ -0,0 +1,4 @@
+begin
+  (*(*
+*)*)
+end.