(perl #133422) handle Off_t smaller than size_t
authorTony Cook <tony@develop-help.com>
Wed, 8 Aug 2018 04:21:33 +0000 (14:21 +1000)
committerKarl Williamson <khw@cpan.org>
Thu, 9 Aug 2018 17:20:35 +0000 (11:20 -0600)
ext/PerlIO-scalar/scalar.pm
ext/PerlIO-scalar/scalar.xs

index 61b62ea..6f4fa17 100644 (file)
@@ -1,5 +1,5 @@
 package PerlIO::scalar;
-our $VERSION = '0.29';
+our $VERSION = '0.30';
 require XSLoader;
 XSLoader::load();
 1;
index 10a4185..e717736 100644 (file)
@@ -185,11 +185,20 @@ PerlIOScalar_read(pTHX_ PerlIO *f, void *vbuf, Size_t count)
         /* I assume that Off_t is at least as large as len (which 
          * seems safe) and that the size of the buffer in our SV is
          * always less than half the size of the address space
+         *
+         * Which turns out not to be the case on 64-bit Windows, since
+         * a build with USE_LARGE_FILES=undef defines Off_t as long,
+         * which is 32-bits on 64-bit Windows.  This doesn't appear to
+         * be the case on other 64-bit platforms.
          */
-        STATIC_ASSERT_STMT(sizeof(Off_t) >= sizeof(len));
+#if Off_t_size >= Size_t_size
         assert(len < ((~(STRLEN)0) >> 1));
         if ((Off_t)len <= s->posn)
            return 0;
+#else
+        if (len <= (STRLEN)s->posn)
+            return 0;
+#endif
        got = len - (STRLEN)(s->posn);
        if ((STRLEN)got > (STRLEN)count)
            got = (STRLEN)count;