diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-12-01 14:29:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-12-01 14:29:28 +0100 |
| commit | 08aa9a4a1cc0bb4a94b2612a9818578fc9222cde (patch) | |
| tree | c0ac6a55329023fb31e9b9e80f35357a07004365 /gcc/ada/s-exnint.adb | |
| parent | 80fcc7bcaefc31cabda221cf137b89fdd2d1cf8d (diff) | |
| download | gcc-08aa9a4a1cc0bb4a94b2612a9818578fc9222cde.zip gcc-08aa9a4a1cc0bb4a94b2612a9818578fc9222cde.tar.gz gcc-08aa9a4a1cc0bb4a94b2612a9818578fc9222cde.tar.bz2 | |
[multiple changes]
2003-12-01 Nicolas Setton <setton@act-europe.fr>
* a-except.adb (Raise_Current_Excep): Add a pragma Inspection_Point,
so that the debugger can reliably access the value of the parameter,
and therefore is able to display the exception name when an exception
breakpoint is reached.
2003-12-01 Thomas Quinot <quinot@act-europe.fr>
* fmap.adb: Fix typo in warning message.
* g-socket.ads, g-socket.adb: Make Free a visible instance of
Ada.Unchecked_Deallocation (no need to wrap it in a subprogram).
2003-12-01 Vincent Celier <celier@gnat.com>
* mlib-prj.adb (Build_Library.Process): Do not check a withed unit if
ther is no Afile.
(Build_Library): Get the switches only if Default_Switches is declared
in package Binder.
2003-12-01 Ed Schonberg <schonberg@gnat.com>
* exp_ch6.adb (Expand_Actuals): When applying validity checks to
actuals that are indexed components, reanalyze actual to ensure that
packed array references are properly expanded.
* sem_ch5.adb (Diagnose_Non_Variable_Lhs): Add special case for
attempted assignment to a discriminant.
2003-12-01 Robert Dewar <dewar@gnat.com>
* rtsfind.adb, exp_ch4.adb, s-exnint.ads, s-exnint.adb: Minor
reformatting.
* switch-c.adb: Minor reformatting of comments
2003-12-01 Arnaud Charlet <charlet@act-europe.fr>
* Makefile.in: Clean ups.
2003-12-01 GNAT Script <nobody@gnat.com>
* Make-lang.in: Makefile automatically updated
From-SVN: r74100
Diffstat (limited to 'gcc/ada/s-exnint.adb')
| -rw-r--r-- | gcc/ada/s-exnint.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/s-exnint.adb b/gcc/ada/s-exnint.adb index 4329221..10b51d8 100644 --- a/gcc/ada/s-exnint.adb +++ b/gcc/ada/s-exnint.adb @@ -37,11 +37,7 @@ package body System.Exn_Int is -- Exn_Integer -- ----------------- - function Exn_Integer - (Left : Integer; - Right : Natural) - return Integer - is + function Exn_Integer (Left : Integer; Right : Natural) return Integer is pragma Suppress (Division_Check); pragma Suppress (Overflow_Check); |