← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/adacontrol/jaunty

« back to all changes in this revision

Viewing changes to test/t_simplifiable_statements-test_handler.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2008-04-27 15:25:59 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20080427152559-qrlic533a1x02flu
Tags: 1.8r8-1

* New upstream version.
* debian/adacontrol.gpr: delete; use upstream's project file instead.
* patches/build.patch: patch upstream's project file to change Object_Dir
  and Exec_Dir.
* Build-depend on asis 2007 and gnat-4.3.
* Add support for mips, mipsel and ppc64.
* Build and provide ptree.
* ptree.1: new.
* adactl.1: update; new options and rules are available.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_simplifiable_statements-test_handler.adb
 
1
separate (T_Simplifiable_Statements)
 
2
procedure Test_Handler is
 
3
   I : Integer;
 
4
begin
 
5
   -- No when others
 
6
   begin
 
7
      null;
 
8
   exception
 
9
      when Constraint_Error =>
 
10
         null;
 
11
      when Tasking_Error =>   -- Handler
 
12
         raise;
 
13
      when Storage_Error =>
 
14
         I := 1;
 
15
         raise;
 
16
   end;
 
17
 
 
18
   -- Trivial when others
 
19
   begin
 
20
      null;
 
21
   exception
 
22
      when Constraint_Error =>
 
23
         null;
 
24
      when Tasking_Error =>  -- Handler
 
25
         raise;
 
26
      when Storage_Error =>
 
27
         I := 1;
 
28
         raise;
 
29
      when others =>         -- Handler
 
30
         raise;
 
31
   end;
 
32
 
 
33
   -- Non trivial when others
 
34
   begin
 
35
      null;
 
36
   exception
 
37
      when Constraint_Error =>
 
38
         null;
 
39
      when Tasking_Error =>
 
40
         raise;
 
41
      when Storage_Error =>
 
42
         I := 1;
 
43
         raise;
 
44
      when others =>
 
45
         I := 1;
 
46
   end;
 
47
end Test_Handler;