… | |
… | |
63 | #endif |
63 | #endif |
64 | |
64 | |
65 | /* the maximum number of idle cctx that will be pooled */ |
65 | /* the maximum number of idle cctx that will be pooled */ |
66 | static int cctx_max_idle = 4; |
66 | static int cctx_max_idle = 4; |
67 | |
67 | |
|
|
68 | #if defined(DEBUGGING) && PERL_VERSION_ATLEAST(5,12,0) |
|
|
69 | # define HAS_SCOPESTACK_NAME 1 |
|
|
70 | #endif |
|
|
71 | |
68 | #if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64 |
72 | #if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64 |
69 | # undef CORO_STACKGUARD |
73 | # undef CORO_STACKGUARD |
70 | #endif |
74 | #endif |
71 | |
75 | |
72 | #ifndef CORO_STACKGUARD |
76 | #ifndef CORO_STACKGUARD |
… | |
… | |
879 | #endif |
883 | #endif |
880 | |
884 | |
881 | New(54,PL_scopestack,8,I32); |
885 | New(54,PL_scopestack,8,I32); |
882 | PL_scopestack_ix = 0; |
886 | PL_scopestack_ix = 0; |
883 | PL_scopestack_max = 8; |
887 | PL_scopestack_max = 8; |
|
|
888 | #if HAS_SCOPESTACK_NAME |
|
|
889 | New(54,PL_scopestack_name,8,const char*); |
|
|
890 | #endif |
884 | |
891 | |
885 | New(54,PL_savestack,24,ANY); |
892 | New(54,PL_savestack,24,ANY); |
886 | PL_savestack_ix = 0; |
893 | PL_savestack_ix = 0; |
887 | PL_savestack_max = 24; |
894 | PL_savestack_max = 24; |
888 | |
895 | |
… | |
… | |
916 | } |
923 | } |
917 | |
924 | |
918 | Safefree (PL_tmps_stack); |
925 | Safefree (PL_tmps_stack); |
919 | Safefree (PL_markstack); |
926 | Safefree (PL_markstack); |
920 | Safefree (PL_scopestack); |
927 | Safefree (PL_scopestack); |
|
|
928 | #if HAS_SCOPESTACK_NAME |
|
|
929 | Safefree (PL_scopestack_name); |
|
|
930 | #endif |
921 | Safefree (PL_savestack); |
931 | Safefree (PL_savestack); |
922 | #if !PERL_VERSION_ATLEAST (5,10,0) |
932 | #if !PERL_VERSION_ATLEAST (5,10,0) |
923 | Safefree (PL_retstack); |
933 | Safefree (PL_retstack); |
924 | #endif |
934 | #endif |
925 | } |
935 | } |