Changeset 25580 for lang/perl/Shika

Show
Ignore:
Timestamp:
12/01/08 17:17:13 (6 years ago)
Author:
yappo
Message:

fixed warning: initialization makes pointer from integer without a cast

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Shika/trunk/Shika.xs

    r25578 r25580  
    4545shika_construct(pTHX_ HV* const args, SV* const klass){ 
    4646        HV* const stash   = gv_stashsv(klass, TRUE); 
    47         AV* const isa     = mro_get_linear_isa(stash); 
     47        AV* const isa     = (AV*)mro_get_linear_isa(stash); 
    4848        I32 const isa_len = AvFILLp(isa)+1; 
    4949        I32 i; 
     
    179179static void 
    180180shika_buildall(pTHX_ SV* const self){ 
    181         AV* const isa = mro_get_linear_isa(SvSTASH(SvRV(self))); 
     181        AV* const isa = (AV*)mro_get_linear_isa(SvSTASH(SvRV(self))); 
    182182        I32 i; 
    183183 
     
    207207static void 
    208208shika_demolishall(pTHX_ SV* const self){ 
    209         AV* const isa = mro_get_linear_isa(SvSTASH(SvRV(self))); 
     209        AV* const isa = (AV*)mro_get_linear_isa(SvSTASH(SvRV(self))); 
    210210        I32 const isa_len = AvFILLp(isa) + 1; 
    211211        I32 i;