typedef char *strconst;
typedef U32 PV;
typedef char *op_tr_array;
-typedef int comment;
+typedef int comment_t;
typedef SV *svindex;
typedef OP *opindex;
typedef IV IV64;
#endif /* INDIRECT_BGET_MACROS */
#define BGET_U32(arg) \
- BGET_FREAD(&arg, sizeof(U32), 1); arg = ntohl((U32)arg)
+ BGET_FREAD(&arg, sizeof(U32), 1); arg = PerlSock_ntohl((U32)arg)
#define BGET_I32(arg) \
- BGET_FREAD(&arg, sizeof(I32), 1); arg = (I32)ntohl((U32)arg)
+ BGET_FREAD(&arg, sizeof(I32), 1); arg = (I32)PerlSock_ntohl((U32)arg)
#define BGET_U16(arg) \
- BGET_FREAD(&arg, sizeof(U16), 1); arg = ntohs((U16)arg)
+ BGET_FREAD(&arg, sizeof(U16), 1); arg = PerlSock_ntohs((U16)arg)
#define BGET_U8(arg) arg = BGET_FGETC()
#if INDIRECT_BGET_MACROS
} STMT_END
#endif /* INDIRECT_BGET_MACROS */
-#define BGET_comment(arg) \
+#define BGET_comment_t(arg) \
do { arg = BGET_FGETC(); } while (arg != '\n' && arg != EOF)
/*
New(666, ary, 256, unsigned short); \
BGET_FREAD(ary, 256, 2); \
for (i = 0; i < 256; i++) \
- ary[i] = ntohs(ary[i]); \
+ ary[i] = PerlSock_ntohs(ary[i]); \
arg = (char *) ary; \
} while (0)