mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-02 05:50:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use Task_Address instead of System.Address.

Browse Source 
From-SVN: r134070
This commit is contained in:
Arnaud Charlet 2008-04-08 09:01:24 +02:00
parent 5d9b8bb411
commit fbfc8ef033
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/s-tasuti.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- Copyright (C) 1992-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- --
@ -35,11 +35,12 @@
-- These declarations are not part of the GNARLI
with Ada.Unchecked_Conversion;
with System.Task_Primitives;
package System.Tasking.Utilities is
function ATCB_To_Address is new
Ada.Unchecked_Conversion (Task_Id, System.Address);
Ada.Unchecked_Conversion (Task_Id, System.Task_Primitives.Task_Address);
---------------------------------
-- Task_Stage Related routines --