diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-12 13:59:32 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-12 13:59:32 +0200 |
| commit | e98668b178c080f9e264011a3af160d02a796a4f (patch) | |
| tree | e3355c65235add255b8c58fb03b9c7982870adc3 /gcc/ada/ali-util.adb | |
| parent | 175a7536b131a2b90213a8ded70437339f4af1e4 (diff) | |
| download | gcc-e98668b178c080f9e264011a3af160d02a796a4f.zip gcc-e98668b178c080f9e264011a3af160d02a796a4f.tar.gz gcc-e98668b178c080f9e264011a3af160d02a796a4f.tar.bz2 | |
[multiple changes]
2012-06-12 Robert Dewar <dewar@adacore.com>
* stringt.adb: Minor reformatting.
2012-06-12 Robert Dewar <dewar@adacore.com>
* ali-util.adb, stringt.ads: Minor reformatting.
2012-06-12 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Process_Declarations): Handle the case where
the original context has been wrapped in a block to avoid
interference between exception handlers and At_End handlers.
(Wrap_HSS_In_Block): Mark the block which contains the original
statements of the context as being a finalization wrapper.
* sinfo.adb (Is_Finalization_Wrapper): New routine.
(Set_Is_Finalization_Wrapper): New routine.
* sinfo.ads: Add new attribute Is_Finalization_Wrapper applicable
to block statemnts.
(Is_Finalization_Wrapper): New routine with corresponding pragma Inline.
(Set_Is_Finalization_Wrapper): New routine with corresponding pragma
Inline.
2012-06-12 Steve Baird <baird@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): No longer need to set
Exception_Extra_Info in CodePeer_Mode.
From-SVN: r188449
Diffstat (limited to 'gcc/ada/ali-util.adb')
| -rw-r--r-- | gcc/ada/ali-util.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb index 40cb1d9..0c2e87d 100644 --- a/gcc/ada/ali-util.adb +++ b/gcc/ada/ali-util.adb @@ -475,7 +475,9 @@ package body ALI.Util is -- of the source file in the table if checksums match. -- ??? It is probably worth updating the ALI file with a new - -- field to avoid recomputing it each time. + -- field to avoid recomputing it each time. In any case we ensure + -- that we don't gobble up string table space by doing a mark + -- release around this computation. Stringt.Mark; @@ -495,7 +497,6 @@ package body ALI.Util is end if; Stringt.Release; - end if; if (not Read_Only) or else Source.Table (Src).Source_Found then |