diff options
Diffstat (limited to 'gcc/ada/s-mastop-irix.adb')
| -rw-r--r-- | gcc/ada/s-mastop-irix.adb | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/gcc/ada/s-mastop-irix.adb b/gcc/ada/s-mastop-irix.adb index bbab83327ed..2e3d513bc66 100644 --- a/gcc/ada/s-mastop-irix.adb +++ b/gcc/ada/s-mastop-irix.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Version for IRIX/MIPS) -- -- -- --- Copyright (C) 1999-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2007, Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -39,7 +39,7 @@ with System.Machine_Code; use System.Machine_Code; with System.Memory; with System.Soft_Links; use System.Soft_Links; -with Unchecked_Conversion; +with Ada.Unchecked_Conversion; package body System.Machine_State_Operations is @@ -92,16 +92,19 @@ package body System.Machine_State_Operations is -- within the Sigcontext. function To_Sigcontext_Ptr is - new Unchecked_Conversion (Machine_State, Sigcontext_Ptr); + new Ada.Unchecked_Conversion (Machine_State, Sigcontext_Ptr); type Addr_Int is mod 2 ** Long_Integer'Size; -- An unsigned integer type whose size is the same as System.Address. -- We rely on the fact that Long_Integer'Size = System.Address'Size in -- all ABIs. Type Addr_Int can be converted to Uns64. - function To_Code_Loc is new Unchecked_Conversion (Addr_Int, Code_Loc); - function To_Addr_Int is new Unchecked_Conversion (System.Address, Addr_Int); - function To_Uns32_Ptr is new Unchecked_Conversion (Addr_Int, Uns32_Ptr); + function To_Code_Loc is + new Ada.Unchecked_Conversion (Addr_Int, Code_Loc); + function To_Addr_Int is + new Ada.Unchecked_Conversion (System.Address, Addr_Int); + function To_Uns32_Ptr is + new Ada.Unchecked_Conversion (Addr_Int, Uns32_Ptr); -------------------------------- -- ABI-Dependent Declarations -- @@ -157,7 +160,7 @@ package body System.Machine_State_Operations is type Address_Int is mod 2 ** Standard'Address_Size; function To_I_Type_Ptr is new - Unchecked_Conversion (Address_Int, I_Type_Ptr); + Ada.Unchecked_Conversion (Address_Int, I_Type_Ptr); Ret_Ins : constant I_Type_Ptr := To_I_Type_Ptr (Address_Int (Scp.SC_PC)); GP_Ptr : Uns32_Ptr; |