Fix a memory leak

zsx · zsx · commit 253c64b0ef1f · 2014-02-25T11:28:48.000-05:00
Memory from OS_Get_Locale should be free according to its doc
diff --git a/src/core/b-init.c b/src/core/b-init.c
@@ -822,21 +822,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, 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, 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, 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, LEN_STR(data)));
+		OS_FREE(data);
 	}
 }
 

Original file line number	Diff line number	Diff line change
`@@ -822,21 +822,25 @@ static REBCNT Set_Option_Word(REBCHR *str, REBCNT field)`
`822`	`822`	`if (NZ(data = OS_GET_LOCALE(0))) {`
`823`	`823`	`val = Get_System(SYS_LOCALE, LOCALE_LANGUAGE);`
`824`	`824`	`Set_String(val, Copy_OS_Str(data, LEN_STR(data)));`
	`825`	`+ OS_FREE(data);`
`825`	`826`	`}`
`826`	`827`
`827`	`828`	`if (NZ(data = OS_GET_LOCALE(1))) {`
`828`	`829`	`val = Get_System(SYS_LOCALE, LOCALE_LANGUAGE_P);`
`829`	`830`	`Set_String(val, Copy_OS_Str(data, LEN_STR(data)));`
	`831`	`+ OS_FREE(data);`
`830`	`832`	`}`
`831`	`833`
`832`	`834`	`if (NZ(data = OS_GET_LOCALE(2))) {`
`833`	`835`	`val = Get_System(SYS_LOCALE, LOCALE_LOCALE);`
`834`	`836`	`Set_String(val, Copy_OS_Str(data, LEN_STR(data)));`
	`837`	`+ OS_FREE(data);`
`835`	`838`	`}`
`836`	`839`
`837`	`840`	`if (NZ(data = OS_GET_LOCALE(3))) {`
`838`	`841`	`val = Get_System(SYS_LOCALE, LOCALE_LOCALE_P);`
`839`	`842`	`Set_String(val, Copy_OS_Str(data, LEN_STR(data)));`
	`843`	`+ OS_FREE(data);`
`840`	`844`	`}`
`841`	`845`	`}`
`842`	`846`