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