diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-04-17 13:07:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 15:07:12 +0200 |
| commit | 74e63df17ebca7c32f7e3379b8e89fed7355545f (patch) | |
| tree | bcc5931e279df440e7ea1990316f56484295866e /gcc/ada/g-moreex.adb | |
| parent | df416fb084c9670e37e20f0e985134ee146d6392 (diff) | |
| download | gcc-74e63df17ebca7c32f7e3379b8e89fed7355545f.tar.gz | |
g-moreex.adb: Add comments.
2009-04-17 Robert Dewar <dewar@adacore.com>
* g-moreex.adb: Add comments.
* s-auxdec.ads: Add ??? comment for uncommented pragma Warnings (Off)
* s-auxdec-vms_64.ads: Add ??? comment for uncommented pragma
Warnings (Off)
* prepcomp.adb: Add ??? comment
* a-tasatt.adb: Minor reformatting
* g-trasym-vms-alpha.adb: Add ??? comment
* g-trasym-vms-ia64.adb: Add ??? comment
* xoscons.adb: Minor reformatting
* s-tassta.adb: Minor reformatting
* s-scaval.adb: Add ??? comment
* stand.ads: Minor code clean up (remove junk with of Namet)
* s-strcom.adb, s-strcom.ads, s-string.adb, s-string.ads, s-sopco3.adb,
s-sopco3.ads, s-strops.adb, s-strops.ads, s-sopco5.adb, s-sopco5.ads,
s-wchcnv.adb, s-wchcnv.ads, s-ststop.adb, s-ststop.ads, s-soflin.adb,
s-soflin.ads, s-traceb.adb, s-traceb.ads, s-traent.adb, s-traent.ads,
s-secsta.adb, s-secsta.ads, s-utf_32.adb, s-utf_32.ads, s-wchcon.adb,
s-wchjis.adb, s-wchcon.ads, s-wchjis.ads, s-sopco4.adb, s-sopco4.ads,
s-stache.adb, s-stache.ads, s-stoele.adb, s-stoele.ads, s-stalib.adb,
s-stalib.ads, s-os_lib.ads, s-purexc.ads: Remove no longer needed
Warnings off pragmas.
From-SVN: r146262
Diffstat (limited to 'gcc/ada/g-moreex.adb')
| -rw-r--r-- | gcc/ada/g-moreex.adb | 39 |
1 files changed, 12 insertions, 27 deletions
diff --git a/gcc/ada/g-moreex.adb b/gcc/ada/g-moreex.adb index e86d378f1dc..ab3a3065524 100644 --- a/gcc/ada/g-moreex.adb +++ b/gcc/ada/g-moreex.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2006, AdaCore -- +-- Copyright (C) 2000-2008, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -47,32 +47,17 @@ package body GNAT.Most_Recent_Exception is use type Ada.Exceptions.Exception_Occurrence_Access; begin - pragma Warnings (Off); - if EOA = null then - return Ada.Exceptions.Null_Occurrence; - else - return EOA.all; - end if; - pragma Warnings (On); - - -- ???Note that both of the above return statements violate the Ada - -- 2005 rule forbidding copying of limited objects (see RM-7.5(2.8/2)). - -- When compiled with -gnatg, the compiler gives a warning instead of - -- an error, so we can turn it off. - -- To fix this, remove the pragmas Warnings above, and use the following - -- code. We can't do that yet, because AI-318 is not yet implemented. - -- - -- return Result : Ada.Exceptions.Exception_Occurrence do - -- if EOA = null then - -- Ada.Exceptions.Save_Occurrence - -- (Target => Result, - -- Source => Ada.Exceptions.Null_Occurrence); - -- else - -- Ada.Exceptions.Save_Occurrence - -- (Target => Result, - -- Source => EOA.all); - -- end if; - -- end return; + return Result : Ada.Exceptions.Exception_Occurrence do + if EOA = null then + Ada.Exceptions.Save_Occurrence + (Target => Result, + Source => Ada.Exceptions.Null_Occurrence); + else + Ada.Exceptions.Save_Occurrence + (Target => Result, + Source => EOA.all); + end if; + end return; end Occurrence; ----------------------- |