From bd8cb2e836e9311369f654a6f080e7b27d63ffc6 Mon Sep 17 00:00:00 2001 From: vsc Date: Tue, 12 Mar 2002 16:46:49 +0000 Subject: [PATCH] forgotten to save utils.yap git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@415 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- pl/utils.yap | 37 ------------------------------------- 1 file changed, 37 deletions(-) diff --git a/pl/utils.yap b/pl/utils.yap index 442615f0b..2de09a164 100644 --- a/pl/utils.yap +++ b/pl/utils.yap @@ -613,43 +613,6 @@ nogc :- '$force_environment_for_gc'. -profile_data(P, Parm, Data) :- var(P), !, - '$current_module'(M), - '$profile_data'(P, Parm, Data, M). - -'$profile_data'(P, Parm, Data,M) :- var(P), !, - '$profile_data_for_var'(P, Parm, Data,M). -'$profile_data'(M:P, Parm, Data, _) :- var(M), !, - throw(error(instantiation_error,profile_data(M:P, Parm, Data))). -'$profile_data'(M:P, Parm, Data, _) :- - '$profile_data'(P, Parm, Data, M). -'$profile_data'(P, Parm, Data, M) :- - '$profile_data2'(P, Parm, Data, M). - -'$profile_data2'(Na/Ar,Parm,Data, M) :- - functor(P, Na, Ar), - '$profile_info'(M, P, Stats), - '$profile_say'(Stats, Parm, Data). - -'$profile_data_for_var'(Name/Arity, Parm, Data, M) :- - '$current_predicate'(M,Name,Arity), - functor(P,Na,Ar), - '$profile_info'(M, P, Stats), - '$profile_say'(Stats, Parm, Data). - - - -'$profile_say'('$profile'(Entries, _, _), calls, Entries). -'$profile_say'('$profile'(_, _, Backtracks), retries, Backtracks). - -profile_reset :- - current_module(M), - '$current_predicate'(M,Na,Ar), - functor(P,Na,Ar), - '$profile_reset'(M, P), - fail. -profile_reset. - '$good_list_of_character_codes'(V) :- var(V), !. '$good_list_of_character_codes'([]). '$good_list_of_character_codes'([X|L]) :-