Commit f3beca5c authored by hugues.jerome's avatar hugues.jerome Committed by yoogx

* Restore to a clean state


git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@675 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 99f4c9db
......@@ -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
is
use System;
begin
......@@ -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);
begin
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);
begin
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().
......
Markdown is supported
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