diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 09:51:08 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 09:51:08 +0200 |
| commit | 2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4 (patch) | |
| tree | a8ac044fa68b27fb08b03dcef40c1e31eadc0c99 /gcc/ada/a-fihema.adb | |
| parent | 824e9320157031e3969aabe742cfddd38a0513cd (diff) | |
| download | gcc-2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4.zip gcc-2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4.tar.gz gcc-2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4.tar.bz2 | |
[multiple changes]
2011-08-04 Robert Dewar <dewar@adacore.com>
* par_sco.adb, prj-proc.adb, make.adb, bindgen.adb, prj.adb, prj.ads,
makeutl.adb, makeutl.ads, prj-nmsc.adb, exp_ch5.adb, exp_ch12.adb,
exp_ch7.ads, exp_util.ads, sem_util.ads, g-comlin.ads, exp_ch6.adb,
exp_ch6.ads, lib-xref.ads, exp_ch7.adb, exp_util.adb, exp_dist.adb,
exp_strm.adb, gnatcmd.adb, freeze.adb, g-comlin.adb, lib-xref-alfa.adb,
sem_attr.adb, sem_prag.adb, sem_util.adb, sem_elab.adb, sem_ch8.adb,
sem_ch11.adb, sem_eval.adb, sem_ch13.adb, sem_disp.adb, a-fihema.adb:
Minor reformatting and code reorganization.
2011-08-04 Emmanuel Briot <briot@adacore.com>
* projects.texi: Added doc for aggregate projects.
From-SVN: r177320
Diffstat (limited to 'gcc/ada/a-fihema.adb')
| -rw-r--r-- | gcc/ada/a-fihema.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/a-fihema.adb b/gcc/ada/a-fihema.adb index ab0e273..d44d1db 100644 --- a/gcc/ada/a-fihema.adb +++ b/gcc/ada/a-fihema.adb @@ -45,6 +45,7 @@ package body Ada.Finalization.Heap_Management is Header_Size : constant Storage_Count := Node'Size / Storage_Unit; Header_Offset : constant Storage_Offset := Header_Size; + -- Comments needed??? function Address_To_Node_Ptr is new Ada.Unchecked_Conversion (Address, Node_Ptr); @@ -144,6 +145,7 @@ package body Ada.Finalization.Heap_Management is N.Prev := L; Unlock_Task.all; + exception when others => Unlock_Task.all; @@ -230,6 +232,7 @@ package body Ada.Finalization.Heap_Management is end if; Unlock_Task.all; + exception when others => Unlock_Task.all; |