heapsize-0.1: cbits/heapsize_prim.cmm

#include "Cmm.h"

unpackClosurePtrs ( P_ closure )
{
    W_ ptrArray;
    ("ptr" ptrArray) = foreign "C" heap_view_closurePtrs(MyCapability() "ptr", UNTAG(closure) "ptr");
    return (ptrArray);
}

closureSize ( P_ closure )
{
    W_ len;
    (len) = foreign "C" heap_view_closureSize(UNTAG(closure) "ptr");
    return (len);
}