From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Thu, 10 Jul 2008 09:05:42 +0000 (-0400)
Subject: threads::shared 1.24 (more)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39b6627f5993ef9c7b04fdf4ea0c6a6219cf4639;p=p5sagit%2Fp5-mst-13.2.git

threads::shared 1.24 (more)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510807100605u4f80a1b6u2595fbd030bd5660@mail.gmail.com>

Fixes "unary minus operator applied to unsigned type" warnings on Win32

p4raw-id: //depot/perl@34117
---

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index 0848da9..50f70af 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -873,7 +873,7 @@ sharedsv_elem_mg_FETCH(pTHX_ SV *sv, MAGIC *mg)
         svp = av_fetch((AV*) saggregate, mg->mg_len, 0);
     } else {
         char *key = mg->mg_ptr;
-        STRLEN len = mg->mg_len;
+        I32 len = mg->mg_len;
         assert ( mg->mg_ptr != 0 );
         if (mg->mg_len == HEf_SVKEY) {
             key = SvPV((SV *)mg->mg_ptr, len);
@@ -927,7 +927,7 @@ sharedsv_elem_mg_STORE(pTHX_ SV *sv, MAGIC *mg)
         svp = av_fetch((AV*) saggregate, mg->mg_len, 1);
     } else {
         char *key = mg->mg_ptr;
-        STRLEN len = mg->mg_len;
+        I32 len = mg->mg_len;
         assert ( mg->mg_ptr != 0 );
         if (mg->mg_len == HEf_SVKEY) {
             key = SvPV((SV *)mg->mg_ptr, len);
@@ -962,7 +962,7 @@ sharedsv_elem_mg_DELETE(pTHX_ SV *sv, MAGIC *mg)
         av_delete((AV*) saggregate, mg->mg_len, G_DISCARD);
     } else {
         char *key = mg->mg_ptr;
-        STRLEN len = mg->mg_len;
+        I32 len = mg->mg_len;
         assert ( mg->mg_ptr != 0 );
         if (mg->mg_len == HEf_SVKEY) {
             key = SvPV((SV *)mg->mg_ptr, len);
@@ -1286,7 +1286,7 @@ EXISTS(SV *obj, SV *index)
             SHARED_EDIT;
             exists = av_exists((AV*) sobj, SvIV(index));
         } else {
-            STRLEN len;
+            I32 len;
             char *key = SvPVutf8(index, len);
             if (SvUTF8(index)) {
                 len = -len;