};
#endif
+#ifndef PERL_OBJECT
START_EXTERN_C
OP * ck_anoncode _((OP* o));
OP * ck_split _((OP* o));
OP * ck_subr _((OP* o));
OP * ck_svconst _((OP* o));
+OP * ck_sysread _((OP* o));
OP * ck_trunc _((OP* o));
OP * pp_null _((ARGSproto));
OP * pp_threadsv _((ARGSproto));
END_EXTERN_C
+#endif /* PERL_OBJECT */
#ifndef DOINIT
-EXT OP * (*ppaddr[])(ARGSproto);
+EXT OP * (CPERLscope(*ppaddr)[])(ARGSproto);
#else
-EXT OP * (*ppaddr[])(ARGSproto) = {
+#ifndef PERL_OBJECT
+EXT OP * (CPERLscope(*ppaddr)[])(ARGSproto) = {
pp_null,
pp_stub,
pp_scalar,
pp_lock,
pp_threadsv,
};
+#endif /* PERL_OBJECT */
#endif
#ifndef DOINIT
-EXT OP * (*check[]) _((OP *op));
+EXT OP * (CPERLscope(*check)[]) _((OP *op));
#else
-EXT OP * (*check[]) _((OP *op)) = {
+#ifndef PERL_OBJECT
+EXT OP * (CPERLscope(*check)[]) _((OP *op)) = {
ck_null, /* null */
ck_null, /* stub */
ck_fun, /* scalar */
ck_select, /* sselect */
ck_select, /* select */
ck_eof, /* getc */
- ck_fun, /* read */
+ ck_sysread, /* read */
ck_fun, /* enterwrite */
ck_null, /* leavewrite */
ck_listiob, /* prtf */
ck_listiob, /* print */
ck_fun, /* sysopen */
ck_fun, /* sysseek */
- ck_fun, /* sysread */
+ ck_sysread, /* sysread */
ck_fun, /* syswrite */
ck_fun, /* send */
- ck_fun, /* recv */
+ ck_sysread, /* recv */
ck_eof, /* eof */
ck_fun, /* tell */
ck_fun, /* seek */
ck_rfun, /* lock */
ck_null, /* threadsv */
};
+#endif /* PERL_OBJECT */
#endif
#ifndef DOINIT
0x00000140, /* rv2cv */
0x00000700, /* anoncode */
0x00001c04, /* prototype */
- 0x00002001, /* refgen */
- 0x00001006, /* srefgen */
+ 0x00002101, /* refgen */
+ 0x00001106, /* srefgen */
0x00009c8c, /* ref */
0x00091504, /* bless */
0x00000c08, /* backtick */
0x00009c8e, /* oct */
0x00009c8e, /* abs */
0x00009c9c, /* length */
- 0x0091150c, /* substr */
+ 0x0991150c, /* substr */
0x0011151c, /* vec */
0x0091151c, /* index */
0x0091151c, /* rindex */