diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 15:21:25 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 15:41:55 -0400 |
| commit | b5bbe64ad2ec51417ef02ac52304ed45fe37be3f (patch) | |
| tree | 71f1b45882f215a6d886d3bc08954c02a54e6af0 /pad.c | |
| parent | 7053d92917f7cb46452de86dc4c6d8644cae849c (diff) | |
| download | perl-b5bbe64ad2ec51417ef02ac52304ed45fe37be3f.tar.gz | |
Remove MAD.
MAD = Misc Attribute Decoration; unmaintained attempt at preserving
the Perl parse tree more faithfully so that automatic conversion to
Perl 6 would have been easier.
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 22 |
1 files changed, 0 insertions, 22 deletions
@@ -153,28 +153,6 @@ Points directly to the body of the L</PL_comppad> array. STMT_START { ((XPVNV*)SvANY(sv))->xnv_u.xpad_cop_seq.xhigh = (val); } STMT_END /* -=for apidoc mx|void|pad_peg|const char *s - -When PERL_MAD is enabled, this is a small no-op function that gets called -at the start of each pad-related function. It can be breakpointed to -track all pad operations. The parameter is a string indicating the type -of pad operation being performed. - -=cut -*/ - -#ifdef PERL_MAD -void pad_peg(const char* s) { - static int pegcnt; /* XXX not threadsafe */ - PERL_UNUSED_ARG(s); - - PERL_ARGS_ASSERT_PAD_PEG; - - pegcnt++; -} -#endif - -/* This is basically sv_eq_flags() in sv.c, but we avoid the magic and bytes checking. */ |