Skip to content

R
riscv-gcc-1
Commit fbfc8ef0 by Arnaud Charlet
Options

Use Task_Address instead of System.Address. 

From-SVN: r134070
parent 5d9b8bb4
Showing with 3 additions and 2 deletions
gcc/ada/s-tasuti.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -35,11 +35,12 @@ ...@@ -35,11 +35,12 @@
-- These declarations are not part of the GNARLI -- These declarations are not part of the GNARLI
with Ada.Unchecked_Conversion; with Ada.Unchecked_Conversion;
with System.Task_Primitives;
package System.Tasking.Utilities is package System.Tasking.Utilities is
function ATCB_To_Address is new 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 -- -- Task_Stage Related routines --
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment