libraries/ghc-heap/cbits/HeapPrim.cmm


1
2
3
4
5
6
7
8
9
10
11
12
13

#include "Cmm.h"

aToWordzh (P_ clos)
{
    return (clos);
}

reallyUnsafePtrEqualityUpToTag (W_ clos1, W_  clos2)
{
    clos1 = UNTAG(clos1);
    clos2 = UNTAG(clos2);
    return (clos1 == clos2);
}