[commit: ghc] master: rts: detabify/dewhitespace Hpc.c (93ec914)

git at git.haskell.org git at git.haskell.org
Wed Aug 20 17:31:59 UTC 2014


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/93ec914b14db06b111f2fb7cd0e7a0eece214684/ghc

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

commit 93ec914b14db06b111f2fb7cd0e7a0eece214684
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Aug 20 12:22:48 2014 -0500

    rts: detabify/dewhitespace Hpc.c
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

93ec914b14db06b111f2fb7cd0e7a0eece214684
 rts/Hpc.c | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/rts/Hpc.c b/rts/Hpc.c
index c4f43cd..ca3386d 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -32,11 +32,11 @@
  *
  */
 
-static int hpc_inited = 0;		// Have you started this component?
-static pid_t hpc_pid = 0;		// pid of this process at hpc-boot time.
-					// Only this pid will read or write .tix file(s).
-static FILE *tixFile;			// file being read/written
-static int tix_ch;			// current char
+static int hpc_inited = 0;              // Have you started this component?
+static pid_t hpc_pid = 0;               // pid of this process at hpc-boot time.
+                                        // Only this pid will read or write .tix file(s).
+static FILE *tixFile;                   // file being read/written
+static int tix_ch;                      // current char
 
 static HashTable * moduleHash = NULL;   // module name -> HpcModuleInfo
 
@@ -143,8 +143,8 @@ readTix(void) {
       tmpModule->tixArr[i] = expectWord64();
       ws();
       if (tix_ch == ',') {
-	expect(',');
-	ws();
+        expect(',');
+        ws();
       }
     }
     expect(']');
@@ -252,8 +252,8 @@ startupHpc(void)
 
 void
 hs_hpc_module(char *modName,
-	      StgWord32 modCount,
-	      StgWord32 modHashNo,
+              StgWord32 modCount,
+              StgWord32 modHashNo,
               StgWord64 *tixArr)
 {
   HpcModuleInfo *tmpModule;
@@ -331,26 +331,26 @@ writeTix(FILE *f) {
       outer_comma = 1;
     }
     fprintf(f," TixModule \"%s\" %u %u [",
-	   tmpModule->modName,
-	    (nat)tmpModule->hashNo,
-	    (nat)tmpModule->tickCount);
+           tmpModule->modName,
+            (nat)tmpModule->hashNo,
+            (nat)tmpModule->tickCount);
     debugTrace(DEBUG_hpc,"%s: %u (hash=%u)\n",
-	       tmpModule->modName,
-	       (nat)tmpModule->tickCount,
+               tmpModule->modName,
+               (nat)tmpModule->tickCount,
                (nat)tmpModule->hashNo);
 
     inner_comma = 0;
     for(i = 0;i < tmpModule->tickCount;i++) {
       if (inner_comma) {
-	fprintf(f,",");
+        fprintf(f,",");
       } else {
-	inner_comma = 1;
+        inner_comma = 1;
       }
 
       if (tmpModule->tixArr) {
-	fprintf(f,"%" FMT_Word64,tmpModule->tixArr[i]);
+        fprintf(f,"%" FMT_Word64,tmpModule->tixArr[i]);
       } else {
-	fprintf(f,"0");
+        fprintf(f,"0");
       }
     }
     fprintf(f,"]");



More information about the ghc-commits mailing list