[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