This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct some names of parameters in embed.fnc.
authorNicholas Clark <nick@ccl4.org>
Sun, 10 Feb 2008 15:26:19 +0000 (15:26 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 10 Feb 2008 15:26:19 +0000 (15:26 +0000)
p4raw-id: //depot/perl@33271

embed.fnc
proto.h

index 1a75a6c..5d2f383 100644 (file)
--- 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 (file)
--- 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);