summaryrefslogtreecommitdiff
path: root/libraries/ghc-heap/cbits/HeapPrim.cmm
blob: 915786de287adacb3123f99e0e698b268ef4eea8 (plain)
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);
}