diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-10-18 11:47:52 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-10-18 22:42:30 +0200 |
| commit | 870020e65728dc03f690e80d3caa0717162891a6 (patch) | |
| tree | e3af5e2929c6b3d8b8355190796cbd2b66b020e0 /rts/Compact.cmm | |
| parent | aba7786068aea673af7576a9082b8201036978b3 (diff) | |
| download | haskell-870020e65728dc03f690e80d3caa0717162891a6.tar.gz | |
whitespace only
Diffstat (limited to 'rts/Compact.cmm')
| -rw-r--r-- | rts/Compact.cmm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/Compact.cmm b/rts/Compact.cmm index 72ad4dd437..174444db40 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); } - |