Enable new warning for fragile/incorrect CPP #if usage
[ghc.git] / rts / Schedule.c
index b77e7a2..296461b 100644 (file)
@@ -411,7 +411,7 @@ run_thread:
     prev_what_next = t->what_next;
 
     errno = t->saved_errno;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
     SetLastError(t->saved_winerror);
 #endif
 
@@ -490,7 +490,7 @@ run_thread:
     // XXX: possibly bogus for SMP because this thread might already
     // be running again, see code below.
     t->saved_errno = errno;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
     // Similarly for Windows error code
     t->saved_winerror = GetLastError();
 #endif
@@ -2374,12 +2374,12 @@ suspendThread (StgRegTable *reg, bool interruptible)
   int saved_errno;
   StgTSO *tso;
   Task *task;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
   StgWord32 saved_winerror;
 #endif
 
   saved_errno = errno;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
   saved_winerror = GetLastError();
 #endif
 
@@ -2419,7 +2419,7 @@ suspendThread (StgRegTable *reg, bool interruptible)
   RELEASE_LOCK(&cap->lock);
 
   errno = saved_errno;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
   SetLastError(saved_winerror);
 #endif
   return task;
@@ -2433,12 +2433,12 @@ resumeThread (void *task_)
     Capability *cap;
     Task *task = task_;
     int saved_errno;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
     StgWord32 saved_winerror;
 #endif
 
     saved_errno = errno;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
     saved_winerror = GetLastError();
 #endif
 
@@ -2475,7 +2475,7 @@ resumeThread (void *task_)
     cap->r.rCurrentTSO = tso;
     cap->in_haskell = true;
     errno = saved_errno;
-#if mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
     SetLastError(saved_winerror);
 #endif