problems with Ada syntax highlighting and indentation handling

gistfile1.adb

with Ada.Finalization; -- package import

generic -- indent++
   Foo : Integer;
package Bar is -- indend--; indent++
   
   package Child is -- indend++
      type T is new Ada.Finalization.Controlled
        with null record; -- NO package import
   end Child; -- indend--

   generic -- indend++
      F : Float;
   procedure P1; -- indend--

   procedure P1 is -- indent++
      I : Integer;
   begin -- indent--; indent++
      I := 1;
      begin -- indent++
         declare -- indent++
            J : Integer;
         begin -- indent--; indent++
            I := J;
         end; -- indent--
      end; -- indend--
   end P1;

end Bar;