Real-Time Programming Languages - Operating Systems
Real-Time Programming Languages - Operating Systems
Real-Time Programming Languages - Operating Systems
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Example<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 />
15<br />
16<br />
17<br />
18<br />
19<br />
20<br />
21<br />
22<br />
23<br />
protected body Overrun is<br />
entry Stop_Task when Abandon is<br />
begin<br />
Abandon := False;<br />
First_Occurence := True;<br />
end Stop_Task;<br />
procedure Reset(C1, C2 : <strong>Time</strong>_Span) is<br />
begin<br />
Abandon := False;<br />
First_Occurence := True;<br />
WCET := C1;<br />
WCET_Overrun := C2;<br />
end Reset;<br />
procedure Handler(TM : in out <strong>Time</strong>r) is<br />
begin<br />
if First_Occurence then<br />
Set_Handler(TM,WCET_Overrun,Handler);<br />
Set_Priority(2, TM.T.all);<br />
First_Occurence := False;<br />
else<br />
Abandon := True;<br />
end if;<br />
end Handler;<br />
end Overrun;<br />
Burns,<br />
Wellings<br />
Ch. 15.5<br />
Page 373<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 62