summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-04-12 13:09:59 -0600
committerKarl Williamson <khw@cpan.org>2019-04-12 14:02:33 -0600
commit10be8dab8d65a6acbedbff4f9285afc7cd30e8e6 (patch)
tree17b605fd6e5d3cf63a1ee7680d02f6d7167ced94 /pp.c
parent7784d340f7d5a43a56f8f1a0513d2283f3342cb0 (diff)
downloadperl-10be8dab8d65a6acbedbff4f9285afc7cd30e8e6.tar.gz
pp.c: Silence some MS VC warnings
These are bogus warnings.
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c15
1 files changed, 8 insertions, 7 deletions
diff --git a/pp.c b/pp.c
index 1d83b08e9b..babf34843e 100644
--- a/pp.c
+++ b/pp.c
@@ -1316,8 +1316,9 @@ PP(pp_multiply)
alow = aiv;
auvok = TRUE; /* effectively it's a UV now */
} else {
- /* abs, auvok == false records sign */
- alow = -(UV)aiv;
+ /* abs, auvok == false records sign; Using 0- here and
+ * later to silence bogus warning from MS VC */
+ alow = (UV) (0 - (UV) aiv);
}
}
if (buvok) {
@@ -1329,7 +1330,7 @@ PP(pp_multiply)
buvok = TRUE; /* effectively it's a UV now */
} else {
/* abs, buvok == false records sign */
- blow = -(UV)biv;
+ blow = (UV) (0 - (UV) biv);
}
}
@@ -1564,7 +1565,7 @@ PP(pp_modulo)
right = biv;
right_neg = FALSE; /* effectively it's a UV now */
} else {
- right = -(UV)biv;
+ right = (UV) (0 - (UV) biv);
}
}
}
@@ -1594,7 +1595,7 @@ PP(pp_modulo)
left = aiv;
left_neg = FALSE; /* effectively it's a UV now */
} else {
- left = -(UV)aiv;
+ left = (UV) (0 - (UV) aiv);
}
}
}
@@ -1893,7 +1894,7 @@ PP(pp_subtract)
auv = aiv;
auvok = 1; /* Now acting as a sign flag. */
} else {
- auv = -(UV)aiv;
+ auv = (UV) (0 - (UV) aiv);
}
}
a_valid = 1;
@@ -1913,7 +1914,7 @@ PP(pp_subtract)
buv = biv;
buvok = 1;
} else
- buv = -(UV)biv;
+ buv = (UV) (0 - (UV) biv);
}
/* ?uvok if value is >= 0. basically, flagged as UV if it's +ve,
else "IV" now, independent of how it came in.