From 33c029dd77888ee5f9b1c7ce8884c982e0428adf Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Wed, 18 May 2016 06:33:03 +1000 Subject: rts: More const correct-ness fixes In addition to more const-correctness fixes this patch fixes an infelicity of the previous const-correctness patch (995cf0f356) which left `UNTAG_CLOSURE` taking a `const StgClosure` pointer parameter but returning a non-const pointer. Here we restore the original type signature of `UNTAG_CLOSURE` and add a new function `UNTAG_CONST_CLOSURE` which takes and returns a const `StgClosure` pointer and uses that wherever possible. Test Plan: Validate on Linux, OS X and Windows Reviewers: Phyx, hsyl20, bgamari, austin, simonmar, trofi Reviewed By: simonmar, trofi Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D2231 --- rts/RaiseAsync.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'rts/RaiseAsync.c') diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index f55a4c23de..c67aa4ce54 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -778,7 +778,7 @@ StgTSO * raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, rtsBool stop_at_atomically, StgUpdateFrame *stop_here) { - StgRetInfoTable *info; + const StgRetInfoTable *info; StgPtr sp, frame; StgClosure *updatee; uint32_t i; -- cgit v1.2.1