PPC NCG: Use liveness information in CmmCall
[ghc.git] / rts / RtsAPI.c
index 533c0c4..26433ac 100644 (file)
@@ -15,7 +15,7 @@
 #include "Prelude.h"
 #include "Schedule.h"
 #include "Capability.h"
-#include "Stable.h"
+#include "StablePtr.h"
 #include "Threads.h"
 #include "Weak.h"
 
@@ -367,7 +367,7 @@ rts_getBool (HaskellObj p)
     const StgInfoTable *info;
 
     info = get_itbl((const StgClosure *)UNTAG_CONST_CLOSURE(p));
-    if (info->srt_bitmap == 0) { // srt_bitmap is the constructor tag
+    if (info->srt == 0) { // srt is the constructor tag
         return 0;
     } else {
         return 1;
@@ -464,7 +464,7 @@ void rts_evalIO (/* inout */ Capability **cap,
  * rts_evalStableIOMain() is suitable for calling main Haskell thread
  * stored in (StablePtr (IO a)) it calls rts_evalStableIO but wraps
  * function in GHC.TopHandler.runMainIO that installs top_handlers.
- * See Trac #12903.
+ * See #12903.
  */
 void rts_evalStableIOMain(/* inout */ Capability **cap,
                           /* in    */ HsStablePtr s,