[commit: ghc] master: rts: detabify/dewhitespace RtsAPI.c (b9ee7e8)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:32:24 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/b9ee7e8af95e7eda306b5bbff7370c8e1438c1e4/ghc
>---------------------------------------------------------------
commit b9ee7e8af95e7eda306b5bbff7370c8e1438c1e4
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:27:28 2014 -0500
rts: detabify/dewhitespace RtsAPI.c
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
b9ee7e8af95e7eda306b5bbff7370c8e1438c1e4
rts/RtsAPI.c | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c
index 7062306..1672253 100644
--- a/rts/RtsAPI.c
+++ b/rts/RtsAPI.c
@@ -367,9 +367,9 @@ rts_getBool (HaskellObj p)
info = get_itbl((StgClosure *)UNTAG_CLOSURE(p));
if (info->srt_bitmap == 0) { // srt_bitmap is the constructor tag
- return 0;
+ return 0;
} else {
- return 1;
+ return 1;
}
}
@@ -482,8 +482,8 @@ void rts_evalStableIO (/* inout */ Capability **cap,
stat = rts_getSchedStatus(*cap);
if (stat == Success && ret != NULL) {
- ASSERT(r != NULL);
- *ret = getStablePtr((StgPtr)r);
+ ASSERT(r != NULL);
+ *ret = getStablePtr((StgPtr)r);
}
}
@@ -519,12 +519,12 @@ rts_checkSchedStatus (char* site, Capability *cap)
SchedulerStatus rc = cap->running_task->incall->stat;
switch (rc) {
case Success:
- return;
+ return;
case Killed:
- errorBelch("%s: uncaught exception",site);
- stg_exit(EXIT_FAILURE);
+ errorBelch("%s: uncaught exception",site);
+ stg_exit(EXIT_FAILURE);
case Interrupted:
- errorBelch("%s: interrupted", site);
+ errorBelch("%s: interrupted", site);
#ifdef THREADED_RTS
// The RTS is shutting down, and the process will probably
// soon exit. We don't want to preempt the shutdown
@@ -536,8 +536,8 @@ rts_checkSchedStatus (char* site, Capability *cap)
stg_exit(EXIT_FAILURE);
#endif
default:
- errorBelch("%s: Return code (%d) not ok",(site),(rc));
- stg_exit(EXIT_FAILURE);
+ errorBelch("%s: Return code (%d) not ok",(site),(rc));
+ stg_exit(EXIT_FAILURE);
}
}
More information about the ghc-commits
mailing list