r123601 - /trunk/gcc/ada/s-tpobop.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Apr  6 10:27:53 2007
New Revision: 123601

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123601
Log:
	* s-tpobop.adb (Exceptional_Complete_Entry_Body): Undefer abortion
	before propagating exception.

Modified:
    trunk/gcc/ada/s-tpobop.adb