diff options
| author | David Mitchell <davem@iabyn.com> | 2014-07-01 13:23:50 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2014-07-08 16:40:03 +0100 |
| commit | 8ae26bff38c4139f5a2ef5b783a3e73d2419f177 (patch) | |
| tree | dde90d3f504423d0b21d8c6444cb31cd79c3e80d /proto.h | |
| parent | 202206897ad0823663f93604b9932ae9da992c0c (diff) | |
| download | perl-8ae26bff38c4139f5a2ef5b783a3e73d2419f177.tar.gz | |
minor fixups to new op_sibling work
remove pTHX args to op_parent() and op_sibling_splice() since they don't
use them, and cast an op type assignment. Also, minor fixups to the pod
for op_sibling_splice().
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3121,8 +3121,8 @@ PERL_CALLCONV void Perl_op_null(pTHX_ OP* o) #define PERL_ARGS_ASSERT_OP_NULL \ assert(o) -PERL_CALLCONV OP* Perl_op_parent(pTHX_ OP *o) - __attribute__nonnull__(pTHX_1); +PERL_CALLCONV OP* Perl_op_parent(OP *o) + __attribute__nonnull__(1); #define PERL_ARGS_ASSERT_OP_PARENT \ assert(o) @@ -3130,8 +3130,8 @@ PERL_CALLCONV OP* Perl_op_prepend_elem(pTHX_ I32 optype, OP* first, OP* last); PERL_CALLCONV void Perl_op_refcnt_lock(pTHX); PERL_CALLCONV void Perl_op_refcnt_unlock(pTHX); PERL_CALLCONV OP* Perl_op_scope(pTHX_ OP* o); -PERL_CALLCONV OP* Perl_op_sibling_splice(pTHX_ OP *parent, OP *start, int del_count, OP* insert) - __attribute__nonnull__(pTHX_1); +PERL_CALLCONV OP* Perl_op_sibling_splice(OP *parent, OP *start, int del_count, OP* insert) + __attribute__nonnull__(1); #define PERL_ARGS_ASSERT_OP_SIBLING_SPLICE \ assert(parent) |