In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/b43c8b6097ab8a06b5e3f161de81ecdc3b88cffa?hp=58e1d6b2a815852ad117bc02ccb9d3fa670291ff>
- Log -----------------------------------------------------------------
commit b43c8b6097ab8a06b5e3f161de81ecdc3b88cffa
Author: Tony Cook <t...@develop-help.com>
Date: Mon Mar 12 10:53:05 2018 +1100
(perl #127743) re-work for debugging builds with MSVC
My original change here broke debugging builds, since tmp was no longer
available for the TRACEME.
-----------------------------------------------------------------------
Summary of changes:
dist/Storable/Storable.xs | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 45af7be210..62a6c46945 100644
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -6106,7 +6106,10 @@ static SV *retrieve_byte(pTHX_ stcxt_t *cxt, const char
*cname)
SV *sv;
HV *stash;
int siv;
-#ifndef _MSC_VER
+#ifdef _MSC_VER
+ /* MSVC 2017 doesn't handle the AIX workaround well */
+ int tmp;
+#else
signed char tmp; /* Workaround for AIX cc bug --H.Merijn Brand */
#endif
@@ -6114,12 +6117,8 @@ static SV *retrieve_byte(pTHX_ stcxt_t *cxt, const char
*cname)
GETMARK(siv);
TRACEME(("small integer read as %d", (unsigned char) siv));
-#ifdef _MSC_VER
- sv = newSViv(siv - 128);
-#else
tmp = (unsigned char) siv - 128;
sv = newSViv(tmp);
-#endif
stash = cname ? gv_stashpv(cname, GV_ADD) : 0;
SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum"
*/
--
Perl5 Master Repository
