PDCLIB-2 c16rtomb never cleared _Surrogate

diff --git a/functions/uchar/c16rtomb.c b/functions/uchar/c16rtomb.c
index e8f1de780597eb44d4e0b3c6a4356e9bd89f5ba6..6e3a27cfd5add2eef9dfe50d11a855b8fe43433e 100644 (file)
--- a/functions/uchar/c16rtomb.c
+++ b/functions/uchar/c16rtomb.c
@@ -58,6 +58,7 @@ size_t c16rtomb_l(
             if((c16 & 0xFC00) == 0xDC00) {\r
                 // Trailing surrogate\r
                 char32_t c32 = (ps->_Surrogate & 0x3FF) << 10 | (c16 & 0x3FF);\r
+                ps->_Surrogate = 0;\r
                 return c32rtomb_l(s, c32, ps, l);\r
             } else {\r
                 // Not a trailing surrogate - encoding error\r