Front page | perl.perl5.porters |
Postings from March 2007
perl_free problem
Thread Previous
From:
Irene Ladyko
Date:
March 10, 2007 22:23
Subject:
perl_free problem
Message ID:
140259331.20070311122153@odesk.com
Hello, perl5-porters.
I have a problem with memory reallocation when using a Perl
interpreter embeded in my application. (I use few interpreters in few
threads. For each interpreter exists its own thread.)
It seems that if we create more than one interpreter we must delete
them all at one place.
Flat example:
0:
1: int main(int argc, char **argv)
2: {
3: PerlInterpreter *one_perl, *two_perl;
4: char *one_args[] = { "one_perl", "-e", "print qq(Hi, I'm $^X\n)" };
5: char *two_args[] = { "two_perl", "-e", "print qq(Hi, I'm $^X\n)" };
6:
7: PERL_SYS_INIT3(&argc,&argv,&env);
8: one_perl = perl_alloc();
9:
10: PERL_SET_CONTEXT(one_perl);
11: perl_construct(one_perl);
12:
13: PERL_SET_CONTEXT(one_perl);
14: perl_parse(one_perl, NULL, 3, one_args, (char **)NULL);
15:
16: PERL_SET_CONTEXT(one_perl);
17: perl_run(one_perl);
18:
19: PERL_SET_CONTEXT(one_perl);
20: perl_destruct(one_perl);
21:
22: PERL_SET_CONTEXT(one_perl);
23: perl_free(one_perl);
24:
25: two_perl = perl_alloc();
26: PERL_SET_CONTEXT(two_perl);
27: perl_construct(two_perl);
28: PERL_SET_CONTEXT(two_perl);
29: perl_parse(two_perl, NULL, 3, two_args, (char **)NULL);
30: PERL_SET_CONTEXT(two_perl);
31: perl_run(two_perl);
32: //PERL_SET_CONTEXT(one_perl);
33: //perl_free(one_perl);
34: PERL_SET_CONTEXT(two_perl);
35: perl_destruct(two_perl);
36: PERL_SET_CONTEXT(two_perl);
37: perl_free(two_perl);
38:
39: PERL_SYS_TERM();
40:
41: return 0;
42:}
Exception is thrown in 29 line. If we comment 22, 23 line and uncomment 32
and 33 lines, then all will be OK.
Questions: Please, point me to error in the code or propose method to
delete interpreters separately.
--
Best Regards,
Irene ,
C++ Developer
of ISS Art, Ltd., Omsk, Russia.
http://issart.com
http://issart.com/index/Portfolio/cpp&lang=eng
mailto:your@address.com
Thread Previous