#
#  $Id$
#

This directory contains a simple example program to demonstrate
the stack checking capabilities of the GNAT Run-Time System
in conjunction with RTEMS.  In this example, a recursive procedure
is called until we run out of stack space.  The GNAT RTS invokes
the standard RTEMS dynamic stack checking routine,
rtems_stack_checker_is_blown, which checks the current stack pointer
and the pattern area for damage.  If either indicates a blown
stack, then a message is printed and an indication of the blown
stack is returned to GNAT which raises an Ada exception.