Allow to build in 64bits mode.

1 files changed, 5 insertions, 5 deletions

diff --git a/ortho/mcode/binary_file-memory.adb b/ortho/mcode/binary_file-memory.adb
index 6e25f670d..4d5f74024 100644
--- a/ortho/mcode/binary_file-memory.adb
+++ b/ortho/mcode/binary_file-memory.adb
@@ -22,12 +22,13 @@ package body Binary_File.Memory is
    --  Absolute section.
    Sect_Abs : Section_Acc;
 
+   function To_Pc_Type is new Ada.Unchecked_Conversion
+     (Source => System.Address, Target => Pc_Type);
+
    procedure Set_Symbol_Address (Sym : Symbol; Addr : System.Address)
    is
-      function Conv is new Ada.Unchecked_Conversion
-        (Source => System.Address, Target => Pc_Type);
    begin
-      Set_Symbol_Value (Sym, Conv (Addr));
+      Set_Symbol_Value (Sym, To_Pc_Type (Addr));
       Set_Scope (Sym, Sym_Global);
       Set_Section (Sym, Sect_Abs);
    end Set_Symbol_Address;
@@ -40,7 +41,6 @@ package body Binary_File.Memory is
 
    procedure Write_Memory_Relocate (Error : out Boolean)
    is
-      use SSE;
       Sect : Section_Acc;
       Rel : Reloc_Acc;
       N_Rel : Reloc_Acc;
@@ -58,7 +58,7 @@ package body Binary_File.Memory is
             end if;
          end if;
          if Sect.Data_Max > 0 and Sect /= Sect_Abs then
-            Sect.Vaddr := To_Integer (Sect.Data (0)'Address);
+            Sect.Vaddr := To_Pc_Type (Sect.Data (0)'Address);
          end if;
          Sect := Sect.Next;
       end loop;