28.02.2014 Views

Real-Time Programming Languages - Operating Systems

Real-Time Programming Languages - Operating Systems

Real-Time Programming Languages - Operating Systems

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Simple Periodic Task With Static Priority<br />

01<br />

02<br />

03<br />

04<br />

05<br />

06<br />

07<br />

08<br />

09<br />

10<br />

11<br />

12<br />

13<br />

14<br />

task A is<br />

pragma Priority(5);<br />

end A;<br />

task body A is<br />

Next_Release: <strong>Real</strong>_<strong>Time</strong>.<strong>Time</strong>;<br />

begin<br />

Next_Release := <strong>Real</strong>_<strong>Time</strong>.Clock;<br />

loop<br />

-- code<br />

Next_Release := Next_Release + <strong>Real</strong>_<strong>Time</strong>.Milliseconds(10);<br />

delay until Next_Release;<br />

end loop<br />

end A;<br />

Burns,<br />

Wellings<br />

Ch. 14.3<br />

Page 345<br />

WS 2013/14 <strong>Real</strong>-<strong>Time</strong> <strong>Systems</strong>, <strong>Real</strong>-<strong>Time</strong> Prog. <strong>Languages</strong> / Hermann Härtig 56

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!