Change 34948 by [EMAIL PROTECTED] on 2008/11/27 22:37:41
S_mro_get_linear_isa_*() should have an *un*signed level.
[Unless it's a signed concept, use an usigned type.]
Affected files ...
... //depot/perl/embed.fnc#655 edit
... //depot/perl/mro.c#59 edit
... //depot/perl/proto.h#986 edit
Differences ...
==== //depot/perl/embed.fnc#655 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#654~34947~ 2008-11-27 12:01:05.000000000 -0800
+++ perl/embed.fnc 2008-11-27 14:37:41.000000000 -0800
@@ -2183,8 +2183,8 @@
#endif
Apd |AV* |mro_get_linear_isa|NN HV* stash
#if defined(PERL_IN_MRO_C) || defined(PERL_DECL_PROT)
-sd |AV* |mro_get_linear_isa_c3|NN HV* stash|I32 level
-sd |AV* |mro_get_linear_isa_dfs|NN HV* stash|I32 level
+sd |AV* |mro_get_linear_isa_c3|NN HV* stash|U32 level
+sd |AV* |mro_get_linear_isa_dfs|NN HV* stash|U32 level
#endif
: Used in hv.c, mg.c, pp.c, sv.c
pd |void |mro_isa_changed_in|NN HV* stash
==== //depot/perl/mro.c#59 (text) ====
Index: perl/mro.c
--- perl/mro.c#58~34698~ 2008-11-02 13:12:59.000000000 -0800
+++ perl/mro.c 2008-11-27 14:37:41.000000000 -0800
@@ -29,7 +29,7 @@
struct mro_alg {
const char *name;
- AV *(*resolve)(pTHX_ HV* stash, I32 level);
+ AV *(*resolve)(pTHX_ HV* stash, U32 level);
};
/* First one is the default */
@@ -152,7 +152,7 @@
=cut
*/
static AV*
-S_mro_get_linear_isa_dfs(pTHX_ HV *stash, I32 level)
+S_mro_get_linear_isa_dfs(pTHX_ HV *stash, U32 level)
{
AV* retval;
GV** gvp;
@@ -305,7 +305,7 @@
*/
static AV*
-S_mro_get_linear_isa_c3(pTHX_ HV* stash, I32 level)
+S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
{
AV* retval;
GV** gvp;
==== //depot/perl/proto.h#986 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#985~34944~ 2008-11-27 02:10:06.000000000 -0800
+++ perl/proto.h 2008-11-27 14:37:41.000000000 -0800
@@ -6568,12 +6568,12 @@
assert(stash)
#if defined(PERL_IN_MRO_C) || defined(PERL_DECL_PROT)
-STATIC AV* S_mro_get_linear_isa_c3(pTHX_ HV* stash, I32 level)
+STATIC AV* S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA_C3 \
assert(stash)
-STATIC AV* S_mro_get_linear_isa_dfs(pTHX_ HV* stash, I32 level)
+STATIC AV* S_mro_get_linear_isa_dfs(pTHX_ HV* stash, U32 level)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA_DFS \
assert(stash)
End of Patch.
