diff options
author | Peter Trommler <ptrommler@acm.org> | 2021-12-27 17:59:49 +0100 |
---|---|---|
committer | Peter Trommler <ptrommler@acm.org> | 2021-12-27 17:59:49 +0100 |
commit | 031b2adbeb1bbf4fb828119222174608a3f71238 (patch) | |
tree | 78886118b9c3e210d03284654fd3d0c378049585 | |
parent | 3219610e3ba6cb6a5cd1f4e32e2b4befea5bd384 (diff) | |
download | haskell-wip/T20879.tar.gz |
RTS: Fix CloneStack.c when no table next to codewip/T20879
Function `lookupIPE` does not modify its argument. Reflect this in the
type. Module `CloneStack.c` relies on this for RTS without tables
next to code.
Fixes #20879
-rw-r--r-- | rts/IPE.c | 2 | ||||
-rw-r--r-- | rts/include/rts/IPE.h | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -157,7 +157,7 @@ void registerInfoProvList(InfoProvEnt **ent_list) { RELEASE_LOCK(&ipeMapLock); } -InfoProvEnt *lookupIPE(StgInfoTable *info) { +InfoProvEnt *lookupIPE(const StgInfoTable *info) { updateIpeMap(); return lookupHashTable(ipeMap, (StgWord)info); } diff --git a/rts/include/rts/IPE.h b/rts/include/rts/IPE.h index 07026979d8..0cfe3e2fb3 100644 --- a/rts/include/rts/IPE.h +++ b/rts/include/rts/IPE.h @@ -28,4 +28,4 @@ typedef struct InfoProvEnt_ { } InfoProvEnt; void registerInfoProvList(InfoProvEnt **cc_list); -InfoProvEnt *lookupIPE(StgInfoTable *info); +InfoProvEnt *lookupIPE(const StgInfoTable *info); |