[project @ 1996-07-25 20:43:49 by partain]

[ghc-hetmet.git] / ghc / runtime / gum / Pack.lc

diff --git a/ghc/runtime/gum/Pack.lc b/ghc/runtime/gum/Pack.lc
index f4f9572..26891b8 100644 (file)
--- a/ghc/runtime/gum/Pack.lc
+++ b/ghc/runtime/gum/Pack.lc
@@ -153,7 +153,7 @@ W_ *packbuffersize;
     ASSERT(packlocn <= RTSflags.ParFlags.packBufferSize);
     *packbuffersize = packlocn;
 #  else  /* GRAN */
-    ASSERT(packlocn <= PackBuffer[PACK_SIZE_LOCN]);
+    ASSERT(packlocn <= PackBuffer[PACK_SIZE_LOCN]+PACK_HDR_SIZE);
     /* ToDo: Print an earlier, more meaningful message */
     if (packlocn==PACK_HDR_SIZE) {  /* i.e. packet is empty */
       fprintf(stderr,"EMPTY PACKET! Can't transfer closure %#lx at all!!\n",