[commit: ghc] master: [skip ci] rts: Detabify Threads.c (570b339)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/570b3393f926e8fc107be6f4234381b3b636d0de/ghc

>---------------------------------------------------------------

commit 570b3393f926e8fc107be6f4234381b3b636d0de
Author: Austin Seipp <austin at well-typed.com>
Date:   Tue Oct 21 16:34:07 2014 -0500

    [skip ci] rts: Detabify Threads.c
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

570b3393f926e8fc107be6f4234381b3b636d0de
 rts/Threads.c | 74 +++++++++++++++++++++++++++++------------------------------
 1 file changed, 37 insertions(+), 37 deletions(-)

diff --git a/rts/Threads.c b/rts/Threads.c
index 0d0a3fc..76e844a 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -35,8 +35,8 @@ static StgThreadID next_thread_id = 1;
  *    RESERVED_STACK_WORDS    (so we can get back from the stack overflow)
  *  + sizeofW(StgStopFrame)   (the stg_stop_thread_info frame)
  *  + 1                       (the closure to enter)
- *  + 1			      (stg_ap_v_ret)
- *  + 1			      (spare slot req'd by stg_ap_v_ret)
+ *  + 1                       (stg_ap_v_ret)
+ *  + 1                       (spare slot req'd by stg_ap_v_ret)
  *
  * A thread with this stack will bomb immediately with a stack
  * overflow, which will increase its stack size.
@@ -176,17 +176,17 @@ removeThreadFromQueue (Capability *cap, StgTSO **queue, StgTSO *tso)
 
     prev = NULL;
     for (t = *queue; t != END_TSO_QUEUE; prev = t, t = t->_link) {
-	if (t == tso) {
-	    if (prev) {
-		setTSOLink(cap,prev,t->_link);
+        if (t == tso) {
+            if (prev) {
+                setTSOLink(cap,prev,t->_link);
                 t->_link = END_TSO_QUEUE;
                 return rtsFalse;
-	    } else {
-		*queue = t->_link;
+            } else {
+                *queue = t->_link;
                 t->_link = END_TSO_QUEUE;
                 return rtsTrue;
-	    }
-	}
+            }
+        }
     }
     barf("removeThreadFromQueue: not found");
 }
@@ -200,26 +200,26 @@ removeThreadFromDeQueue (Capability *cap,
 
     prev = NULL;
     for (t = *head; t != END_TSO_QUEUE; prev = t, t = t->_link) {
-	if (t == tso) {
-	    if (prev) {
-		setTSOLink(cap,prev,t->_link);
+        if (t == tso) {
+            if (prev) {
+                setTSOLink(cap,prev,t->_link);
                 flag = rtsFalse;
-	    } else {
-		*head = t->_link;
+            } else {
+                *head = t->_link;
                 flag = rtsTrue;
-	    }
+            }
             t->_link = END_TSO_QUEUE;
             if (*tail == tso) {
-		if (prev) {
-		    *tail = prev;
-		} else {
-		    *tail = END_TSO_QUEUE;
-		}
+                if (prev) {
+                    *tail = prev;
+                } else {
+                    *tail = END_TSO_QUEUE;
+                }
                 return rtsTrue;
-	    } else {
+            } else {
                 return flag;
             }
-	}
+        }
     }
     barf("removeThreadFromDeQueue: not found");
 }
@@ -810,7 +810,7 @@ printThreadBlockage(StgTSO *tso)
     break;
   default:
     barf("printThreadBlockage: strange tso->why_blocked: %d for TSO %d (%d)",
-	 tso->why_blocked, tso->id, tso);
+         tso->why_blocked, tso->id, tso);
   }
 }
 
@@ -824,19 +824,19 @@ printThreadStatus(StgTSO *t)
       if (label) debugBelch("[\"%s\"] ",(char *)label);
     }
         switch (t->what_next) {
-	case ThreadKilled:
-	    debugBelch("has been killed");
-	    break;
-	case ThreadComplete:
-	    debugBelch("has completed");
-	    break;
-	default:
-	    printThreadBlockage(t);
-	}
+        case ThreadKilled:
+            debugBelch("has been killed");
+            break;
+        case ThreadComplete:
+            debugBelch("has completed");
+            break;
+        default:
+            printThreadBlockage(t);
+        }
         if (t->dirty) {
             debugBelch(" (TSO_DIRTY)");
         }
-	debugBelch("\n");
+        debugBelch("\n");
 }
 
 void
@@ -852,7 +852,7 @@ printAllThreads(void)
       cap = capabilities[i];
       debugBelch("threads on capability %d:\n", cap->no);
       for (t = cap->run_queue_hd; t != END_TSO_QUEUE; t = t->_link) {
-	  printThreadStatus(t);
+          printThreadStatus(t);
       }
   }
 
@@ -860,7 +860,7 @@ printAllThreads(void)
   for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
     for (t = generations[g].threads; t != END_TSO_QUEUE; t = next) {
       if (t->why_blocked != NotBlocked) {
-	  printThreadStatus(t);
+          printThreadStatus(t);
       }
       next = t->global_link;
     }
@@ -873,8 +873,8 @@ printThreadQueue(StgTSO *t)
 {
     nat i = 0;
     for (; t != END_TSO_QUEUE; t = t->_link) {
-	printThreadStatus(t);
-	i++;
+        printThreadStatus(t);
+        i++;
     }
     debugBelch("%d threads on queue\n", i);
 }