From 3725a33ba087b9608eb80f7e59e3edbfb0f53478 Mon Sep 17 00:00:00 2001 From: Oldes Date: Fri, 25 Jan 2019 22:08:04 +0100 Subject: [PATCH] FIX: ATRONIX: Memory from OS_Get_Locale should be free according to its doc (cherry picked from commit 253c64b0ef1fe786ccc31e6f235a69794a66ed14) --- src/core/b-init.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/core/b-init.c b/src/core/b-init.c index 5e90b694ab..ddcde22da8 100644 --- a/src/core/b-init.c +++ b/src/core/b-init.c @@ -835,21 +835,25 @@ static REBCNT Set_Option_Word(REBCHR *str, REBCNT field) if (NZ(data = OS_GET_LOCALE(0))) { val = Get_System(SYS_LOCALE, LOCALE_LANGUAGE); Set_String(val, Copy_OS_Str(data, (REBINT)LEN_STR(data))); + OS_FREE(data); } if (NZ(data = OS_GET_LOCALE(1))) { val = Get_System(SYS_LOCALE, LOCALE_LANGUAGE_P); Set_String(val, Copy_OS_Str(data, (REBINT)LEN_STR(data))); + OS_FREE(data); } if (NZ(data = OS_GET_LOCALE(2))) { val = Get_System(SYS_LOCALE, LOCALE_LOCALE); Set_String(val, Copy_OS_Str(data, (REBINT)LEN_STR(data))); + OS_FREE(data); } if (NZ(data = OS_GET_LOCALE(3))) { val = Get_System(SYS_LOCALE, LOCALE_LOCALE_P); Set_String(val, Copy_OS_Str(data, (REBINT)LEN_STR(data))); + OS_FREE(data); } }