diff options
| author | David Mitchell <davem@iabyn.com> | 2016-11-10 13:58:36 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-11-12 16:15:08 +0000 |
| commit | e97ca23069de91e6fba421ba7674397837455073 (patch) | |
| tree | 8fb05cdf877835814679628db1eeb3639bf07f82 | |
| parent | 3429ffb4f9b0e6212cf116c6f2beff44790c35a8 (diff) | |
| download | perl-e97ca23069de91e6fba421ba7674397837455073.tar.gz | |
perlguts: add pTHX_ to magic method examples
These functions all take an interpreter arg these days.
| -rw-r--r-- | pod/perlguts.pod | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/pod/perlguts.pod b/pod/perlguts.pod index 7f72d65b02..2da946ce46 100644 --- a/pod/perlguts.pod +++ b/pod/perlguts.pod @@ -1124,16 +1124,16 @@ applied to that variable. The C<MGVTBL> has five (or sometimes eight) pointers to the following routine types: - int (*svt_get)(SV* sv, MAGIC* mg); - int (*svt_set)(SV* sv, MAGIC* mg); - U32 (*svt_len)(SV* sv, MAGIC* mg); - int (*svt_clear)(SV* sv, MAGIC* mg); - int (*svt_free)(SV* sv, MAGIC* mg); + int (*svt_get) (pTHX_ SV* sv, MAGIC* mg); + int (*svt_set) (pTHX_ SV* sv, MAGIC* mg); + U32 (*svt_len) (pTHX_ SV* sv, MAGIC* mg); + int (*svt_clear)(pTHX_ SV* sv, MAGIC* mg); + int (*svt_free) (pTHX_ SV* sv, MAGIC* mg); - int (*svt_copy)(SV *sv, MAGIC* mg, SV *nsv, + int (*svt_copy) (pTHX_ SV *sv, MAGIC* mg, SV *nsv, const char *name, I32 namlen); - int (*svt_dup)(MAGIC *mg, CLONE_PARAMS *param); - int (*svt_local)(SV *nsv, MAGIC *mg); + int (*svt_dup) (pTHX_ MAGIC *mg, CLONE_PARAMS *param); + int (*svt_local)(pTHX_ SV *nsv, MAGIC *mg); This MGVTBL structure is set at compile-time in F<perl.h> and there are |