diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-08-15 01:10:35 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-17 02:07:24 +0000 |
| commit | 765f542df20317f47bb284c276cd0abfb50dcfd6 (patch) | |
| tree | be92963942496ba900bdfb32c5b522ba355aafb0 /embed.fnc | |
| parent | 6f12eb6d2a1dfaf441504d869b27d2e40ef4966a (diff) | |
| download | perl-765f542df20317f47bb284c276cd0abfb50dcfd6.tar.gz | |
Copy On Write
Message-id: <20020815001035.A69079@plum.flirble.org>
specify "-Accflags='-DPERL_COPY_ON_WRITE'" to use
p4raw-id: //depot/perl@17728
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -954,6 +954,10 @@ Ap |void |sys_intern_init Ap |char * |custom_op_name|OP* op Ap |char * |custom_op_desc|OP* op +#if defined(PERL_COPY_ON_WRITE) +pM |int |sv_release_IVX |SV *sv +#endif + Adp |void |sv_nosharing |SV * Adp |void |sv_nolocking |SV * Adp |void |sv_nounlocking |SV * @@ -1235,6 +1239,10 @@ s |I32 |expect_number |char** pattern # if defined(USE_ITHREADS) s |SV* |gv_share |SV *sv|CLONE_PARAMS *param # endif +#if defined(PERL_COPY_ON_WRITE) +sM |void |sv_release_COW |SV *sv|char *pvx|STRLEN cur|STRLEN len \ + |U32 hash|SV *after +#endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) |