Commit 0fb58401 authored by jhugues's avatar jhugues Committed by yoogx

* Correct marshalling/unmarshalling of node id



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@6100 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent f9145722
......@@ -226,7 +226,7 @@ package body PolyORB_HI_Drivers_Native_TCP_IP is
-- Send my node number
SEC (1) := AS.Stream_Element (Node_Type'Pos (My_Node));
SEC (1) := AS.Stream_Element (Internal_Code (My_Node));
Send_Socket (Nodes (N).Socket_Send, SEC, SEO);
pragma Debug (Put_Line
......@@ -276,7 +276,7 @@ package body PolyORB_HI_Drivers_Native_TCP_IP is
-- Identify peer node
Node := Node_Type'Val (SEC (1));
Node := Corresponding_Node (Integer_8 (SEC (SEC'First)));
Nodes (Node).Socket_Receive := Socket;
pragma Debug (Put_Line (Verbose, "Connection from node "
& Node_Type'Image (Node)));
......
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