1package body Opt15_Pkg is 2 3 procedure Trace_Non_Inlined is 4 begin 5 raise Program_Error; 6 end; 7 8 procedure Trace_Inlined is 9 begin 10 Trace_Non_Inlined; 11 end; 12 13end Opt15_Pkg; 14
1package body Opt15_Pkg is 2 3 procedure Trace_Non_Inlined is 4 begin 5 raise Program_Error; 6 end; 7 8 procedure Trace_Inlined is 9 begin 10 Trace_Non_Inlined; 11 end; 12 13end Opt15_Pkg; 14