diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-06 09:33:04 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-06 09:33:04 +0000 |
| commit | 9f4f71bdf651a7aba201068e50ec4a9fb1b1dbd4 (patch) | |
| tree | a384c06f4c493401d5df423f92cdcf6f98ef5e59 /gcc/ada/s-fileio.adb | |
| parent | 17953e50b8ee679e0a41de4783bdddd26c13fd0b (diff) | |
| download | gcc-9f4f71bdf651a7aba201068e50ec4a9fb1b1dbd4.tar.gz | |
2009-05-06 Gary Dismukes <dismukes@adacore.com>
* sem_aggr.adb: Fix typo.
2009-05-06 Thomas Quinot <quinot@adacore.com>
* exp_ch3.adb (Expand_N_Object_Declaration): For a controlled object
declaration, do not adjust if the declaration is to be rewritten into
a renaming.
2009-05-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Find_Type): Reject the use of a task type in its own
discriminant part.
2009-05-06 Bob Duff <duff@adacore.com>
* s-fileio.adb (File_IO_Clean_Up_Type): Make this type limited, since
otherwise the compiler would be allowed to optimize away the cleanup
code.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147163 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index b3084775ff1..fd7adfd7044 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -73,12 +73,12 @@ package body System.File_IO is -- Points to list of names of temporary files. Note that this global -- variable must be properly protected to provide thread safety. - type File_IO_Clean_Up_Type is new Controlled with null record; + type File_IO_Clean_Up_Type is new Limited_Controlled with null record; -- The closing of all open files and deletion of temporary files is an - -- action which takes place at the end of execution of the main program. - -- This action can be implemented using a library level object which - -- gets finalized at the end of the main program execution. The above is - -- a controlled type introduced for this purpose. + -- action that takes place at the end of execution of the main program. + -- This action is implemented using a library level object which gets + -- finalized at the end of program execution. Note that the type should be + -- limited, in order to avoid unwanted optimizations. procedure Finalize (V : in out File_IO_Clean_Up_Type); -- This is the finalize operation that is used to do the cleanup |