diff options
Diffstat (limited to 'gcc/ada/g-thread.adb')
| -rw-r--r-- | gcc/ada/g-thread.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/g-thread.adb b/gcc/ada/g-thread.adb index 1d71f379ed4..98e663dc978 100644 --- a/gcc/ada/g-thread.adb +++ b/gcc/ada/g-thread.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2003 Ada Core Technologies, Inc. -- +-- Copyright (C) 1998-2004 Ada Core Technologies, 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- -- @@ -47,6 +47,10 @@ package body GNAT.Threads is type Thread_Id_Ptr is access all Thread_Id; + pragma Warnings (Off); + -- The following unchecked conversions are aliasing safe, since they + -- are never used to create pointers to improperly aliased data. + function To_Addr is new Unchecked_Conversion (Task_Id, Address); function To_Id is new Unchecked_Conversion (Address, Task_Id); function To_Id is new Unchecked_Conversion (Address, Tasking.Task_ID); @@ -54,6 +58,8 @@ package body GNAT.Threads is (Address, Ada.Task_Identification.Task_Id); function To_Thread is new Unchecked_Conversion (Address, Thread_Id_Ptr); + pragma Warnings (On); + type Code_Proc is access procedure (Id : Address; Parm : Void_Ptr); task type Thread |