[commit: ghc] master: whitespace only (870020e)

git at git.haskell.org git at git.haskell.org
Wed Oct 18 20:43:06 UTC 2017


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/870020e65728dc03f690e80d3caa0717162891a6/ghc

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

commit 870020e65728dc03f690e80d3caa0717162891a6
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Oct 18 11:47:52 2017 +0200

    whitespace only


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

870020e65728dc03f690e80d3caa0717162891a6
 rts/Compact.cmm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/rts/Compact.cmm b/rts/Compact.cmm
index 72ad4dd..174444d 100644
--- a/rts/Compact.cmm
+++ b/rts/Compact.cmm
@@ -24,7 +24,7 @@ import CLOSURE base_GHCziIOziException_cannotCompactPinned_closure;
     hp = StgCompactNFData_hp(compact);                                  \
     if (hp + WDS(sizeW) <= StgCompactNFData_hpLim(compact)) {           \
         to = hp;                                                        \
-        StgCompactNFData_hp(compact) = hp + WDS(sizeW);                  \
+        StgCompactNFData_hp(compact) = hp + WDS(sizeW);                 \
     } else {                                                            \
         ("ptr" to) = ccall allocateForCompact(                          \
             MyCapability() "ptr", compact "ptr", sizeW);                \
@@ -453,4 +453,3 @@ stg_compactFixupPointerszh ( W_ first_block, W_ root )
     gcstr = str;
     return (gcstr, ok);
 }
-



More information about the ghc-commits mailing list