2010-06-18 Bob Duff <duff@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Jun 2010 12:49:46 +0000 (12:49 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Jun 2010 12:49:46 +0000 (12:49 +0000)
commit4320e73005b2d4a3a0d85e00e2e52e9614b16442
tree467c97c067919d49de32ef738eadbbd40e45e377
parentce33833341105e3af83afc0f974fb0dcba0ac538
2010-06-18  Bob Duff  <duff@adacore.com>

* g-pehage.ads, g-pehage.adb (Produce): Clean up some of the code.
Raise an exception if the output file cannot be opened. Add comments.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160985 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/g-pehage.adb
gcc/ada/g-pehage.ads