+ if ( 1 || /* see above comment */
+ p->header.info == (const StgInfoTable*)&Wzh_con_info ||
+ p->header.info == (const StgInfoTable*)&Wzh_static_info ) {
+ return (unsigned int)(p->payload[0]);
+ } else {
+ barf("getWord: not a Word");
+ }
+}
+
+unsigned int
+rts_getWord32 (HaskellObj p)
+{
+ if ( 1 || /* see above comment */
+ p->header.info == (const StgInfoTable*)&Wzh_con_info ||
+ p->header.info == (const StgInfoTable*)&Wzh_static_info ) {