diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:10:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:10:44 +0200 |
| commit | efd90a681f1c34cbb648f166fc9a5b0af6adee34 (patch) | |
| tree | 67503c556ba95f18c032665f4ea9ba0c193bdce2 /gcc | |
| parent | 7fee006f036543bdbea1bf1d9cc3f201a3cb3f68 (diff) | |
| download | gcc-efd90a681f1c34cbb648f166fc9a5b0af6adee34.zip gcc-efd90a681f1c34cbb648f166fc9a5b0af6adee34.tar.gz gcc-efd90a681f1c34cbb648f166fc9a5b0af6adee34.tar.bz2 | |
Use Task_Address.
From-SVN: r134077
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-taside.adb | 4 | ||||
| -rw-r--r-- | 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 e9431d1..600425c 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 0571942..8146b97 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; |