diff options
Diffstat (limited to 'gcc/ada/g-sttsne-locking.adb')
| -rw-r--r-- | gcc/ada/g-sttsne-locking.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/g-sttsne-locking.adb b/gcc/ada/g-sttsne-locking.adb index 5153fb79233..622587123ee 100644 --- a/gcc/ada/g-sttsne-locking.adb +++ b/gcc/ada/g-sttsne-locking.adb @@ -31,12 +31,20 @@ -- -- ------------------------------------------------------------------------------ +-- This version is used on VMS and LynxOS + with GNAT.Task_Lock; with Interfaces.C; use Interfaces.C; package body GNAT.Sockets.Thin.Task_Safe_NetDB is + -- The Safe_GetXXXbyYYY routines wrap the Nonreentrant_ versions using the + -- task lock, and copy the relevant data structures (under the lock) into + -- the result. The Nonreentrant_ versions are expected to be in the parent + -- package GNAT.Sockets.Thin (on platforms that use this version of + -- Task_Safe_NetDB). + procedure Copy_Host_Entry (Source_Hostent : Hostent; Target_Hostent : out Hostent; |