* forward declarations of helper types are not allowed, so enforce them by trying to parse a "for"; fixes access violation of thlp9.pp

git-svn-id: trunk@34459 -

compiler/pdecobj.pas

@@ -1450,6 +1450,8 @@ implementation
         if not assigned(fd) and
            (token=_SEMICOLON) then
           begin
+            if is_objectpascal_helper(current_structdef) then
+              consume(_FOR);
             { add to the list of definitions to check that the forward
               is resolved. this is required for delphi mode }
             current_module.checkforwarddefs.add(current_structdef);