diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-07-10 05:05:42 -0400 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-07-10 13:16:30 +0000 |
| commit | 39b6627f5993ef9c7b04fdf4ea0c6a6219cf4639 (patch) | |
| tree | 0629c6a1b9abb7ec3bb70eab8c373fdc71ec0ab0 | |
| parent | 994c4576e6afc3dcc7d4b508b85409274f158989 (diff) | |
| download | perl-39b6627f5993ef9c7b04fdf4ea0c6a6219cf4639.tar.gz | |
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
| -rw-r--r-- | ext/threads/shared/shared.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 0848da91d8..50f70af350 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; |