[PPL-devel] [GIT] ppl/ppl(master): Corrected typo: register the C++ pointer, not the Prolog term.
Enea Zaffanella
zaffanella at cs.unipr.it
Thu Mar 18 13:06:09 CET 2010
Module: ppl/ppl
Branch: master
Commit: fd5ac7e7f267a471e528d3f2af1a32bb7ee03ef4
URL: http://www.cs.unipr.it/git/gitweb.cgi?p=ppl/ppl.git;a=commit;h=fd5ac7e7f267a471e528d3f2af1a32bb7ee03ef4
Author: Enea Zaffanella <zaffanella at cs.unipr.it>
Date: Thu Mar 18 13:04:22 2010 +0100
Corrected typo: register the C++ pointer, not the Prolog term.
---
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..0c1b4a2 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_WEAK_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_WEAK_REGISTER(sol);
return PROLOG_SUCCESS;
}
}
More information about the PPL-devel
mailing list