-- Bug handling -- Copyright (C) 2002, 2003, 2004, 2005 Tristan Gingold -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation, either version 2 of the License, or -- (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- GNU General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . with Ada.Exceptions; use Ada.Exceptions; package Bug is -- Display a bug box for EXCEPT. procedure Disp_Bug_Box (Except : Exception_Occurrence); -- Get the gnat version used to bind the unit. function Get_Gnat_Version return String; end Bug; aster [no description]
aboutsummaryrefslogtreecommitdiffstats
path: root/.gitignore
blob: 07bbf13db1229e1c011943ee1a38be75ef08ab6a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31