summaryrefslogtreecommitdiff
path: root/rts/RtsSymbols.c
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2020-11-18 11:56:30 +0000
committerMatthew Pickering <matthewtpickering@gmail.com>2021-03-03 19:09:34 +0000
commit9087899e36015bcc0142700a89c368bbc3da4b81 (patch)
treefeefe3a6b8326358543e4e053ad640919351da7a /rts/RtsSymbols.c
parenta7aac008f69ca48e5ab3d4186fdcb3214c6e1463 (diff)
downloadhaskell-9087899e36015bcc0142700a89c368bbc3da4b81.tar.gz
Add whereFrom and whereFrom# primop
The `whereFrom` function provides a Haskell interface for using the information created by `-finfo-table-map`. Given a Haskell value, the info table address will be passed to the `lookupIPE` function in order to attempt to find the source location information for that particular closure. At the moment it's not possible to distinguish the absense of the map and a failed lookup.
Diffstat (limited to 'rts/RtsSymbols.c')
-rw-r--r--rts/RtsSymbols.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c
index f4c15e113b..50a3bae267 100644
--- a/rts/RtsSymbols.c
+++ b/rts/RtsSymbols.c
@@ -678,6 +678,7 @@
SymI_HasProto(initLinker_) \
SymI_HasProto(stg_unpackClosurezh) \
SymI_HasProto(stg_closureSizzezh) \
+ SymI_HasProto(stg_whereFromzh) \
SymI_HasProto(stg_getApStackValzh) \
SymI_HasProto(stg_getSparkzh) \
SymI_HasProto(stg_numSparkszh) \