diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-11-27 22:37:41 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-11-27 22:37:41 +0000 |
commit | 94d1e7066cadf6c0f535c5b253acfe24a6200844 (patch) | |
tree | e88ba68892594240e7c4537c8d68ecc3a6d5c3e0 | |
parent | 1d0620e07f09f003db2a6b3bb16891110785edf3 (diff) | |
download | perl-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.fnc | 4 | ||||
-rw-r--r-- | mro.c | 6 | ||||
-rw-r--r-- | proto.h | 4 |
3 files changed, 7 insertions, 7 deletions
@@ -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 @@ -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; @@ -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) |