X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FHeapStackCheck.cmm;fp=rts%2FHeapStackCheck.cmm;h=1533ae0617a71361406a33d4b8a1705675940e61;hb=5ed9db738f05bcc8a855e2ddd5f3ad243a22e0a8;hp=10baca23c6789552545ab54fed485ff1c4e2579c;hpb=4adc53ff5eb66b6beef9b38e18f23d00de2d56b4;p=ghc-hetmet.git

diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm
index 10baca2..1533ae0 100644
--- a/rts/HeapStackCheck.cmm
+++ b/rts/HeapStackCheck.cmm
@@ -63,11 +63,11 @@ import LeaveCriticalSection;
 #define GC_GENERIC						\
     DEBUG_ONLY(foreign "C" heapCheckFail());			\
     if (Hp > HpLim) {						\
+        Hp = Hp - HpAlloc/*in bytes*/;				\
         if (HpLim == 0) { \
                 R1 = ThreadYielding;				\
                 goto sched;					\
         }						\
-        Hp = Hp - HpAlloc/*in bytes*/;				\
         if (HpAlloc <= BLOCK_SIZE				\
             && bdescr_link(CurrentNursery) != NULL) {		\
             CLOSE_NURSERY();					\