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

* Minor reformatting



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@722 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 47cc798e
pragma Warnings (Off);
with Interfaces;
with Ada.Exceptions; with Ada.Exceptions;
with Ada.Unchecked_Conversion;
with Ada.Streams; with Ada.Streams;
with Ada.Unchecked_Conversion;
with Interfaces;
with GNAT.Serial_Communications; with GNAT.Serial_Communications;
with PolyORB_HI.Output; with PolyORB_HI.Output;
...@@ -30,14 +29,11 @@ package body Native_UART is ...@@ -30,14 +29,11 @@ package body Native_UART is
-- to receive. -- to receive.
UART_Port_Send : GNAT.Serial_Communications.Serial_Port; UART_Port_Send : GNAT.Serial_Communications.Serial_Port;
UART_Port_Receive : GNAT.Serial_Communications.Serial_Port; UART_Port_Receive : GNAT.Serial_Communications.Serial_Port;
end record; end record;
Nodes : array (Node_Type) of Node_Record; Nodes : array (Node_Type) of Node_Record;
subtype AS_One_Element_Stream is Ada.Streams.Stream_Element_Array (1 .. 1);
subtype AS_Message_Length_Stream is Ada.Streams.Stream_Element_Array subtype AS_Message_Length_Stream is Ada.Streams.Stream_Element_Array
(1 .. Message_Length_Size); (1 .. Message_Length_Size);
subtype Message_Length_Stream is Stream_Element_Array subtype Message_Length_Stream is Stream_Element_Array
...@@ -56,6 +52,8 @@ package body Native_UART is ...@@ -56,6 +52,8 @@ package body Native_UART is
---------------- ----------------
procedure Initialize (Name_Table : PolyORB_HI.Utils.Naming_Table_Type) is procedure Initialize (Name_Table : PolyORB_HI.Utils.Naming_Table_Type) is
pragma Unreferenced (Name_Table);
begin begin
begin begin
GNAT.Serial_Communications.Open GNAT.Serial_Communications.Open
...@@ -172,6 +170,8 @@ package body Native_UART is ...@@ -172,6 +170,8 @@ package body Native_UART is
Size : Stream_Element_Offset) Size : Stream_Element_Offset)
return Error_Kind return Error_Kind
is is
pragma Unreferenced (Node);
-- We cannot cast both array types using -- We cannot cast both array types using
-- Ada.Unchecked_Conversion because they are unconstrained -- Ada.Unchecked_Conversion because they are unconstrained
-- types. We cannot either use direct casting because component -- types. We cannot either use direct casting because component
......
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