Commit 870020e6 authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

whitespace only

parent aba77860
...@@ -24,7 +24,7 @@ import CLOSURE base_GHCziIOziException_cannotCompactPinned_closure; ...@@ -24,7 +24,7 @@ import CLOSURE base_GHCziIOziException_cannotCompactPinned_closure;
hp = StgCompactNFData_hp(compact); \ hp = StgCompactNFData_hp(compact); \
if (hp + WDS(sizeW) <= StgCompactNFData_hpLim(compact)) { \ if (hp + WDS(sizeW) <= StgCompactNFData_hpLim(compact)) { \
to = hp; \ to = hp; \
StgCompactNFData_hp(compact) = hp + WDS(sizeW); \ StgCompactNFData_hp(compact) = hp + WDS(sizeW); \
} else { \ } else { \
("ptr" to) = ccall allocateForCompact( \ ("ptr" to) = ccall allocateForCompact( \
MyCapability() "ptr", compact "ptr", sizeW); \ MyCapability() "ptr", compact "ptr", sizeW); \
...@@ -453,4 +453,3 @@ stg_compactFixupPointerszh ( W_ first_block, W_ root ) ...@@ -453,4 +453,3 @@ stg_compactFixupPointerszh ( W_ first_block, W_ root )
gcstr = str; gcstr = str;
return (gcstr, ok); return (gcstr, ok);
} }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment