[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