adaint.c (ProcListEvt): Set to NULL.

2015-01-06  Pascal Obry  <obry@adacore.com>

	* adaint.c (ProcListEvt): Set to NULL.
	* rtinit.c: New file.
	(__gnat_rt_init_count): New reference counter set to 0.
	(__gnat_runtime_initialize): Move code here from __gnat_initialize when
	this code is actually needed for the runtime initialization. This
	routine returns immediately if the initialization has already been done.
	* final.c: Revert previous change.
	* rtfinal.c: New file.
	(__gnat_runtime_finalize)[Win32]: Add finalization of the critical
	section and event. The default version of this routine is empty (except
	for the reference counting code). This routine returns immediately if
	some others libraries are referencing the runtime.
	* bindgen.adb (Gen_Adainit): Generate call to Runtime_Initialize
	remove circuitry to initialize the signal handler as this is
	now done by the runtime initialization routine.
	(Gen_Adafinal): Generate call to Runtime_Finalize.
	* gnat_ugn.texi: Update documentation about concurrency and
	initialization/finalization of the run-time.
	* gcc-interface/Makefile.in, gcc-interface/Make-lang.in: Add
	references to rtfinal.o and rtinit.o

From-SVN: r219238

1 files changed, 0 insertions, 18 deletions

diff --git a/gcc/ada/final.c b/gcc/ada/final.c
index dffc2b2..2afcfa5 100644
--- a/gcc/ada/final.c
+++ b/gcc/ada/final.c
@@ -40,28 +40,10 @@ extern void __gnat_finalize (void);
    at all, the intention is that this be replaced by system specific code
    where finalization is required.  */
 
-#if defined (__MINGW32__)
-#include "mingw32.h"
-#include <windows.h>
-
-extern CRITICAL_SECTION ProcListCS;
-extern HANDLE ProcListEvt;
-
-void
-__gnat_finalize (void)
-{
-  /* delete critical section and event handle used for the
-     processes chain list */
-  DeleteCriticalSection(&ProcListCS);
-  CloseHandle (ProcListEvt);
-}
-
-#else
 void
 __gnat_finalize (void)
 {
 }
-#endif
 
 #ifdef __cplusplus
 }