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