avoid a possible sign-extension for offsets/sizes in SGI

[imager.git] / ICO / ICO.xs

diff --git a/ICO/ICO.xs b/ICO/ICO.xs
index abdad0e85783edb35c7375c2f0804dd113e8da37..3a155656ce50243949d2cfc3b7a92aa9483a9aa4 100644 (file)
--- a/ICO/ICO.xs
+++ b/ICO/ICO.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -13,21 +14,23 @@ MODULE = Imager::File::ICO  PACKAGE = Imager::File::ICO
 PROTOTYPES: DISABLE
 
 Imager::ImgRaw
-i_readico_single(ig, index, masked = 0)
+i_readico_single(ig, index, masked = 0, alpha_masked = 0)
        Imager::IO ig
        int index
        bool masked
+       bool alpha_masked
 
 void
-i_readico_multi(ig, masked = 0)
+i_readico_multi(ig, masked = 0, alpha_masked = 0)
        Imager::IO ig
        bool masked
+       bool alpha_masked
       PREINIT:
         i_img **imgs;
         int count;
         int i;
       PPCODE:
-        imgs = i_readico_multi(ig, &count, masked);
+        imgs = i_readico_multi(ig, &count, masked, alpha_masked);
         if (imgs) {
           EXTEND(SP, count);
           for (i = 0; i < count; ++i) {