Browse Source

* Patch from Mattias Gaertner
* fixed checking semicolon after a procedure

git-svn-id: trunk@35691 -

michael 8 years ago
parent
commit
f2aebcd595
1 changed files with 3 additions and 1 deletions
  1. 3 1
      packages/fcl-passrc/src/pparser.pp

+ 3 - 1
packages/fcl-passrc/src/pparser.pp

@@ -3735,7 +3735,9 @@ begin
         NextToken
       until CurToken = tkSquaredBraceClose;
       ExpectToken(tkSemicolon);
-      end;
+      end
+    else if CurToken<>tkSemicolon then
+      CheckToken(tkSemicolon);
     Done:=(CurToken=tkSemiColon);
     if Done then
       begin