loop
Op_Regs.Read (CNR, Controller_Not_Ready);
exit when CNR = 0;
- Success := not Time.Timed_Out (Deadline);
+ declare
+ Timed_Out : constant Boolean := Time.Timed_Out (Deadline);
+ begin
+ Success := not Timed_Out;
+ end;
exit when not Success;
end loop;
pragma Debug (not Success, Debug.Put_Line
Timed_Out : Boolean;
begin
if Regs.Byte_Offset /= 0 then
- Timed_Out := Now or else Time.Timed_Out (DbC_Poll_Deadline);
- if Timed_Out then
+ Timed_Out := Time.Timed_Out (DbC_Poll_Deadline);
+ if Now or else Timed_Out then
Regs.Read (Temp8, DbC_Enable);
if Temp8 = 1 then
Regs.Read (Temp8, Current_Connect_Status);