diff options
| author | Tony Cook <tony@develop-help.com> | 2013-08-12 12:02:51 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-08-12 13:32:21 +1000 |
| commit | 8140a7a801e37d147db0e5a8d89551d9d77666e0 (patch) | |
| tree | 82e1a5fc8e78aed4ea4e5170c06d76361a0df4b0 /proto.h | |
| parent | 81968fbb2f582e72bef18261ac12beb27316016a (diff) | |
| download | perl-8140a7a801e37d147db0e5a8d89551d9d77666e0.tar.gz | |
[perl #3330] warn on increment of an non number/non-magically incable value
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -7108,6 +7108,11 @@ STATIC void S_not_a_number(pTHX_ SV *const sv) #define PERL_ARGS_ASSERT_NOT_A_NUMBER \ assert(sv) +STATIC void S_not_incrementable(pTHX_ SV *const sv) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_NOT_INCREMENTABLE \ + assert(sv) + STATIC PTR_TBL_ENT_t * S_ptr_table_find(PTR_TBL_t *const tbl, const void *const sv) __attribute__warn_unused_result__ __attribute__nonnull__(1); @@ -7124,6 +7129,12 @@ STATIC void S_sv_add_arena(pTHX_ char *const ptr, const U32 size, const U32 flag #define PERL_ARGS_ASSERT_SV_ADD_ARENA \ assert(ptr) +STATIC const char * S_sv_display(pTHX_ SV *const sv, char *tmpbuf, STRLEN tmpbuf_size) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2); +#define PERL_ARGS_ASSERT_SV_DISPLAY \ + assert(sv); assert(tmpbuf) + STATIC STRLEN S_sv_pos_b2u_midway(pTHX_ const U8 *const s, const U8 *const target, const U8 *end, STRLEN endu) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) |