OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use Task_Address. 

From-SVN: r134077
This commit is contained in:
Arnaud Charlet 2008-04-08 09:10:44 +02:00
parent 7fee006f03
commit efd90a681f
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/a-taside.adb
View File

@ -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

5
gcc/ada/s-tasdeb.adb
View File

@ -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;