From 4d15b247104d9cfe36a4e29f7df00e582e7ec9f0 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 9 Jun 2008 19:17:22 +0000 Subject: [PATCH] another stableptr003 fix --- rts/Stable.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/rts/Stable.c b/rts/Stable.c index 046fb3b..a2c47d7 100644 --- a/rts/Stable.c +++ b/rts/Stable.c @@ -218,6 +218,9 @@ lookupStableName_(StgPtr p) */ p = (StgPtr)removeIndirections((StgClosure*)p); + // register the untagged pointer. This just makes things simpler. + p = (StgPtr)UNTAG_CLOSURE((StgClosure*)p); + sn_tmp = lookupHashTable(addrToStableHash,(W_)p); sn = (StgWord)sn_tmp; -- 1.7.10.4