FIX: memory leak in list-env function

Author: Oldes

src/core/n-io.c

@@ -886,7 +886,7 @@ static REBSER *Read_All_File(char *fname)
 	blk = Make_Block(len*2);
 
 	str = start;
-	while (NZ(eq = FIND_CHR(str+1, '=')) && NZ(n = (REBCNT)LEN_STR(str))) {
+	while (NZ(n = (REBCNT)LEN_STR(str)) && NZ(eq = FIND_CHR(str+1, '='))) {
 		Set_Series(REB_STRING, Append_Value(blk), Copy_OS_Str(str, eq-str));
 		Set_Series(REB_STRING, Append_Value(blk), Copy_OS_Str(eq+1, n-(eq-str)-1));
 		str += n + 1; // next
@@ -1169,8 +1169,10 @@ static REBSER *Read_All_File(char *fname)
 {
 	REBCHR *result = OS_LIST_ENV();
 
-	Set_Series(REB_MAP, D_RET, String_List_To_Block(result));
+	if(result == NULL) Trap0(RE_NO_MEMORY);
 
+	Set_Series(REB_MAP, D_RET, String_List_To_Block(result));
+	FREE_MEM(result);
 	return R_RET;
 }
 

src/os/posix/host-lib.c

@@ -555,6 +555,8 @@ int pipe2(int pipefd[2], int flags); //to avoid "implicit-function-declaration"
 **
 */	REBCHR *OS_List_Env(void)
 /*
+**		Returns NULL on error.
+**
 ***********************************************************************/
 {
 	extern char **environ;
@@ -565,6 +567,7 @@ int pipe2(int pipefd[2], int flags); //to avoid "implicit-function-declaration"
 	for (n = 0; environ[n]; n++) len += 1 + LEN_STR(environ[n]);
 
 	cp = str = OS_Make(len + 1); // +terminator
+	if(!cp) return NULL;
 	*cp = 0;
 
 	// combine all strings into one:

src/os/win32/host-lib.c

@@ -546,6 +546,8 @@ static void *Task_Ready;
 **
 */	REBCHR *OS_List_Env(void)
 /*
+**		Returns NULL on error.
+**
 ***********************************************************************/
 {
 	REBCHR *env = GetEnvironmentStrings();
@@ -559,7 +561,9 @@ static void *Task_Ready;
 	}
 	len++;
 
-	str = OS_Make(len * sizeof(REBCHR));
+	str = OS_Make(len * sizeof(REBCHR)); // Must be released by caller!
+	if(!str) return NULL;
+
 	MOVE_MEM(str, env, len * sizeof(REBCHR));
 
 	FreeEnvironmentStrings(env);
@@ -1226,7 +1230,7 @@ static void *Task_Ready;
 	}
 
 output_error:
-	if (input_type == FILE_TYPE) {
+	if (input_type == FILE_TYPE && si.hStdInput != NULL) {
 		CloseHandle(si.hStdInput);
 	}