diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-08-06 11:51:35 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-08-06 11:51:35 -0400 |
| commit | 6d1700b6dca6defb8768c493a1059c4215749b53 (patch) | |
| tree | 80dc3968bb4073cd6f06e39a040f32a5a5360e31 /rts/RtsStartup.c | |
| parent | aa818a9f83308d0742e8f8c91cb9878182dacce5 (diff) | |
| download | haskell-6d1700b6dca6defb8768c493a1059c4215749b53.tar.gz | |
rts: Move thread labels into TSO
This eliminates the thread label HashTable and instead tracks this
information in the TSO, allowing us to use proper StgArrBytes arrays for
backing the label and greatly simplifying management of object lifetimes
when we expose them to the user with the coming `threadLabel#` primop.
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 491d745668..5a2c616a73 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -25,7 +25,6 @@ #include "StgRun.h" #include "Prelude.h" /* fixupRTStoPreludeRefs */ #include "Adjustor.h" /* initAdjustors */ -#include "ThreadLabels.h" #include "sm/BlockAlloc.h" #include "Trace.h" #include "StableName.h" @@ -384,9 +383,6 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config) /* initialise file locking, if necessary */ initFileLocking(); - /* initialise thread label table (tso->char*) */ - initThreadLabelTable(); - #if defined(PROFILING) initProfiling(); #endif @@ -558,9 +554,6 @@ hs_exit_(bool wait_foreign) /* free the stable name table */ exitStableNameTable(); - /* free the thread label table */ - freeThreadLabelTable(); - #if defined(PROFILING) reportCCSProfiling(); #endif |