Module: ppl/ppl Branch: termination Commit: 72e0e99576d4a6508c6a7078cd37207833c54f2b URL: http://www.cs.unipr.it/git/gitweb.cgi?p=ppl/ppl.git;a=commit;h=72e0e99576d4a...
Author: Roberto Bagnara bagnara@cs.unipr.it Date: Thu Mar 18 06:52:45 2010 +0400
Fixed two bogus invocations of PPL_WEAK_REGISTER.
---
interfaces/Prolog/ppl_prolog_common.cc | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/interfaces/Prolog/ppl_prolog_common.cc b/interfaces/Prolog/ppl_prolog_common.cc index 94202f3..5a186e8 100644 --- a/interfaces/Prolog/ppl_prolog_common.cc +++ b/interfaces/Prolog/ppl_prolog_common.cc @@ -2544,7 +2544,7 @@ ppl_PIP_Problem_solution(Prolog_term_ref t_pip, Prolog_term_ref t_sol = Prolog_new_term_ref(); Prolog_put_address(t_sol, sol); if (Prolog_unify(t_pip_tree, t_sol)) { - PPL_WEAK_REGISTER(t_pip_tree); + PPL_REGISTER(sol); return PROLOG_SUCCESS; } } @@ -2562,7 +2562,7 @@ ppl_PIP_Problem_optimizing_solution(Prolog_term_ref t_pip, Prolog_term_ref t_sol = Prolog_new_term_ref(); Prolog_put_address(t_sol, sol); if (Prolog_unify(t_pip_tree, t_sol)) { - PPL_WEAK_REGISTER(t_pip_tree); + PPL_REGISTER(sol); return PROLOG_SUCCESS; } }