Re: requeue with abort and timed call

[ishikawa@arielworks.com]

Timed entry call (select else/ select or delay) for protected objects
seems broken too...

with Ada.Text_IO; use Ada.Text_IO;
procedure Timed_Protected is
   protected P is
      entry E1;
      entry E2;
   end P;

   protected body P is
      entry E1 when True is
      begin
         Put_Line ("E1");
         delay 5.0; -- takes over Parent's delay
         Put_Line ("E1 done");
      end E1;

      entry E2 when True is
      begin
         Put_Line ("E2");
      end E2;
   end P;

   task T1 is
   end T1;

   task body T1 is
   begin
      P.E1;
   end T1;

begin
   delay 0.2; -- to ensure start after T1
   Put_Line ("Parent selecting");
   select
      P.E2;
   else
      Put_Line ("Parent canceling");
   end select;
end Timed_Protected;

This code outputs;
E1
Parent selecting
E1 done
E2

I think the code should output:
E1
Parent selecting
Parent canceling
E1 done

The both problems might have the same cause.