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

whitespace only

parent aba77860
......@@ -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);
}
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