فهرست منبع

* check hints at end of class.

git-svn-id: trunk@15703 -
marco 15 سال پیش
والد
کامیت
bea7ff9971
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  1. 2 1
      packages/fcl-passrc/src/pparser.pp

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

@@ -3259,7 +3259,8 @@ begin
         NextToken;
       end;
       // Eat semicolon after class...end
-      ExpectToken(tkSemicolon);
+      CheckHint(result,true);
+//      ExpectToken(tkSemicolon);
     end;
   except
     Result.Free;