From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 8 Apr 2008 07:10:44 +0000 (+0200)
Subject: Use Task_Address.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=efd90a681f1c34cbb648f166fc9a5b0af6adee34;p=gcc.git

Use Task_Address.

From-SVN: r134077
---

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
diff --git a/gcc/ada/s-tasdeb.adb b/gcc/ada/s-tasdeb.adb
index 05719426d24..8146b97726a 100644
--- a/gcc/ada/s-tasdeb.adb
+++ b/gcc/ada/s-tasdeb.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---          Copyright (C) 1997-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1997-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL 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- --
@@ -40,6 +40,7 @@
 --  in both normal and restricted (ravenscar) environments.
 
 with System.CRTL;
+with System.Task_Primitives;
 with System.Task_Primitives.Operations;
 with Ada.Unchecked_Conversion;
 
@@ -48,7 +49,7 @@ package body System.Tasking.Debug is
    package STPO renames System.Task_Primitives.Operations;
 
    function To_Integer is new
-     Ada.Unchecked_Conversion (Task_Id, System.Address);
+     Ada.Unchecked_Conversion (Task_Id, System.Task_Primitives.Task_Address);
 
    type Trace_Flag_Set is array (Character) of Boolean;