X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsStartup.c;h=937334bdabe3b4125f5dc601b227591c4edada51;hb=e119cde9caf1f2acbde7ff53feebdc27d6c35f8d;hp=5bb980674dd35acd5b26fd7b90a81e220284a2db;hpb=d526504719676871376324858fe2073aa2011424;p=ghc-hetmet.git diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 5bb9806..937334b 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -438,6 +438,9 @@ hs_exit(void) // also outputs the stats (+RTS -s) info. exitStorage(); + /* free the tasks */ + freeScheduler(); + /* free shared Typeable store */ exitTypeableStore();