From efd90a681f1c34cbb648f166fc9a5b0af6adee34 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 8 Apr 2008 09:10:44 +0200
Subject: [PATCH] Use Task_Address.
From-SVN: r134077
---
gcc/ada/a-taside.adb | 4 +++-
gcc/ada/s-tasdeb.adb | 5 +++--
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/gcc/ada/a-taside.adb b/gcc/ada/a-taside.adb
index e9431d164993..600425c39966 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 05719426d243..8146b97726ab 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;
--
GitLab