develooper Front page | perl.perl5.porters | Postings from March 2007

perl_free problem

From:
Irene Ladyko
Date:
March 11, 2007 01:51
Subject:
perl_free problem
Message ID:
19527649.20070311115055@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




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About