diff options
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | embed.h | 1 | ||||
-rw-r--r-- | proto.h | 4 | ||||
-rw-r--r-- | util.h | 2 |
4 files changed, 5 insertions, 4 deletions
@@ -647,7 +647,7 @@ p |void |init_debugger Ap |void |init_stacks Ap |void |init_tm |NN struct tm *ptm : Used in perly.y -AnpPR |char* |instr |NN const char* big|NN const char* little +AbmnpPR |char* |instr |NN const char* big|NN const char* little : Used in sv.c p |bool |io_close |NN IO* io|NULLOK GV *gv \ |bool not_implicit|bool warn_on_fail @@ -238,7 +238,6 @@ #define init_i18nl14n(a) Perl_init_i18nl14n(aTHX_ a) #define init_stacks() Perl_init_stacks(aTHX) #define init_tm(a) Perl_init_tm(aTHX_ a) -#define instr Perl_instr #define intro_my() Perl_intro_my(aTHX) #define isALNUM_lazy(a) Perl_isALNUM_lazy(aTHX_ a) #define isIDFIRST_lazy(a) Perl_isIDFIRST_lazy(aTHX_ a) @@ -1244,9 +1244,9 @@ PERL_CALLCONV void Perl_init_stacks(pTHX); PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm); #define PERL_ARGS_ASSERT_INIT_TM \ assert(ptm) -PERL_CALLCONV char* Perl_instr(const char* big, const char* little) +/* PERL_CALLCONV char* Perl_instr(const char* big, const char* little) __attribute__warn_unused_result__ - __attribute__pure__; + __attribute__pure__; */ #define PERL_ARGS_ASSERT_INSTR \ assert(big); assert(little) @@ -229,6 +229,8 @@ means arg not present, 1 is empty string/null byte */ # define HS_CXT cv #endif +#define instr(haystack, needle) strstr(haystack, needle) + /* * ex: set ts=8 sts=4 sw=4 et: */ |