Где утечка памяти в моем коде Perl XS?

Question

У меня есть большая программа, написанная на C++ и выполняемая из Perl с использованием Inline::CPP. Код, похоже, использует много памяти, поэтому я предполагаю, что какая-то утечка есть. Я написал следующий код, который воспроизводит ту же проблему, но намного проще. Я обнаружил утечку, когда зациклил код 1000000 раз, чтобы проверить его производительность. Этот простой сценарий Perl использует 828 МБ, а моя полная программа использует 1,3 ГБ.

Я много чего пробовал, например, использовал SvREFCNT_dec, newRV_noinc, sv_free, и sv_2mortal на различные переменные в коде, но мне не удалось снизить использование памяти.

Вот мой пример кода:

use Data::Dumper;

print Dumper test ();

use Inline 'CPP' => << 'CPP';
    #include <array>

    using namespace std;

    AV *array_to_av (const array<int,3> &v)
    {
        AV *array = newAV ();

        for (int i : v) {
            av_push (array, newSViv (i));
        }

        return array;
    }

    SV *test_leak ()
    {
        HV *hash = newHV ();

        AV *array1 = array_to_av ({1,2,3});
        AV *array2 = array_to_av ({1,2,3});
        AV *array3 = array_to_av ({1,2,3});

        SV *value1 = newRV_noinc ((SV *)(array1));
        SV *value2 = newRV_noinc ((SV *)(array2));
        SV *value3 = newRV_noinc ((SV *)(array3));

        hv_stores (hash, "Test1", value1);
        hv_stores (hash, "Test2", value2);
        hv_stores (hash, "Test3", value3);

        return newRV_noinc ((SV *)(hash));
    }

    SV *test ()
    {
        SV *hash;

        for (int i = 0; i < 1000000; i++) {
            hash = test_leak ();
        }

        return hash;
    }
CPP

sleep 10;

Answer 1

Вам необходимо освободить хэши, которые не возвращаются в сценарий Perl в forпетля. Этот цикл:

for (int i = 0; i < 1000000; i++) {
    hash = test_leak ();
}

Должно быть что-то вроде:

for (int i = 0; i < 1000000; i++) {
    hash = test_leak ();
    SvREFCNT_dec(hash);  // Free the memory not returned to Perl
 }
 hash = test_leak();  // The final hashref is returned to Perl