package body Ada_Mode is
   --EMACSCMD:(wisi-prj-select-cache (cl-ecase ada-xref-tool (gpr_query "ada_mode.gpr") (gnat "ada_mode-gnatxref.prj")) (ada-prj-default))

   protected body Separate_Protected_Body is separate;

   task Separate_Task_Body is
      entry Please_Abort;
   end;

   task body Separate_Task_Body is separate;

   -- WORKAROUND: prior to GNAT 2016, this went to
   -- ada_mode-separate_procedure.adb. Now it goes to ada_mode.ads.
   --
   --EMACSCMD:(progn (forward-line 2)(forward-word 2)(xref-find-definitions (xref-backend-identifier-at-point (xref-find-backend)))(looking-at "Separate_Procedure;"))
   --EMACSRESULT:t
   procedure Separate_Procedure is separate;

   function Separate_Function return Integer is separate;
   --EMACSCMD:ada-auto-case
   --EMACSRESULT:t
   --EMACSCMD:(progn (forward-line 2)(forward-word 1)(downcase-word 2)(execute-kbd-macro " ")(delete-char -1)(let ((case-fold-search nil))(looking-back "Ada_Mode")))
   --EMACSRESULT:t
end Ada_Mode;
-- Local Variables:
-- ada-auto-case: t
-- ada-xref-full-path: nil
-- End:
