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