Commit db5c41c7 authored by assert's avatar assert

* Follow-up to previous patch, correctly reverted patch for

      Wait_For_Incoming_Events
parent 71d7fc13
......@@ -438,14 +438,10 @@ package body PolyORB_HI.Thread_Interrogators is
------------------------------
procedure Wait_For_Incoming_Events (Port : out Port_Type) is
Valid, Not_Empty : Boolean;
pragma Warnings (Off, Not_Empty);
-- Under this implementation, Not_Empty is not used.
begin
pragma Debug (Put_Line (Verbose, CE + ": Wait_For_Incoming_Events"));
Global_Queue.Read_Event (Port, Valid);
Global_Queue.Wait_Event (Port);
pragma Debug (Put_Line
(Verbose,
......
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