[commit: ghc] ghc-lwc: removed tabs from tab free files (b9a149d)

Sivaramakrishnan Krishnamoorthy Chandrasekaran kc at galois.com
Sun May 6 18:14:17 CEST 2012


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-lwc

http://hackage.haskell.org/trac/ghc/changeset/b9a149d7e207e06258df0dbe0da70970af759442

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

commit b9a149d7e207e06258df0dbe0da70970af759442
Author: kc <chandras at cs.purdue.edu>
Date:   Sun May 6 11:26:43 2012 -0400

    removed tabs from tab free files

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

 compiler/cmm/PprC.hs       |    6 +++---
 libraries/base/tests/all.T |   34 +++++++++++++++++-----------------
 rts/Capability.c           |    4 ++--
 rts/RtsMain.c              |    4 ++--
 4 files changed, 24 insertions(+), 24 deletions(-)

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index bb9c7aa..295ad2c 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -946,10 +946,10 @@ te_Stmt :: CmmStmt -> TE ()
 te_Stmt (CmmAssign r e)         = te_Reg r >> te_Expr e
 te_Stmt (CmmStore l r)          = te_Expr l >> te_Expr r
 te_Stmt (CmmCall target rs es _) = do {
-																		 te_Target target;
+                                     te_Target target;
                                      mapM_ (te_temp.hintlessCmm) rs;
-                                  	 mapM_ (te_Expr.hintlessCmm) es
-																	 }
+                                     mapM_ (te_Expr.hintlessCmm) es
+                                   }
 te_Stmt (CmmCondBranch e _)     = te_Expr e
 te_Stmt (CmmSwitch e _)         = te_Expr e
 te_Stmt (CmmJump e _)           = te_Expr e
diff --git a/libraries/base/tests/all.T b/libraries/base/tests/all.T
index aaa476c..dadb5ef 100644
--- a/libraries/base/tests/all.T
+++ b/libraries/base/tests/all.T
@@ -48,10 +48,10 @@ test('hGetBuf003', normal, compile_and_run, [''])
 test('hPutBuf001', normal, compile_and_run, [''])
 test('hPutBuf002', extra_clean(['hPutBuf002.out']), compile_and_run, [''])
 
-test('char001', 	normal, compile_and_run, [''])
-test('char002', 	normal, compile_and_run, [''])
+test('char001',   normal, compile_and_run, [''])
+test('char002',   normal, compile_and_run, [''])
 
-test('cstring001', 	normal, compile_and_run, [''])
+test('cstring001',   normal, compile_and_run, [''])
 
 test('length001',
      # This fails without -O, as it relies on a RULE being applied
@@ -59,28 +59,28 @@ test('length001',
      compile_and_run,
      [''])
 
-test('ratio001', 	normal, compile_and_run, [''])
+test('ratio001',   normal, compile_and_run, [''])
 
-test('rand001',		reqlib('random'), compile_and_run, [''])
-test('reads001',		normal, compile_and_run, [''])
-test('show001',		normal, compile_and_run, [''])
-test('text001',		normal, compile_and_run, [''])
+test('rand001',    reqlib('random'), compile_and_run, [''])
+test('reads001',    normal, compile_and_run, [''])
+test('show001',    normal, compile_and_run, [''])
+test('text001',    normal, compile_and_run, [''])
 
-test('tup001',		normal, compile_and_run, [''])
+test('tup001',    normal, compile_and_run, [''])
 
-test('addr001',		normal, compile_and_run, [''])
+test('addr001',    normal, compile_and_run, [''])
 test('dynamic001',      normal, compile_and_run, [''])
 test('dynamic002',      normal, compile_and_run, [''])
 test('dynamic003',      extra_run_opts('+RTS -K32m -RTS'), compile_and_run, [''])
 test('dynamic004',      normal, compile_and_run, [''])
 test('dynamic005',      normal, compile_and_run, [''])
 test('enum01',          skip_if_fast, compile_and_run, ['-cpp'])
-test('enum02', 		skip_if_fast, compile_and_run, ['-cpp'])
-test('enum03', 		skip_if_fast, compile_and_run, ['-cpp'])
-test('enum04', 		normal, compile_and_run, [''])
-test('exceptionsrun001', 	normal, compile_and_run, [''])
-test('exceptionsrun002', 	normal, compile_and_run, [''])
-test('list001'	,	skip_if_fast, compile_and_run, [''])
+test('enum02',     skip_if_fast, compile_and_run, ['-cpp'])
+test('enum03',     skip_if_fast, compile_and_run, ['-cpp'])
+test('enum04',     normal, compile_and_run, [''])
+test('exceptionsrun001',   normal, compile_and_run, [''])
+test('exceptionsrun002',   normal, compile_and_run, [''])
+test('list001'  ,  skip_if_fast, compile_and_run, [''])
 test('list002', skip_if_fast, compile_and_run, [''])
 test('list003', skip_if_fast, compile_and_run, [''])
 
@@ -95,7 +95,7 @@ test('memo002',
      [skip_if_fast,
       extra_run_opts('20'),
       extra_clean(['Memo2.hi', 'Memo2.o'])],
-	multimod_compile_and_run, ['memo002',''])
+  multimod_compile_and_run, ['memo002',''])
 
 test('packedstring001', reqlib('packedstring'), compile_and_run, ['-package packedstring'])
 
diff --git a/rts/Capability.c b/rts/Capability.c
index 56ba68a..4a82227 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -506,7 +506,7 @@ releaseCapability_ (Capability* cap,
     // ThreadBlocked, but the thread may be back on the run queue
     // by now.
     task = cap->run_queue_hd->bound->task;
-	giveCapabilityToTask(cap, task);
+  giveCapabilityToTask(cap, task);
     return;
   }
 
@@ -529,7 +529,7 @@ releaseCapability_ (Capability* cap,
       !emptyRunQueue(cap) || !emptyInbox(cap) ||
         (!cap->disabled && !emptySparkPoolCap(cap)) || globalWorkToDo()) {
     if (cap->spare_workers) {
-	    giveCapabilityToTask(cap, cap->spare_workers);
+      giveCapabilityToTask(cap, cap->spare_workers);
       // The worker Task pops itself from the queue;
       return;
     }
diff --git a/rts/RtsMain.c b/rts/RtsMain.c
index 435df42..821403a 100644
--- a/rts/RtsMain.c
+++ b/rts/RtsMain.c
@@ -59,9 +59,9 @@ static void real_main(void)
 
     /* ToDo: want to start with a larger stack size */
     { 
-	Capability *cap = rts_lock();
+        Capability *cap = rts_lock();
         rts_evalLazyIO(&cap,progmain_closure, NULL);
-	status = rts_getSchedStatus(cap);
+        status = rts_getSchedStatus(cap);
         rts_unlock(cap);
     }
 





More information about the Cvs-ghc mailing list