summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Trangez <ikke@nicolast.be>2022-10-31 00:10:50 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-11-02 12:06:48 -0400
commitc235b399d094af3b706eb5a4bf15712fe5e4f795 (patch)
tree6aa853a3dfc46fbfaf55e89b2f75906833f886df
parent99a1d896bca1c2e1068646eed50b02314673236c (diff)
downloadhaskell-c235b399d094af3b706eb5a4bf15712fe5e4f795.tar.gz
rts: tag `stgStrndup` as `STG_MALLOC`
See: https://gitlab.haskell.org/ghc/ghc/-/issues/22381
-rw-r--r--rts/RtsUtils.h3
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/RtsUtils.h b/rts/RtsUtils.h
index 7f7e925cd4..1c5aac82a1 100644
--- a/rts/RtsUtils.h
+++ b/rts/RtsUtils.h
@@ -45,7 +45,8 @@ void *stgCallocBytes(size_t count, size_t size, char *msg)
STG_ALLOC_SIZE2(1, 2)
STG_RETURNS_NONNULL;
-char *stgStrndup(const char *s, size_t n);
+char *stgStrndup(const char *s, size_t n)
+ STG_MALLOC STG_MALLOC1(stgFree);
/* -----------------------------------------------------------------------------
* Misc other utilities