g-dirope.adb (Remove_Dir): In case we are removing directories recursively...
authorFlorian Villoing <villoing@adacore.com>
Wed, 26 Sep 2007 10:44:16 +0000 (12:44 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 26 Sep 2007 10:44:16 +0000 (12:44 +0200)
commit37d54b99bf0547aaf22ba1929c81354c7ea89514
treea9b7b5e8ada88d38fc353bedb861d9539ba2c732
parentda2ac8c26f63fbe1d5d2c4ff23b99e81967873ff
g-dirope.adb (Remove_Dir): In case we are removing directories recursively...

2007-09-26  Florian Villoing  <villoing@adacore.com>

* g-dirope.adb (Remove_Dir): In case we are removing directories
recursively, make sure that if an exception is raised during the
processing, the current working directory is reset to its initial
value before propagating the exception.

From-SVN: r128792
gcc/ada/g-dirope.adb