1pragma Restrictions (No_Exception_Propagation);
2with BIP_Exception_Pkg;
3
4package BIP_Exception is
5   type T_C4_Scheduler is new BIP_Exception_Pkg.T_Process with private;
6   type T_C4_Scheduler_Class_Access is access all T_C4_Scheduler'Class;
7
8   package Constructors is
9      function Initialize return T_C4_Scheduler;
10   end Constructors;
11
12   overriding procedure V_Run (This : in T_C4_Scheduler);
13   pragma Suppress (Elaboration_Check, V_Run);
14
15private
16   package Super renames BIP_Exception_Pkg;
17   subtype T_Super is Super.T_Process;
18
19   type T_C4_Scheduler is new T_Super with null record;
20end BIP_Exception;
21