diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2013-02-14 08:46:55 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2013-02-14 10:56:58 +0000 |
| commit | 7e7a4e4d7e9e84b2c57d3d55e372e738b5f8dbf5 (patch) | |
| tree | b5ab2b56418c09f01275970cc7d4e6629b0e7b43 /rts/RtsStartup.c | |
| parent | 65a0e1eb88fb48d085f8da498a7acc2fd345c2a8 (diff) | |
| download | haskell-7e7a4e4d7e9e84b2c57d3d55e372e738b5f8dbf5.tar.gz | |
Separate StablePtr and StableName tables (#7674)
To improve performance of StablePtr.
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index f5c29f4a70..e83d047695 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -185,7 +185,7 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config) initStorage(); /* initialise the stable pointer table */ - initStablePtrTable(); + initStableTables(); /* Add some GC roots for things in the base package that the RTS * knows about. We don't know whether these turn out to be CAFs @@ -377,7 +377,7 @@ hs_exit_(rtsBool wait_foreign) freeFileLocking(); /* free the stable pointer table */ - exitStablePtrTable(); + exitStableTables(); #if defined(DEBUG) /* free the thread label table */ |