Commit bddf8e38 authored by hugues.jerome's avatar hugues.jerome
Browse files

* Restore to a clean state

git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 9953ace9
......@@ -59,8 +59,8 @@ package body PolyORB_HI.Utils is
-- Swap_Bytes --
function Swap_Bytes (B : Interfaces.Integer_16)
return Interfaces.Integer_16
function Swap_Bytes (B : Interfaces.Unsigned_16)
return Interfaces.Unsigned_16
use System;
......@@ -86,7 +86,7 @@ package body PolyORB_HI.Utils is
function Internal_Code (P : Port_Type) return Unsigned_16 is
function To_Internal_Code is new Ada.Unchecked_Conversion
(Port_Type, Integer_16);
(Port_Type, Unsigned_16);
return Swap_Bytes (To_Internal_Code (P));
end Internal_Code;
......@@ -95,9 +95,9 @@ package body PolyORB_HI.Utils is
-- Corresponding_Port --
function Corresponding_Port (I : Integer_16) return Port_Type is
function Corresponding_Port (I : Unsigned_16) return Port_Type is
function To_Corresponding_Port is new Ada.Unchecked_Conversion
(Integer_16, Port_Type);
(Unsigned_16, Port_Type);
return To_Corresponding_Port (Swap_Bytes (I));
end Corresponding_Port;
......@@ -70,10 +70,10 @@ package PolyORB_HI.Utils is
(Integer_8, Node_Type);
function Internal_Code (P : Port_Type) return Unsigned_16;
function Corresponding_Port (I : Integer_16) return Port_Type;
function Corresponding_Port (I : Unsigned_16) return Port_Type;
function Swap_Bytes (B : Interfaces.Integer_16)
return Interfaces.Integer_16;
function Swap_Bytes (B : Interfaces.Unsigned_16)
return Interfaces.Unsigned_16;
-- Swap bytes iff the host is little endian. This function is
-- notionnally equivalent to htons().
Supports Markdown
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