From 9953ace93c8613bd7bc149da81a5c00630db1e5a Mon Sep 17 00:00:00 2001 From: "julien.delange" Date: Fri, 21 May 2010 13:12:18 +0000 Subject: [PATCH] backends previous jerome changes git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@673 129961e7-ef38-4bb5-a8f7-c9a525a55882 --- src/polyorb_hi-utils.adb | 12 ++++++------ src/polyorb_hi-utils.ads | 8 ++++---- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/src/polyorb_hi-utils.adb b/src/polyorb_hi-utils.adb index 3db1b30..825cb0f 100644 --- a/src/polyorb_hi-utils.adb +++ b/src/polyorb_hi-utils.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2009, GET-Telecom Paris. -- +-- Copyright (C) 2009-2010, GET-Telecom Paris. -- -- -- -- PolyORB HI is free software; you can redistribute it and/or modify it -- -- under terms of the GNU General Public License as published by the Free -- @@ -59,8 +59,8 @@ package body PolyORB_HI.Utils is -- Swap_Bytes -- ---------------- - function Swap_Bytes (B : Interfaces.Unsigned_16) - return Interfaces.Unsigned_16 + function Swap_Bytes (B : Interfaces.Integer_16) + return Interfaces.Integer_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, Unsigned_16); + (Port_Type, Integer_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 : Unsigned_16) return Port_Type is + function Corresponding_Port (I : Integer_16) return Port_Type is function To_Corresponding_Port is new Ada.Unchecked_Conversion - (Unsigned_16, Port_Type); + (Integer_16, Port_Type); begin return To_Corresponding_Port (Swap_Bytes (I)); end Corresponding_Port; diff --git a/src/polyorb_hi-utils.ads b/src/polyorb_hi-utils.ads index d17378e..cbfe4da 100644 --- a/src/polyorb_hi-utils.ads +++ b/src/polyorb_hi-utils.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2007-2009, GET-Telecom Paris. -- +-- Copyright (C) 2007-2010, GET-Telecom Paris. -- -- -- -- PolyORB HI is free software; you can redistribute it and/or modify it -- -- under terms of the GNU General Public License as published by the Free -- @@ -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 : Unsigned_16) return Port_Type; + function Corresponding_Port (I : Integer_16) return Port_Type; - function Swap_Bytes (B : Interfaces.Unsigned_16) - return Interfaces.Unsigned_16; + function Swap_Bytes (B : Interfaces.Integer_16) + return Interfaces.Integer_16; -- Swap bytes iff the host is little endian. This function is -- notionnally equivalent to htons(). -- GitLab