static void
gnat_parse_file ()
{
/* call the target specific initializations */
__gnat_initialize();
/* Call the front-end elaboration procedures */
adainit ();
immediate_size_expand = 1;
/* Call the front end */
_ada_gnat1drv ();
}
static void
gnat_parse_file (void)
{
int seh[2];
/* Call the target specific initializations. */
__gnat_initialize (NULL);
/* ??? Call the SEH initialization routine. This is to workaround
a bootstrap path problem. The call below should be removed at some
point and the SEH pointer passed to __gnat_initialize() above. */
__gnat_install_SEH_handler((void *)seh);
/* Call the front-end elaboration procedures. */
adainit ();
/* Call the front end. */
_ada_gnat1drv ();
}
