Commit c98f4547 authored by jhugues's avatar jhugues Committed by yoogx

* Handle correctly the maximum size of HI_String



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@2530 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent bd73092c
......@@ -37,7 +37,7 @@ package body PolyORB_HI.Utils is
------------------
function To_HI_String (S : String) return HI_String is
R : String (1 .. 32) := (others => ' ');
R : String (1 .. HI_String_Size) := (others => ' ');
begin
R (1 .. S'Length) := S;
return HI_String'(S => R,
......
......@@ -82,8 +82,10 @@ package PolyORB_HI.Utils is
-- String --
------------
HI_String_Size : constant := 80;
type HI_String is record
S : String (1 .. 64);
S : String (1 ..HI_String_Size);
L : Natural;
end record;
......
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