Drop dead code in rts/{Prelude.h,package.conf.in}
authorMoritz Angermann <moritz.angermann@gmail.com>
Sat, 25 Mar 2017 14:53:17 +0000 (10:53 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sun, 26 Mar 2017 23:28:29 +0000 (19:28 -0400)
The endevor to drop the `-Wl,-u,<sym>` requirement for linking the rts,
base, ,... turned out to be less fruitful than I had hoped. However it
did turn up a few dead symbols, that are referenced but for which the
definition seems to have diminished.

Reviewers: austin, rwbarton, geekosaur, erikd, simonmar, bgamari

Reviewed By: geekosaur, simonmar

Subscribers: thomie, snowleopard

Differential Revision: https://phabricator.haskell.org/D3350

rts/Prelude.h
rts/package.conf.in

index f34a69c..d3c9494 100644 (file)
@@ -39,7 +39,6 @@ extern StgClosure ZCMain_main_closure;
 PRELUDE_CLOSURE(base_GHCziIOziException_stackOverflow_closure);
 PRELUDE_CLOSURE(base_GHCziIOziException_heapOverflow_closure);
 PRELUDE_CLOSURE(base_GHCziIOziException_allocationLimitExceeded_closure);
-PRELUDE_CLOSURE(base_GHCziIOziException_blockedIndefinitelyOnThrowTo_closure);
 PRELUDE_CLOSURE(base_GHCziIOziException_blockedIndefinitelyOnMVar_closure);
 PRELUDE_CLOSURE(base_GHCziIOziException_blockedIndefinitelyOnSTM_closure);
 PRELUDE_CLOSURE(base_GHCziIOziException_cannotCompactFunction_closure);
@@ -61,10 +60,10 @@ PRELUDE_INFO(ghczmprim_GHCziTypes_Czh_con_info);
 PRELUDE_INFO(ghczmprim_GHCziTypes_Izh_con_info);
 PRELUDE_INFO(ghczmprim_GHCziTypes_Fzh_con_info);
 PRELUDE_INFO(ghczmprim_GHCziTypes_Dzh_con_info);
+PRELUDE_INFO(ghczmprim_GHCziTypes_Wzh_con_info);
+
 PRELUDE_INFO(base_GHCziPtr_Ptr_con_info);
 PRELUDE_INFO(base_GHCziPtr_FunPtr_con_info);
-PRELUDE_INFO(base_Addr_Azh_con_info);
-PRELUDE_INFO(ghczmprim_GHCziTypes_Wzh_con_info);
 PRELUDE_INFO(base_GHCziInt_I8zh_con_info);
 PRELUDE_INFO(base_GHCziInt_I16zh_con_info);
 PRELUDE_INFO(base_GHCziInt_I32zh_con_info);
@@ -106,7 +105,6 @@ PRELUDE_INFO(base_GHCziStable_StablePtr_con_info);
 #define Izh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Izh_con_info)
 #define Fzh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Fzh_con_info)
 #define Dzh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Dzh_con_info)
-#define Azh_con_info              DLL_IMPORT_DATA_REF(base_Addr_Azh_con_info)
 #define Wzh_con_info              DLL_IMPORT_DATA_REF(ghczmprim_GHCziTypes_Wzh_con_info)
 #define W8zh_con_info             DLL_IMPORT_DATA_REF(base_GHCziWord_W8zh_con_info)
 #define W16zh_con_info            DLL_IMPORT_DATA_REF(base_GHCziWord_W16zh_con_info)
index 02437ae..c328c1f 100644 (file)
@@ -74,46 +74,49 @@ cc-options:
 
 ld-options:
 #ifdef LEADING_UNDERSCORE
-           "-Wl,-u,_base_GHCziInt_I16zh_con_info"
-         , "-Wl,-u,_base_GHCziInt_I32zh_con_info"
-         , "-Wl,-u,_base_GHCziInt_I64zh_con_info"
-         , "-Wl,-u,_base_GHCziInt_I8zh_con_info"
-         , "-Wl,-u,_base_GHCziPtr_FunPtr_con_info"
-         , "-Wl,-u,_base_GHCziPtr_Ptr_con_info"
-         , "-Wl,-u,_base_GHCziStable_StablePtr_con_info"
-         , "-Wl,-u,_base_GHCziWord_W16zh_con_info"
-         , "-Wl,-u,_base_GHCziWord_W32zh_con_info"
-         , "-Wl,-u,_base_GHCziWord_W64zh_con_info"
-         , "-Wl,-u,_base_GHCziWord_W8zh_con_info"
-         , "-Wl,-u,_ghczmprim_GHCziTypes_Czh_con_info"
-         , "-Wl,-u,_ghczmprim_GHCziTypes_Dzh_con_info"
-         , "-Wl,-u,_ghczmprim_GHCziTypes_Fzh_con_info"
-         , "-Wl,-u,_ghczmprim_GHCziTypes_Izh_con_info"
-         , "-Wl,-u,_ghczmprim_GHCziTypes_Wzh_con_info"
+
+           "-Wl,-u,_base_GHCziTopHandler_runIO_closure"
+         , "-Wl,-u,_base_GHCziTopHandler_runNonIO_closure"
+
          , "-Wl,-u,_ghczmprim_GHCziTuple_Z0T_closure"
-         , "-Wl,-u,_ghczmprim_GHCziTypes_False_closure"
          , "-Wl,-u,_ghczmprim_GHCziTypes_True_closure"
+         , "-Wl,-u,_ghczmprim_GHCziTypes_False_closure"
          , "-Wl,-u,_base_GHCziPack_unpackCString_closure"
+         , "-Wl,-u,_base_GHCziWeak_runFinalizzerBatch_closure"
          , "-Wl,-u,_base_GHCziIOziException_stackOverflow_closure"
          , "-Wl,-u,_base_GHCziIOziException_heapOverflow_closure"
-         , "-Wl,-u,_base_ControlziExceptionziBase_nonTermination_closure"
+         , "-Wl,-u,_base_GHCziIOziException_allocationLimitExceeded_closure"
          , "-Wl,-u,_base_GHCziIOziException_blockedIndefinitelyOnMVar_closure"
          , "-Wl,-u,_base_GHCziIOziException_blockedIndefinitelyOnSTM_closure"
-         , "-Wl,-u,_base_GHCziIOziException_allocationLimitExceeded_closure"
          , "-Wl,-u,_base_GHCziIOziException_cannotCompactFunction_closure"
          , "-Wl,-u,_base_GHCziIOziException_cannotCompactPinned_closure"
          , "-Wl,-u,_base_GHCziIOziException_cannotCompactMutable_closure"
+         , "-Wl,-u,_base_ControlziExceptionziBase_nonTermination_closure"
          , "-Wl,-u,_base_ControlziExceptionziBase_nestedAtomically_closure"
          , "-Wl,-u,_base_GHCziEventziThread_blockedOnBadFD_closure"
-         , "-Wl,-u,_base_GHCziWeak_runFinalizzerBatch_closure"
-         , "-Wl,-u,_base_GHCziTopHandler_flushStdHandles_closure"
-         , "-Wl,-u,_base_GHCziTopHandler_runIO_closure"
-         , "-Wl,-u,_base_GHCziTopHandler_runNonIO_closure"
-         , "-Wl,-u,_base_GHCziTopHandler_runMainIO_closure"
+         , "-Wl,-u,_base_GHCziConcziSync_runSparks_closure"
          , "-Wl,-u,_base_GHCziConcziIO_ensureIOManagerIsRunning_closure"
          , "-Wl,-u,_base_GHCziConcziIO_ioManagerCapabilitiesChanged_closure"
-         , "-Wl,-u,_base_GHCziConcziSync_runSparks_closure"
          , "-Wl,-u,_base_GHCziConcziSignal_runHandlersPtr_closure"
+         , "-Wl,-u,_base_GHCziTopHandler_flushStdHandles_closure"
+         , "-Wl,-u,_base_GHCziTopHandler_runMainIO_closure"
+         , "-Wl,-u,_ghczmprim_GHCziTypes_Czh_con_info"
+         , "-Wl,-u,_ghczmprim_GHCziTypes_Izh_con_info"
+         , "-Wl,-u,_ghczmprim_GHCziTypes_Fzh_con_info"
+         , "-Wl,-u,_ghczmprim_GHCziTypes_Dzh_con_info"
+         , "-Wl,-u,_ghczmprim_GHCziTypes_Wzh_con_info"
+         , "-Wl,-u,_base_GHCziPtr_Ptr_con_info"
+         , "-Wl,-u,_base_GHCziPtr_FunPtr_con_info"
+         , "-Wl,-u,_base_GHCziInt_I8zh_con_info"
+         , "-Wl,-u,_base_GHCziInt_I16zh_con_info"
+         , "-Wl,-u,_base_GHCziInt_I32zh_con_info"
+         , "-Wl,-u,_base_GHCziInt_I64zh_con_info"
+         , "-Wl,-u,_base_GHCziWord_W8zh_con_info"
+         , "-Wl,-u,_base_GHCziWord_W16zh_con_info"
+         , "-Wl,-u,_base_GHCziWord_W32zh_con_info"
+         , "-Wl,-u,_base_GHCziWord_W64zh_con_info"
+         , "-Wl,-u,_base_GHCziStable_StablePtr_con_info"
+
          , "-Wl,-u,_hs_atomic_add8"
          , "-Wl,-u,_hs_atomic_add16"
          , "-Wl,-u,_hs_atomic_add32"
@@ -169,46 +172,48 @@ ld-options:
          , "-Wl,-u,_hs_atomicwrite64"
 #endif
 #else
-           "-Wl,-u,base_GHCziInt_I16zh_con_info"
-         , "-Wl,-u,base_GHCziInt_I32zh_con_info"
-         , "-Wl,-u,base_GHCziInt_I64zh_con_info"
-         , "-Wl,-u,base_GHCziInt_I8zh_con_info"
-         , "-Wl,-u,base_GHCziPtr_FunPtr_con_info"
-         , "-Wl,-u,base_GHCziPtr_Ptr_con_info"
-         , "-Wl,-u,base_GHCziStable_StablePtr_con_info"
-         , "-Wl,-u,base_GHCziWord_W16zh_con_info"
-         , "-Wl,-u,base_GHCziWord_W32zh_con_info"
-         , "-Wl,-u,base_GHCziWord_W64zh_con_info"
-         , "-Wl,-u,base_GHCziWord_W8zh_con_info"
-         , "-Wl,-u,ghczmprim_GHCziTypes_Czh_con_info"
-         , "-Wl,-u,ghczmprim_GHCziTypes_Dzh_con_info"
-         , "-Wl,-u,ghczmprim_GHCziTypes_Fzh_con_info"
-         , "-Wl,-u,ghczmprim_GHCziTypes_Izh_con_info"
-         , "-Wl,-u,ghczmprim_GHCziTypes_Wzh_con_info"
+           "-Wl,-u,base_GHCziTopHandler_runIO_closure"
+         , "-Wl,-u,base_GHCziTopHandler_runNonIO_closure"
+
          , "-Wl,-u,ghczmprim_GHCziTuple_Z0T_closure"
-         , "-Wl,-u,ghczmprim_GHCziTypes_False_closure"
          , "-Wl,-u,ghczmprim_GHCziTypes_True_closure"
+         , "-Wl,-u,ghczmprim_GHCziTypes_False_closure"
          , "-Wl,-u,base_GHCziPack_unpackCString_closure"
+         , "-Wl,-u,base_GHCziWeak_runFinalizzerBatch_closure"
          , "-Wl,-u,base_GHCziIOziException_stackOverflow_closure"
          , "-Wl,-u,base_GHCziIOziException_heapOverflow_closure"
-         , "-Wl,-u,base_ControlziExceptionziBase_nonTermination_closure"
+         , "-Wl,-u,base_GHCziIOziException_allocationLimitExceeded_closure"
          , "-Wl,-u,base_GHCziIOziException_blockedIndefinitelyOnMVar_closure"
          , "-Wl,-u,base_GHCziIOziException_blockedIndefinitelyOnSTM_closure"
-         , "-Wl,-u,base_GHCziIOziException_allocationLimitExceeded_closure"
          , "-Wl,-u,base_GHCziIOziException_cannotCompactFunction_closure"
          , "-Wl,-u,base_GHCziIOziException_cannotCompactPinned_closure"
          , "-Wl,-u,base_GHCziIOziException_cannotCompactMutable_closure"
+         , "-Wl,-u,base_ControlziExceptionziBase_nonTermination_closure"
          , "-Wl,-u,base_ControlziExceptionziBase_nestedAtomically_closure"
          , "-Wl,-u,base_GHCziEventziThread_blockedOnBadFD_closure"
-         , "-Wl,-u,base_GHCziWeak_runFinalizzerBatch_closure"
-         , "-Wl,-u,base_GHCziTopHandler_flushStdHandles_closure"
-         , "-Wl,-u,base_GHCziTopHandler_runIO_closure"
-         , "-Wl,-u,base_GHCziTopHandler_runNonIO_closure"
-         , "-Wl,-u,base_GHCziTopHandler_runMainIO_closure"
+         , "-Wl,-u,base_GHCziConcziSync_runSparks_closure"
          , "-Wl,-u,base_GHCziConcziIO_ensureIOManagerIsRunning_closure"
          , "-Wl,-u,base_GHCziConcziIO_ioManagerCapabilitiesChanged_closure"
-         , "-Wl,-u,base_GHCziConcziSync_runSparks_closure"
          , "-Wl,-u,base_GHCziConcziSignal_runHandlersPtr_closure"
+         , "-Wl,-u,base_GHCziTopHandler_flushStdHandles_closure"
+         , "-Wl,-u,base_GHCziTopHandler_runMainIO_closure"
+         , "-Wl,-u,ghczmprim_GHCziTypes_Czh_con_info"
+         , "-Wl,-u,ghczmprim_GHCziTypes_Izh_con_info"
+         , "-Wl,-u,ghczmprim_GHCziTypes_Fzh_con_info"
+         , "-Wl,-u,ghczmprim_GHCziTypes_Dzh_con_info"
+         , "-Wl,-u,ghczmprim_GHCziTypes_Wzh_con_info"
+         , "-Wl,-u,base_GHCziPtr_Ptr_con_info"
+         , "-Wl,-u,base_GHCziPtr_FunPtr_con_info"
+         , "-Wl,-u,base_GHCziInt_I8zh_con_info"
+         , "-Wl,-u,base_GHCziInt_I16zh_con_info"
+         , "-Wl,-u,base_GHCziInt_I32zh_con_info"
+         , "-Wl,-u,base_GHCziInt_I64zh_con_info"
+         , "-Wl,-u,base_GHCziWord_W8zh_con_info"
+         , "-Wl,-u,base_GHCziWord_W16zh_con_info"
+         , "-Wl,-u,base_GHCziWord_W32zh_con_info"
+         , "-Wl,-u,base_GHCziWord_W64zh_con_info"
+         , "-Wl,-u,base_GHCziStable_StablePtr_con_info"
+
          , "-Wl,-u,hs_atomic_add8"
          , "-Wl,-u,hs_atomic_add16"
          , "-Wl,-u,hs_atomic_add32"