1 2 3 4 5 6
pragma Profile_Warnings (Ravenscar); with profile_warning_p; package profile_warning is pragma Elaborate_Body; procedure I is new profile_warning_p.Proc; end;