diff options
Diffstat (limited to 'gcc/ada/56tpopsp.adb')
| -rw-r--r-- | gcc/ada/56tpopsp.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/56tpopsp.adb b/gcc/ada/56tpopsp.adb index ece470e6366..ade612c8387 100644 --- a/gcc/ada/56tpopsp.adb +++ b/gcc/ada/56tpopsp.adb @@ -92,11 +92,14 @@ package body Specific is -- tasks. function Self return Task_ID is - Result : Interfaces.C.int; Value : aliased System.Address; + Result : Interfaces.C.int; + pragma Unreferenced (Result); + begin Result := st_getspecific (ATCB_Key, Value'Address); + -- Is it OK not to check this result??? -- If the key value is Null, then it is a non-Ada task. |