diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-11-15 14:52:31 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-11-15 14:52:31 +0100 |
| commit | 514c9ddc9c86be9c7728382c5cac164f5ca29527 (patch) | |
| tree | 8de2d7a758b4c72527820d1727aff206e36216e1 /gcc/ada/s-tasini.adb | |
| parent | a7e4a88171b3d27988467de59d6173804c2f8bc4 (diff) | |
| download | gcc-514c9ddc9c86be9c7728382c5cac164f5ca29527.zip gcc-514c9ddc9c86be9c7728382c5cac164f5ca29527.tar.gz gcc-514c9ddc9c86be9c7728382c5cac164f5ca29527.tar.bz2 | |
adaint.h, adaint.c (__gnat_is_cross_compiler): New constant.
* adaint.h, adaint.c (__gnat_is_cross_compiler): New constant.
(Gnat_Install_Locks, __gnatlib_install_locks): Removed, no longer used.
(convert_address): Update comments and list of platforms using this.
* s-tasini.adb (Gnat_Install_Locks, __gnatlib_install_locks): Removed,
no longer used.
From-SVN: r106957
Diffstat (limited to 'gcc/ada/s-tasini.adb')
| -rw-r--r-- | gcc/ada/s-tasini.adb | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gcc/ada/s-tasini.adb b/gcc/ada/s-tasini.adb index 3aff427..63b47e7 100644 --- a/gcc/ada/s-tasini.adb +++ b/gcc/ada/s-tasini.adb @@ -127,13 +127,6 @@ package body System.Tasking.Initialization is -- Tasking Initialization -- ---------------------------- - procedure Gnat_Install_Locks (Lock, Unlock : SSL.No_Param_Proc); - pragma Import (C, Gnat_Install_Locks, "__gnatlib_install_locks"); - -- Used by Init_RTS to install procedure Lock and Unlock for the - -- thread locking. This has no effect on GCC 2. For GCC 3, - -- it has an effect only if gcc is configured with - -- --enable_threads=gnat. - procedure Init_RTS; -- This procedure completes the initialization of the GNARL. The first -- part of the initialization is done in the body of System.Tasking. @@ -392,10 +385,6 @@ package body System.Tasking.Initialization is SSL.Tasking.Init_Tasking_Soft_Links; - -- Install tasking locks in the GCC runtime - - Gnat_Install_Locks (Task_Lock'Access, Task_Unlock'Access); - -- Abort is deferred in a new ATCB, so we need to undefer abort -- at this stage to make the environment task abortable. |