Change 33271 by [EMAIL PROTECTED] on 2008/02/10 15:26:19
Correct some names of parameters in embed.fnc.
Affected files ...
... //depot/perl/embed.fnc#573 edit
... //depot/perl/proto.h#907 edit
Differences ...
==== //depot/perl/embed.fnc#573 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#572~33270~ 2008-02-10 06:56:53.000000000 -0800
+++ perl/embed.fnc 2008-02-10 07:26:19.000000000 -0800
@@ -81,7 +81,7 @@
#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_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 |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 |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 @@
|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 @@
|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 @@
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_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
==== //depot/perl/proto.h#907 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#906~33270~ 2008-02-10 06:56:53.000000000 -0800
+++ perl/proto.h 2008-02-10 07:26:19.000000000 -0800
@@ -93,7 +93,7 @@
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_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 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 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 @@
__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_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 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 @@
__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 @@
__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);
End of Patch.
