summaryrefslogtreecommitdiff
path: root/pp_pack.c
diff options
context:
space:
mode:
authorAlexandr Savca <alexandr.savca89@gmail.com>2018-10-08 17:32:44 +0300
committerTony Cook <tony@develop-help.com>2018-10-11 15:29:43 +1100
commitc0f2b6364ca7b765c5d5e346d5b25ca1a455dba4 (patch)
tree502586a3ae14d7f8b561c3e80e7e630909c75178 /pp_pack.c
parent51684e3cb0ae89f477fc488d9d7abc7f0ddbdfa2 (diff)
downloadperl-c0f2b6364ca7b765c5d5e346d5b25ca1a455dba4.tar.gz
fix wrong number of parameters for macro SHIFT_VAR
Diffstat (limited to 'pp_pack.c')
-rw-r--r--pp_pack.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pp_pack.c b/pp_pack.c
index f8be9d48ae..5f1a599eb4 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1378,8 +1378,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c
#if SHORTSIZE != SIZE16
while (len-- > 0) {
unsigned short aushort;
- SHIFT_VAR(utf8, s, strend, aushort, datumtype, needs_swap,
- needs_swap);
+ SHIFT_VAR(utf8, s, strend, aushort, datumtype, needs_swap);
if (!checksum)
mPUSHu(aushort);
else if (checksum > bits_in_uv)