emacs_ada_mode_8.1.0_114ab44a/test/ada_mode-recover_exception_1.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
--  From a real editing session.

--EMACSCMD:(setq skip-recase-test t)
package body Ada_Mode.Recover_Exception_1 is

   function All_Frames (File : in SMM.ID3.File) return Frame_Lists.List
   is
   begin
      File_Header'Read (Stream, File_Head);

   exception
      when E : SAL.Not_Implemented | SAL.Invalid_Format =>
         declare
            use Ada.Exceptions;
            -- Missing 'begin'
            Raise_Exception (Ada.Exceptions.Exception_ID (E), Name (File.Stream) & ": " &
                               Ada.Exceptions.Exception_Message (E));
         -- Missing 'end;'
   end All_Frames;

end Ada_Mode.Recover_Exception_1;
-- Local Variables:
-- ada-end-name-optional: nil
-- End: