diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 07:10:44 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 07:10:44 +0000 |
commit | c03d3a5aa2a39ef4a1e3bfa6d515088ad1433900 (patch) | |
tree | 67503c556ba95f18c032665f4ea9ba0c193bdce2 /gcc/ada/a-taside.adb | |
parent | 388b11708dfa428411b8e058732fde04f9c24485 (diff) | |
download | ppe42-gcc-c03d3a5aa2a39ef4a1e3bfa6d515088ad1433900.tar.gz ppe42-gcc-c03d3a5aa2a39ef4a1e3bfa6d515088ad1433900.zip |
Use Task_Address.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134077 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-taside.adb')
-rw-r--r-- | gcc/ada/a-taside.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/a-taside.adb b/gcc/ada/a-taside.adb index e9431d16499..600425c3996 100644 --- a/gcc/ada/a-taside.adb +++ b/gcc/ada/a-taside.adb @@ -34,6 +34,7 @@ with System.Address_Image; with System.Parameters; with System.Soft_Links; +with System.Task_Primitives; with System.Task_Primitives.Operations; with Ada.Unchecked_Conversion; @@ -113,7 +114,8 @@ package body Ada.Task_Identification is function Image (T : Task_Id) return String is function To_Address is new - Ada.Unchecked_Conversion (Task_Id, System.Address); + Ada.Unchecked_Conversion + (Task_Id, System.Task_Primitives.Task_Address); begin if T = Null_Task_Id then |