From dd530bb7e22e953e4cec64a5fd6c39fddc152c6f Mon Sep 17 00:00:00 2001
From: Rodrigo Mesquita <rodrigo.m.mesquita@gmail.com>
Date: Wed, 20 Mar 2024 17:03:56 +0000
Subject: [PATCH] rts: free error message before returning
Fixes a memory leak in rts/linker/PEi386.c
---
rts/linker/PEi386.c | 1 +
1 file changed, 1 insertion(+)
diff --git a/rts/linker/PEi386.c b/rts/linker/PEi386.c
index 843f2a2c6445..7d0819d957ce 100644
--- a/rts/linker/PEi386.c
+++ b/rts/linker/PEi386.c
@@ -1865,6 +1865,7 @@ ocGetNames_PEi386 ( ObjectCode* oc )
if (result != NULL || dllInstance == 0) {
errorBelch("Could not load `%s'. Reason: %s\n",
(char*)dllName, result);
+ stgFree((void*)result);
return false;
}
--
GitLab