diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-05-17 16:50:08 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-05-17 16:50:08 +0100 |
| commit | a08759d165ca1a0cfe9ada26f6ea6b9a38ad8853 (patch) | |
| tree | 2043ea39590b0780e4e9443be680108b3bc325f5 /rts | |
| parent | 8ed0bdab7e69bfec14b1de2d662349626f587119 (diff) | |
| download | haskell-a08759d165ca1a0cfe9ada26f6ea6b9a38ad8853.tar.gz | |
Move the genSym stuff from rts into compiler
It's no longer used by Data.Unique, so there's no need to have it
in rts any more.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Linker.c | 1 | ||||
| -rw-r--r-- | rts/RtsUtils.c | 20 |
2 files changed, 0 insertions, 21 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 2bcc522218..06cd6d2025 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -1108,7 +1108,6 @@ typedef struct _RtsSymbolVal { SymI_HasProto(getOrSetSystemTimerThreadIOManagerThreadStore) \ SymI_HasProto(getGCStats) \ SymI_HasProto(getGCStatsEnabled) \ - SymI_HasProto(genSymZh) \ SymI_HasProto(genericRaise) \ SymI_HasProto(getProgArgv) \ SymI_HasProto(getFullProgArgv) \ diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c index fcbb757c05..cb9002c361 100644 --- a/rts/RtsUtils.c +++ b/rts/RtsUtils.c @@ -137,26 +137,6 @@ heapOverflow(void) } /* ----------------------------------------------------------------------------- - genSym stuff, used by GHC itself for its splitting unique supply. - - ToDo: put this somewhere sensible. - ------------------------------------------------------------------------- */ - -static HsInt __GenSymCounter = 0; - -HsInt -genSymZh(void) -{ - return(__GenSymCounter++); -} -HsInt -resetGenSymZh(void) /* it's your funeral */ -{ - __GenSymCounter=0; - return(__GenSymCounter); -} - -/* ----------------------------------------------------------------------------- Get the current time as a string. Used in profiling reports. -------------------------------------------------------------------------- */ |