[commit: ghc] master: rts/RtsUtils.c: drop stale comments (295f97f)
git at git.haskell.org
git at git.haskell.org
Sun Apr 16 10:15:33 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/295f97f74dcfc22067b6550f3cbb361c982d5042/ghc
>---------------------------------------------------------------
commit 295f97f74dcfc22067b6550f3cbb361c982d5042
Author: Sergei Trofimovich <slyfox at gentoo.org>
Date: Sun Apr 16 10:45:00 2017 +0100
rts/RtsUtils.c: drop stale comments
Signed-off-by: Sergei Trofimovich <slyfox at gentoo.org>
>---------------------------------------------------------------
295f97f74dcfc22067b6550f3cbb361c982d5042
rts/RtsUtils.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c
index 85f951a..695d5a1 100644
--- a/rts/RtsUtils.c
+++ b/rts/RtsUtils.c
@@ -76,7 +76,7 @@ stgMallocBytes (size_t n, char *msg)
if (n == 0) return NULL;
/* don't fflush(stdout); WORKAROUND bug in Linux glibc */
- rtsConfig.mallocFailHook((W_) n, msg); /*msg*/
+ rtsConfig.mallocFailHook((W_) n, msg);
stg_exit(EXIT_INTERNAL_ERROR);
}
IF_DEBUG(sanity, memset(space, 0xbb, n));
@@ -90,7 +90,7 @@ stgReallocBytes (void *p, size_t n, char *msg)
if ((space = realloc(p, n)) == NULL) {
/* don't fflush(stdout); WORKAROUND bug in Linux glibc */
- rtsConfig.mallocFailHook((W_) n, msg); /*msg*/
+ rtsConfig.mallocFailHook((W_) n, msg);
stg_exit(EXIT_INTERNAL_ERROR);
}
return space;
@@ -103,7 +103,7 @@ stgCallocBytes (size_t n, size_t m, char *msg)
if ((space = calloc(n, m)) == NULL) {
/* don't fflush(stdout); WORKAROUND bug in Linux glibc */
- rtsConfig.mallocFailHook((W_) n*m, msg); /*msg*/
+ rtsConfig.mallocFailHook((W_) n*m, msg);
stg_exit(EXIT_INTERNAL_ERROR);
}
return space;
More information about the ghc-commits
mailing list