diff options
| author | Jose Ruiz <ruiz@adacore.com> | 2007-12-13 11:19:55 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:19:55 +0100 |
| commit | a6e8413cd79b5c1775640ed5916eefdcee06af9d (patch) | |
| tree | 824f194b17e9e4fc20003b76cd51c67d9f3feadd /gcc/ada/initialize.c | |
| parent | 561b58498765f443cf6905b7ee246af5a1a0f626 (diff) | |
| download | gcc-a6e8413cd79b5c1775640ed5916eefdcee06af9d.zip gcc-a6e8413cd79b5c1775640ed5916eefdcee06af9d.tar.gz gcc-a6e8413cd79b5c1775640ed5916eefdcee06af9d.tar.bz2 | |
adaint.h: (__gnat_plist_init): Not defined for RTX.
2007-12-06 Jose Ruiz <ruiz@adacore.com>
* adaint.h: (__gnat_plist_init): Not defined for RTX.
* initialize.c (__gnat_initialize): Do not call __gnat_plist_init for
RTX systems.
* Makefile.in: Add new files s-tasinf-linux.ads and s-tasinf-linux.adb.
(LIBGNAT_TARGET_PAIRS, MISCLIB, THREADSLIB,
EXTRA_GNATRTL_NONTASKING_OBJS, EXTRA_GNATRTL_TASKING_OBJS,
GNATLIB_SHARED for RTX run time): Use the versions required by RTX.
* mingw32.h:
Do not define GNAT_UNICODE_SUPPORT for RTX since it is not supported.
* sysdep.c (winflush_function for RTX): Procedure that does nothing
since we only have problems with Windows 95/98, which are not
supported by RTX.
(__gnat_ttyname): Return the empty string on Nucleus, just as
done on vxworks.
From-SVN: r130816
Diffstat (limited to 'gcc/ada/initialize.c')
| -rw-r--r-- | gcc/ada/initialize.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gcc/ada/initialize.c b/gcc/ada/initialize.c index 17a8fc5..a06e98e 100644 --- a/gcc/ada/initialize.c +++ b/gcc/ada/initialize.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2006, Free Software Foundation, Inc. * + * Copyright (C) 1992-2007, 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- * @@ -59,9 +59,14 @@ #include <windows.h> extern void __gnat_init_float (void); -extern void __gnat_plist_init (void); extern void __gnat_install_SEH_handler (void *); +#ifndef RTX +/* Do not define for RTX since it is only used for creating child processes + which is not supported in RTX. */ +extern void __gnat_plist_init (void); +#endif + void __gnat_initialize (void *eh) { @@ -71,9 +76,11 @@ __gnat_initialize (void *eh) given that we have set Max_Digits etc with this in mind */ __gnat_init_float (); +#ifndef RTX /* Initialize a lock for a process handle list - see adaint.c for the implementation of __gnat_portable_no_block_spawn, __gnat_portable_wait */ __gnat_plist_init(); +#endif /* Note that we do not activate this for the compiler itself to avoid a bootstrap path problem. Older version of gnatbind will generate a call |