[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