diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:52:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:52:31 +0000 |
| commit | a3b0f4f26356db30f321565f7d870bbf0a4d9264 (patch) | |
| tree | 8de2d7a758b4c72527820d1727aff206e36216e1 /gcc/ada/s-tasini.adb | |
| parent | 1a78b9f40cd539a3d42f6e356bfa00b9317f30a3 (diff) | |
| download | ppe42-gcc-a3b0f4f26356db30f321565f7d870bbf0a4d9264.tar.gz ppe42-gcc-a3b0f4f26356db30f321565f7d870bbf0a4d9264.zip | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106957 138bc75d-0d04-0410-961f-82ee72b054a4
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 3aff42725cc..63b47e7b9e7 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. |
