+ if ( 1 ||
+ p->header.info == Izh_con_info ||
+ p->header.info == Izh_static_info ) {
+ return (HsInt)(p->payload[0]);
+ } else {
+ barf("rts_getInt: not an Int");
+ }
+}
+
+HsInt8
+rts_getInt8 (HaskellObj p)
+{
+ if ( 1 ||
+ p->header.info == I8zh_con_info ||
+ p->header.info == I8zh_static_info ) {
+ return (HsInt8)(HsInt)(p->payload[0]);
+ } else {
+ barf("rts_getInt8: not an Int8");
+ }
+}
+
+HsInt16
+rts_getInt16 (HaskellObj p)
+{
+ if ( 1 ||
+ p->header.info == I16zh_con_info ||
+ p->header.info == I16zh_static_info ) {
+ return (HsInt16)(HsInt)(p->payload[0]);
+ } else {
+ barf("rts_getInt16: not an Int16");
+ }
+}