summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2010-08-16 00:16:00 +0200
committerFlorian Ragwitz <rafl@debian.org>2010-08-16 00:18:20 +0200
commit666e7765a1af9c81577039073e9ff43b19d9110f (patch)
treeff72f5d3cf5cbe011e1115e67bbe74dfd153b114 /proto.h
parent874cd4e1c18d04983efb99e1366ac237240dcd07 (diff)
downloadperl-666e7765a1af9c81577039073e9ff43b19d9110f.tar.gz
Revert "Make the peep recurse via PL_peepp"
This reverts commit 65bfe90c4b4ea5706a50067179e60d4e8de6807a. While it made a few of the things I wanted possible, a couple of other things one might need to do and I thought this change would enable don't actually work. Thanks Zefram for pointing out my mistake. Conflicts: ext/XS-APItest/APItest.xs op.c
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h6
1 files changed, 1 insertions, 5 deletions
diff --git a/proto.h b/proto.h
index 39b88c57be..17c32129d9 100644
--- a/proto.h
+++ b/proto.h
@@ -2571,11 +2571,7 @@ PERL_CALLCONV void Perl_pad_free(pTHX_ PADOFFSET po);
STATIC void S_pad_reset(pTHX);
#endif
PERL_CALLCONV void Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust);
-PERL_CALLCONV void Perl_peep(pTHX_ OP* o, peep_next_t *next_peep)
- __attribute__nonnull__(pTHX_2);
-#define PERL_ARGS_ASSERT_PEEP \
- assert(next_peep)
-
+PERL_CALLCONV void Perl_peep(pTHX_ OP* o);
PERL_CALLCONV PerlIO* Perl_start_glob(pTHX_ SV *tmpglob, IO *io)
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2);