r138771 - /trunk/gcc/ada/s-stausa.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Wed Aug  6 08:32:09 2008
New Revision: 138771

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=138771
Log:
2008-08-06  Quentin Ochem  <ochem@adacore.com>

	* s-stausa.adb (Fill_Stack): Fixed pragma assert and top pattern mark
	in the case of an empty pattern size.
	(Compute_Result): Do not do any computation in the case of an empty
	pattern size.
	(Report_Result): Fixed computation of the overflow guard.


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