Change 34117: [PATCH] threads::shared 1.24 (more)

[Steve Hay]

Change 34117 by [EMAIL PROTECTED] on 2008/07/10 13:16:30

        Subject: [PATCH] threads::shared 1.24 (more)
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Thu, 10 Jul 2008 09:05:42 -0400
        Message-ID: <[EMAIL PROTECTED]>
        
        Fixes "unary minus operator applied to unsigned type" warnings on Win32

Affected files ...

... //depot/perl/ext/threads/shared/shared.xs#76 edit

Differences ...

==== //depot/perl/ext/threads/shared/shared.xs#76 (text) ====
Index: perl/ext/threads/shared/shared.xs
--- perl/ext/threads/shared/shared.xs#75~34102~ 2008-07-06 07:12:24.000000000 
-0700
+++ perl/ext/threads/shared/shared.xs   2008-07-10 06:16:30.000000000 -0700
@@ -873,7 +873,7 @@
         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 @@
         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 @@
         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 @@
             SHARED_EDIT;
             exists = av_exists((AV*) sobj, SvIV(index));
         } else {
-            STRLEN len;
+            I32 len;
             char *key = SvPVutf8(index, len);
             if (SvUTF8(index)) {
                 len = -len;
End of Patch.