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, 2 insertions, 2 deletions

diff --git a/rts/win32/WorkQueue.c b/rts/win32/WorkQueue.c
index 1f4fb6a467..1d2e9c7a41 100644
--- a/rts/win32/WorkQueue.c
+++ b/rts/win32/WorkQueue.c
@@ -68,7 +68,7 @@ FreeWorkQueue ( WorkQueue* pq )
   /* Free any remaining work items. */
   for (i = 0; i < WORKQUEUE_SIZE; i++) {
     if (pq->items[i] != NULL) {
-      free(pq->items[i]);
+      stgFree(pq->items[i]);
     }
   }
 
@@ -82,7 +82,7 @@ FreeWorkQueue ( WorkQueue* pq )
     CloseHandle(pq->roomAvailable);
   }
   OS_CLOSE_LOCK(&pq->queueLock);
-  free(pq);
+  stgFree(pq);
   return;
 }