summaryrefslogtreecommitdiff
path: root/intrpvar.h
diff options
context:
space:
mode:
authorBen Morrow <ben@morrow.me.uk>2010-10-05 18:55:41 +0100
committerFather Chrysostomos <sprout@cpan.org>2010-10-06 23:28:55 -0700
commitef69c8fcaa2e29961b103ed4aaf7b24d5edd9f23 (patch)
treec20362f9dff4bbd1d01abfb4347b28fe910f7ba4 /intrpvar.h
parent9ed9b795caa408a925999e1d90f9932e35b3ab10 (diff)
downloadperl-ef69c8fcaa2e29961b103ed4aaf7b24d5edd9f23.tar.gz
Remove MEMBER_TO_FPTR.
This is left over from PERL_OBJECT (see beeff2, 16c915, and so on).
Diffstat (limited to 'intrpvar.h')
-rw-r--r--intrpvar.h18
1 files changed, 9 insertions, 9 deletions
diff --git a/intrpvar.h b/intrpvar.h
index 4a7d867904..37ded60e12 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -192,7 +192,7 @@ convenient to wrap the L</PL_rpeepp> hook.
=cut
*/
-PERLVARI(Ipeepp, peep_t, MEMBER_TO_FPTR(Perl_peep))
+PERLVARI(Ipeepp, peep_t, Perl_peep)
/*
=for apidoc Amn|peep_t|PL_rpeepp
@@ -216,7 +216,7 @@ to wrap the L</PL_peepp> hook.
=cut
*/
-PERLVARI(Irpeepp, peep_t, MEMBER_TO_FPTR(Perl_rpeep))
+PERLVARI(Irpeepp, peep_t, Perl_rpeep)
/*
=for apidoc Amn|Perl_ophook_t|PL_opfreehook
@@ -491,7 +491,7 @@ PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
-PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
+PERLVARI(Irunops, runops_proc_t, RUNOPS_DEFAULT)
/*
=for apidoc Amn|SV|PL_sv_undef
@@ -683,19 +683,19 @@ PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions
PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
/* Hooks to shared SVs and locks. */
-PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
-PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
+PERLVARI(Isharehook, share_proc_t, Perl_sv_nosharing)
+PERLVARI(Ilockhook, share_proc_t, Perl_sv_nosharing)
#ifdef NO_MATHOMS
# define PERL_UNLOCK_HOOK Perl_sv_nosharing
#else
/* This reference ensures that the mathoms are linked with perl */
# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
#endif
-PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
+PERLVARI(Iunlockhook, share_proc_t, PERL_UNLOCK_HOOK)
-PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
+PERLVARI(Ithreadhook, thrhook_proc_t, Perl_nothreadhook)
-PERLVARI(Isignalhook, despatch_signals_proc_t, MEMBER_TO_FPTR(Perl_despatch_signals))
+PERLVARI(Isignalhook, despatch_signals_proc_t, Perl_despatch_signals)
PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
@@ -750,7 +750,7 @@ PERLVARI(Islab_count, U32, 0) /* Size of the array */
#endif
/* Can shared object be destroyed */
-PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable))
+PERLVARI(Idestroyhook, destroyable_proc_t, Perl_sv_destroyable)
#ifdef DEBUG_LEAKING_SCALARS
PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */