Changeset 25580 for lang/perl/Shika

Timestamp:

12/01/08 17:17:13 (4 years ago)

Author:

yappo

Message:

fixed warning: initialization makes pointer from integer without a cast

Files:

• lang/perl/Shika/trunk/Shika.xs (modified) (3 diffs)

lang/perl/Shika/trunk/Shika.xs

@@ -45 +45 @@
 shika_construct(pTHX_ HV* const args, SV* const klass){
         HV* const stash   = gv_stashsv(klass, TRUE);
-        AV* const isa     = mro_get_linear_isa(stash);
+        AV* const isa     = (AV*)mro_get_linear_isa(stash);
         I32 const isa_len = AvFILLp(isa)+1;
         I32 i;
@@ -179 +179 @@
 static void
 shika_buildall(pTHX_ SV* const self){
-        AV* const isa = mro_get_linear_isa(SvSTASH(SvRV(self)));
+        AV* const isa = (AV*)mro_get_linear_isa(SvSTASH(SvRV(self)));
         I32 i;
 
@@ -207 +207 @@
 static void
 shika_demolishall(pTHX_ SV* const self){
-        AV* const isa = mro_get_linear_isa(SvSTASH(SvRV(self)));
+        AV* const isa = (AV*)mro_get_linear_isa(SvSTASH(SvRV(self)));
         I32 const isa_len = AvFILLp(isa) + 1;
         I32 i;