From: Nicholas Clark Date: Sun, 10 Feb 2008 15:26:19 +0000 (+0000) Subject: Correct some names of parameters in embed.fnc. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f6cc744b0938e4177a1aff14a9bfc8b8f96c6bc;p=p5sagit%2Fp5-mst-13.2.git Correct some names of parameters in embed.fnc. p4raw-id: //depot/perl@33271 --- diff --git a/embed.fnc b/embed.fnc index 1a75a6c..5d2f383 100644 --- a/embed.fnc +++ b/embed.fnc @@ -81,7 +81,7 @@ npR |MEM_SIZE|malloced_size |NN void *p #endif AnpR |void* |get_context -Anp |void |set_context |NN void *thx +Anp |void |set_context |NN void *t END_EXTERN_C @@ -258,7 +258,7 @@ Ap |void |dump_packsubs |NN const HV* stash Ap |void |dump_sub |NN const GV* gv Apd |void |fbm_compile |NN SV* sv|U32 flags ApdR |char* |fbm_instr |NN unsigned char* big|NN unsigned char* bigend \ - |NN SV* littlesv|U32 flags + |NN SV* littlestr|U32 flags p |char* |find_script |NN const char *scriptname|bool dosearch \ |NULLOK const char *const *const search_ext|I32 flags p |OP* |force_list |NULLOK OP* arg @@ -268,7 +268,7 @@ Ap |char* |vform |NN const char* pat|NULLOK va_list* args Ap |void |free_tmps p |OP* |gen_constant_list|NULLOK OP* o #if !defined(HAS_GETENV_LEN) -p |char* |getenv_len |NN const char* key|NN unsigned long *len +p |char* |getenv_len |NN const char *env_elem|NN unsigned long *len #endif pox |void |get_db_sub |NULLOK SV **svp|NN CV *cv Ap |void |gp_free |NULLOK GV* gv @@ -498,7 +498,7 @@ Apd |U32 |mg_length |NN SV* sv Apd |void |mg_magical |NN SV* sv Apd |int |mg_set |NN SV* sv Ap |I32 |mg_size |NN SV* sv -Ap |void |mini_mktime |NN struct tm *pm +Ap |void |mini_mktime |NN struct tm *ptm EXp |OP* |mod |NULLOK OP* o|I32 type p |int |mode_from_discipline|NULLOK SV* discp Ap |const char* |moreswitches |NN const char* s @@ -605,14 +605,14 @@ Apa |OP* |newWHILEOP |I32 flags|I32 debuggable|NULLOK LOOP* loop \ |I32 has_my Apa |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems Ap |char* |scan_vstring |NN const char *vstr|NN const char *const end|NN SV *sv -Apd |const char* |scan_version |NN const char *vstr|NN SV *sv|bool qv +Apd |const char* |scan_version |NN const char *s|NN SV *rv|bool qv Apd |SV* |new_version |NN SV *ver Apd |SV* |upg_version |NN SV *ver|bool qv Apd |bool |vverify |NN SV *vs Apd |SV* |vnumify |NN SV *vs Apd |SV* |vnormal |NN SV *vs Apd |SV* |vstringify |NN SV *vs -Apd |int |vcmp |NN SV *lvs|NN SV *rvs +Apd |int |vcmp |NN SV *lhv|NN SV *rhv p |PerlIO*|nextargv |NN GV* gv ApP |char* |ninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend @@ -726,7 +726,7 @@ ApP |char* |rninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend Ap |Sighandler_t|rsignal |int i|Sighandler_t t p |int |rsignal_restore|int i|NULLOK Sigsave_t* t -p |int |rsignal_save |int i|Sighandler_t t1|NN Sigsave_t* t2 +p |int |rsignal_save |int i|Sighandler_t t1|NN Sigsave_t* save Ap |Sighandler_t|rsignal_state|int i p |void |rxres_free |NN void** rsp p |void |rxres_restore |NN void** rsp|NN REGEXP* prx @@ -789,7 +789,7 @@ Ap |char* |scan_num |NN const char* s|NN YYSTYPE *lvalp Apd |NV |scan_oct |NN const char* start|STRLEN len|NN STRLEN* retlen p |OP* |scope |NULLOK OP* o Ap |char* |screaminstr |NN SV *bigstr|NN SV *littlestr|I32 start_shift \ - |I32 end_shift|NN I32 *oldposp|I32 last + |I32 end_shift|NN I32 *old_posp|I32 last #if !defined(VMS) p |I32 |setenv_getix |NN const char* nam #endif @@ -1805,7 +1805,7 @@ Ap |GV* |gv_fetchpvn_flags|NN const char* name|STRLEN len|I32 flags|I32 sv_type Ap |GV* |gv_fetchsv|NN SV *name|I32 flags|I32 sv_type dpR |bool |is_gv_magical_sv|NN SV *name|U32 flags -ApR |bool |stashpv_hvname_match|NN const COP *cop|NN const HV *hv +ApR |bool |stashpv_hvname_match|NN const COP *c|NN const HV *hv #ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP p |void |dump_sv_child |NN SV *sv diff --git a/proto.h b/proto.h index 9ca95ae..d8ee5a4 100644 --- a/proto.h +++ b/proto.h @@ -93,7 +93,7 @@ PERL_CALLCONV MEM_SIZE Perl_malloced_size(void *p) PERL_CALLCONV void* Perl_get_context(void) __attribute__warn_unused_result__; -PERL_CALLCONV void Perl_set_context(void *thx) +PERL_CALLCONV void Perl_set_context(void *t) __attribute__nonnull__(1); @@ -573,7 +573,7 @@ PERL_CALLCONV void Perl_dump_sub(pTHX_ const GV* gv) PERL_CALLCONV void Perl_fbm_compile(pTHX_ SV* sv, U32 flags) __attribute__nonnull__(pTHX_1); -PERL_CALLCONV char* Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags) +PERL_CALLCONV char* Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlestr, U32 flags) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) @@ -596,7 +596,7 @@ PERL_CALLCONV char* Perl_vform(pTHX_ const char* pat, va_list* args) PERL_CALLCONV void Perl_free_tmps(pTHX); PERL_CALLCONV OP* Perl_gen_constant_list(pTHX_ OP* o); #if !defined(HAS_GETENV_LEN) -PERL_CALLCONV char* Perl_getenv_len(pTHX_ const char* key, unsigned long *len) +PERL_CALLCONV char* Perl_getenv_len(pTHX_ const char *env_elem, unsigned long *len) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); @@ -1338,7 +1338,7 @@ PERL_CALLCONV int Perl_mg_set(pTHX_ SV* sv) PERL_CALLCONV I32 Perl_mg_size(pTHX_ SV* sv) __attribute__nonnull__(pTHX_1); -PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *pm) +PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *ptm) __attribute__nonnull__(pTHX_1); PERL_CALLCONV OP* Perl_mod(pTHX_ OP* o, I32 type); @@ -1667,7 +1667,7 @@ PERL_CALLCONV char* Perl_scan_vstring(pTHX_ const char *vstr, const char *const __attribute__nonnull__(pTHX_2) __attribute__nonnull__(pTHX_3); -PERL_CALLCONV const char* Perl_scan_version(pTHX_ const char *vstr, SV *sv, bool qv) +PERL_CALLCONV const char* Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); @@ -1689,7 +1689,7 @@ PERL_CALLCONV SV* Perl_vnormal(pTHX_ SV *vs) PERL_CALLCONV SV* Perl_vstringify(pTHX_ SV *vs) __attribute__nonnull__(pTHX_1); -PERL_CALLCONV int Perl_vcmp(pTHX_ SV *lvs, SV *rvs) +PERL_CALLCONV int Perl_vcmp(pTHX_ SV *lhv, SV *rhv) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); @@ -1954,7 +1954,7 @@ PERL_CALLCONV char* Perl_rninstr(pTHX_ const char* big, const char* bigend, cons PERL_CALLCONV Sighandler_t Perl_rsignal(pTHX_ int i, Sighandler_t t); PERL_CALLCONV int Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t); -PERL_CALLCONV int Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* t2) +PERL_CALLCONV int Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* save) __attribute__nonnull__(pTHX_3); PERL_CALLCONV Sighandler_t Perl_rsignal_state(pTHX_ int i); @@ -2120,7 +2120,7 @@ PERL_CALLCONV NV Perl_scan_oct(pTHX_ const char* start, STRLEN len, STRLEN* retl __attribute__nonnull__(pTHX_3); PERL_CALLCONV OP* Perl_scope(pTHX_ OP* o); -PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift, I32 *oldposp, I32 last) +PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift, I32 *old_posp, I32 last) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) __attribute__nonnull__(pTHX_5); @@ -4531,7 +4531,7 @@ PERL_CALLCONV bool Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags) __attribute__nonnull__(pTHX_1); -PERL_CALLCONV bool Perl_stashpv_hvname_match(pTHX_ const COP *cop, const HV *hv) +PERL_CALLCONV bool Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2);