X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fparallel%2FPack.c;h=75e12e0c6642811b939be93d2df59b75ffdc76ab;hb=aa47e9aaabf6b11875749923c2e2726a30235e0a;hp=80a2fae17a6dee1c726a62e1b5d7fa03e2bbbf41;hpb=63ae274a49e72dcf45fb95aabe55703c0021d320;p=ghc-hetmet.git diff --git a/ghc/rts/parallel/Pack.c b/ghc/rts/parallel/Pack.c index 80a2fae..75e12e0 100644 --- a/ghc/rts/parallel/Pack.c +++ b/ghc/rts/parallel/Pack.c @@ -1,6 +1,6 @@ /* Time-stamp: - $Id: Pack.c,v 1.7 2001/05/28 07:13:54 sof Exp $ + $Id: Pack.c,v 1.8 2001/07/24 05:04:59 ken Exp $ Graph packing and unpacking code for sending it to another processor and retrieving the original graph structure from the packet. @@ -1339,7 +1339,7 @@ PackPAP(StgPAP *pap) { nat n, i, j, pack_start; StgPtr p, q; const StgInfoTable* info; - StgWord32 bitmap; + StgWord bitmap; /* debugging only */ StgPtr end; nat size, ptrs, nonptrs, vhs; @@ -1615,7 +1615,7 @@ PackPAP(StgPAP *pap) { for (j=0; jsize; j++) { bitmap = large_bitmap->bitmap[j]; - q = p + sizeof(W_) * 8; + q = p + BITS_IN(W_); while (bitmap != 0) { if ((bitmap & 1) == 0) { Pack((StgWord)(ARGTAG_MAX+1)); @@ -2873,7 +2873,7 @@ UnpackPAP(StgWord ***bufptrP, StgClosure *graph) nat n, i, j, packed_size = 0; StgPtr p, q, end, payload_start, p_FMs; const StgInfoTable* info; - StgWord32 bitmap; + StgWord bitmap; StgWord **bufptr = *bufptrP; #if defined(DEBUG) nat FMs_in_PAP=0; @@ -3092,7 +3092,7 @@ UnpackPAP(StgWord ***bufptrP, StgClosure *graph) for (j=0; jsize; j++) { bitmap = large_bitmap->bitmap[j]; - q = p + sizeof(W_) * 8; + q = p + BITS_IN(W_); while (bitmap != 0) { if ((bitmap & 1) == 0) { *p++ = (StgWord)UnpackFetchMe(&bufptr, (StgClosure**)&p_FMs);