[PPL-devel] [GIT] ppl/ppl(termination): Fixed two bogus invocations of PPL_WEAK_REGISTER.

[Roberto Bagnara]

Module: ppl/ppl
Branch: termination
Commit: 72e0e99576d4a6508c6a7078cd37207833c54f2b
URL:    http://www.cs.unipr.it/git/gitweb.cgi?p=ppl/ppl.git;a=commit;h=72e0e99576d4a6508c6a7078cd37207833c54f2b

Author: Roberto Bagnara <bagnara at 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;
     }
  }