diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 07:10:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 07:10:44 +0000 |
| commit | c03d3a5aa2a39ef4a1e3bfa6d515088ad1433900 (patch) | |
| tree | 67503c556ba95f18c032665f4ea9ba0c193bdce2 /gcc/ada | |
| parent | 388b11708dfa428411b8e058732fde04f9c24485 (diff) | |
| download | ppe42-gcc-c03d3a5aa2a39ef4a1e3bfa6d515088ad1433900.tar.gz ppe42-gcc-c03d3a5aa2a39ef4a1e3bfa6d515088ad1433900.zip | |
Use Task_Address.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134077 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -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 e9431d16499..600425c3996 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 05719426d24..8146b97726a 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; |
