[gcc.git] / gcc / ada / final.c

/****************************************************************************
 *                                                                          *
 *                         GNAT COMPILER COMPONENTS                         *
 *                                                                          *
 *                               F I N A L                                  *
 *                                                                          *
 *                          C Implementation File                           *
 *                                                                          *
 *          Copyright (C) 1992-2003 Free Software Foundation, Inc.          *
 *                                                                          *
 * GNAT is free software;  you can  redistribute it  and/or modify it under *
 * terms of the  GNU General Public License as published  by the Free Soft- *
 * ware  Foundation;  either version 2,  or (at your option) any later ver- *
 * sion.  GNAT is distributed in the hope that it will be useful, but WITH- *
 * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *
 * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License *
 * for  more details.  You should have  received  a copy of the GNU General *
 * Public License  distributed with GNAT;  see file COPYING.  If not, write *
 * to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, *
 * MA 02111-1307, USA.                                                      *
 *                                                                          *
 * As a  special  exception,  if you  link  this file  with other  files to *
 * produce an executable,  this file does not by itself cause the resulting *
 * executable to be covered by the GNU General Public License. This except- *
 * ion does not  however invalidate  any other reasons  why the  executable *
 * file might be covered by the  GNU Public License.                        *
 *                                                                          *
 * GNAT was originally developed  by the GNAT team at  New York University. *
 * Extensive contributions were provided by Ada Core Technologies Inc.      *
 *                                                                          *
 ****************************************************************************/

extern void __gnat_finalize (void);

/* This routine is called at the extreme end of execution of an Ada program
   (the call is generated by the binder). The standard routine does nothing
   at all, the intention is that this be replaced by system specific code
   where finalization is required. */

void
__gnat_finalize ()
{
}
Commit	Line	Data
70482933 RK	1	/****************************************************************************
	2	* *
	3	* GNAT COMPILER COMPONENTS *
	4	* *
fbf5a39b	5	* F I N A L *
70482933 RK	6	* *
	7	* C Implementation File *
	8	* *
fbf5a39b	9	* Copyright (C) 1992-2003 Free Software Foundation, Inc. *
70482933 RK	10	* *
	11	* GNAT is free software; you can redistribute it and/or modify it under *
	12	* terms of the GNU General Public License as published by the Free Soft- *
	13	* ware Foundation; either version 2, or (at your option) any later ver- *
	14	* sion. GNAT is distributed in the hope that it will be useful, but WITH- *
	15	* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
	16	* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
	17	* for more details. You should have received a copy of the GNU General *
	18	* Public License distributed with GNAT; see file COPYING. If not, write *
	19	* to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, *
	20	* MA 02111-1307, USA. *
	21	* *
	22	* As a special exception, if you link this file with other files to *
	23	* produce an executable, this file does not by itself cause the resulting *
	24	* executable to be covered by the GNU General Public License. This except- *
	25	* ion does not however invalidate any other reasons why the executable *
	26	* file might be covered by the GNU Public License. *
	27	* *
	28	* GNAT was originally developed by the GNAT team at New York University. *
71ff80dc	29	* Extensive contributions were provided by Ada Core Technologies Inc. *
70482933 RK	30	* *
	31	****************************************************************************/
	32
fbf5a39b	33	extern void __gnat_finalize (void);
70482933 RK	34
	35	/* This routine is called at the extreme end of execution of an Ada program
	36	(the call is generated by the binder). The standard routine does nothing
	37	at all, the intention is that this be replaced by system specific code
	38	where finalization is required. */
	39
	40	void
	41	__gnat_finalize ()
	42	{
	43	}