Commit ef59d3c0 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-04-27 12:53:35 by simonmar]

initCapability: initialise the rInHaskell field (found by Valgrind)
parent e1f6c746
......@@ -102,6 +102,7 @@ Capability *free_capabilities;
static void
initCapability( Capability *cap )
{
cap->r.rInHaskell = rtsFalse;
cap->f.stgGCEnter1 = (F_)__stg_gc_enter_1;
cap->f.stgGCFun = (F_)__stg_gc_fun;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment