Module: ppl/ppl Branch: master Commit: 80eafa9e6f521b3b7087d12b16c8a22a7f5c1679 URL: http://www.cs.unipr.it/git/gitweb.cgi?p=ppl/ppl.git;a=commit;h=80eafa9e6f521...
Author: Enea Zaffanella zaffanella@cs.unipr.it Date: Thu Mar 18 14:17:15 2010 +0100
Let ppl_*_linear_partition/4 register its outputs to the allocator tracker.
---
.../ppl_interface_generator_prolog_cc_code.m4 | 6 ++++++ 1 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/interfaces/Prolog/ppl_interface_generator_prolog_cc_code.m4 b/interfaces/Prolog/ppl_interface_generator_prolog_cc_code.m4 index cd1f2f7..9c72b81 100644 --- a/interfaces/Prolog/ppl_interface_generator_prolog_cc_code.m4 +++ b/interfaces/Prolog/ppl_interface_generator_prolog_cc_code.m4 @@ -479,8 +479,14 @@ ppl_@CLASS@_linear_@PARTITION@(Prolog_term_ref t_ph, Prolog_put_address(t_r_second, rsh); if (Prolog_unify(t_inters, t_r_first) && Prolog_unify(t_pset, t_r_second)) { + PPL_REGISTER(rfh); + PPL_REGISTER(rsh); return PROLOG_SUCCESS; } + else { + delete rfh; + delete rsh; + } } CATCH_ALL; }