Commit 77aaea28 authored by yoogx's avatar yoogx

* Corrected package implementation

parent 53feaeb0
......@@ -32,18 +32,7 @@
------------------------------------------------------------------------------
with Ada.Real_Time;
with PolyORB_HI.Messages;
with PolyORB_HI.Marshallers_G;
package PolyORB_HI.Time_Marshallers is
procedure Marshall
(R : Ada.Real_Time.Time;
M : in out Messages.Message_Type);
-- Marshall a data R in message M
procedure Unmarshall
(R : out Ada.Real_Time.Time;
M : in out Messages.Message_Type);
-- Unmarshall a data R from message M
end PolyORB_HI.Time_Marshallers;
new PolyORB_HI.Marshallers_G (Ada.Real_Time.Time);
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