gnatsupp.c

RTEMS (Real-Time Executive for Multiprocessor Systems) is a free open source real-time operating sys

/*
 *
 * Support for gnat/rtems interrupts and exception handling.
 * Jiri Gaisler, ESA/ESTEC, 17-02-1999.
 *
 *  $Id: gnatsupp.c,v 1.5 2000/12/06 15:44:07 joel Exp $
 */

void __gnat_install_handler_common( int, int );

void
__gnat_install_handler ()
{
  __gnat_install_handler_common (0x1d, 0x15);
}