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.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/stringt.adb')
| -rw-r--r-- | gcc/ada/stringt.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb index 8d3b2da..c0ec2f1 100644 --- a/gcc/ada/stringt.adb +++ b/gcc/ada/stringt.adb @@ -70,7 +70,7 @@ package body Stringt is -- when Start_String is called with a parameter that is the last string -- currently allocated in the table. - Strings_Last : String_Id := First_String_Id; + Strings_Last : String_Id := First_String_Id; String_Chars_Last : Int := 0; -- Strings_Last and String_Chars_Last are used by procedure Mark and -- Release to get a snapshot of the tables and to restore them to their |