* Fix bug #37533: extra type section starts

git-svn-id: trunk@46350 -

packages/fcl-passrc/src/paswrite.pp

@@ -819,7 +819,9 @@ begin
     end;
   AddLn(Temp);
   IncIndent;
+  IncDeclSectionLevel;
   WriteMembers(AType.Members,visPublic);
+  DecDeclSectionLevel;
   DecIndent;
   Add('end');
 end;