rts: use allocation helpers from RtsUtils

Just a tiny cleanup inspired by the following comment:
https://gitlab.haskell.org/ghc/ghc/-/issues/19437#note_334271
I was just getting familiar with rts code base so I
thought might as well do this.

1 files changed, 3 insertions, 3 deletions

diff --git a/rts/Libdw.c b/rts/Libdw.c
index 25399a00fe..335d99861b 100644
--- a/rts/Libdw.c
+++ b/rts/Libdw.c
@@ -95,7 +95,7 @@ LibdwSession *libdwInit() {
     session->dwfl = dwfl_begin (&proc_callbacks);
     if (session->dwfl == NULL) {
         sysErrorBelch("dwfl_begin failed: %s", dwfl_errmsg(dwfl_errno()));
-        free(session);
+        stgFree(session);
         return NULL;
     }
 
@@ -122,7 +122,7 @@ LibdwSession *libdwInit() {
 
  fail:
     dwfl_end(session->dwfl);
-    free(session);
+    stgFree(session);
     return NULL;
 }
 
@@ -194,7 +194,7 @@ int libdwForEachFrameOutwards(Backtrace *bt,
             if (res != 0) break;
         }
     }
-    free(chunks);
+    stgFree(chunks);
     return res;
 }