summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-11-27 22:37:41 +0000
committerNicholas Clark <nick@ccl4.org>2008-11-27 22:37:41 +0000
commit94d1e7066cadf6c0f535c5b253acfe24a6200844 (patch)
treee88ba68892594240e7c4537c8d68ecc3a6d5c3e0
parent1d0620e07f09f003db2a6b3bb16891110785edf3 (diff)
downloadperl-94d1e7066cadf6c0f535c5b253acfe24a6200844.tar.gz
S_mro_get_linear_isa_*() should have an *un*signed level.
[Unless it's a signed concept, use an usigned type.] p4raw-id: //depot/perl@34948
-rw-r--r--embed.fnc4
-rw-r--r--mro.c6
-rw-r--r--proto.h4
3 files changed, 7 insertions, 7 deletions
diff --git a/embed.fnc b/embed.fnc
index a14eab3cd8..1a44a50c4b 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2183,8 +2183,8 @@ p |struct mro_meta* |mro_meta_dup |NN struct mro_meta* smeta|NN CLONE_PARAMS* pa
#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
diff --git a/mro.c b/mro.c
index 6740d59d60..36ad3bac1f 100644
--- a/mro.c
+++ b/mro.c
@@ -29,7 +29,7 @@ These functions are related to the method resolution order of perl classes
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 @@ invalidated).
=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 @@ invalidated).
*/
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;
diff --git a/proto.h b/proto.h
index a2c99a2acf..59192eae6e 100644
--- a/proto.h
+++ b/proto.h
@@ -6568,12 +6568,12 @@ PERL_CALLCONV AV* Perl_mro_get_linear_isa(pTHX_ HV* stash)
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)