- StgWord weight = (sp & STABLEPTR_WEIGHT_MASK) / 2;
- return (sp & ~STABLEPTR_WEIGHT_MASK) + weight;
+ StgWord weight = (stgCast(StgWord,sp) & STABLEPTR_WEIGHT_MASK) / 2;
+ return stgCast(StgStablePtr,(stgCast(StgWord,sp) & ~STABLEPTR_WEIGHT_MASK) + weight);