| … | |
… | |
| 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 | } |
