@@ -79,7 +94,10 @@ package body @_CAPITALIZE:Name_@_Events is
end case;
end Print_Event;
procedure Exhaust_Interfaces (Global_State : in out asn1SccSystem_State; Callback : access procedure (Event : asn1SccEvent; Limit_Reached : out Boolean)) is
@@-- Function to exhaust RI parameters. If Remote is GUI, RCM is asynnc and there is only one parameter
procedure Exhaust_@_CAPITALIZE:Name_@ (Global_State : in out asn1SccSystem_State; Callback : access procedure (Event : asn1SccEvent; Limit_Reached : out Boolean)) is
procedure Exhaust_@_CAPITALIZE:Name_@ (Global_State : in out asn1SccSystem_State; Callback : access procedure (Event : asn1SccEvent; Limit_Reached : out Boolean)) is null;