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/stringt.ads | |
| 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/stringt.ads')
| -rw-r--r-- | gcc/ada/stringt.ads | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/stringt.ads b/gcc/ada/stringt.ads index 7fb4725..7f96df0 100644 --- a/gcc/ada/stringt.ads +++ b/gcc/ada/stringt.ads @@ -63,12 +63,13 @@ package Stringt is -- Unlock internal tables, in case back end needs to modify them procedure Mark; - -- Take a snapshot of the internal tables + -- Take a snapshot of the internal tables. Used in conjunction with Release + -- when computing temporary string values that need not be preserved. procedure Release; -- Restore the internal tables to the situation when Mark was last called. - -- Mark and Release are used when getting checksums of sources in minimal - -- recompilation mode, to reduce memory usage. + -- If Release is called with no prior call to Mark, the entire string table + -- is cleared to its initial (empty) setting. procedure Start_String; -- Sets up for storing a new string in the table. To store a string, a |