generic type Element is (<>); -- any discrete type Init : Element; -- initial value package Protected_Element_Generic is
type Element is (<>);
Init : Element;
function Get return Element;
procedure Set
( | E | : Element); |
entry Inc;
entry Dec;
Store: Element := Init; References:
protected_element_generic.ads:16:7 (declaration)protected_element_generic.adb:5:39 (reference)protected_element_generic.adb:10:10 (write reference)protected_element_generic.adb:13:22 (reference)protected_element_generic.adb:16:10 (write reference)protected_element_generic.adb:16:33 (reference)protected_element_generic.adb:19:22 (reference)protected_element_generic.adb:22:10 (write reference)protected_element_generic.adb:22:33 (reference)Called by:
Dec defined at protected_element_generic.ads:13:13Dec defined at protected_element_generic.ads:13:13Dec defined at protected_element_generic.ads:13:13Inc defined at protected_element_generic.ads:12:13Inc defined at protected_element_generic.ads:12:13Inc defined at protected_element_generic.ads:12:13Set defined at protected_element_generic.ads:10:17