summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-06-10 04:41:38 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-06-10 04:41:38 +0000
commit4f63d0249796d635a70b03245ad972152a3eba76 (patch)
tree78e8b9415185329d5689a8dbb8bfaa4aa5ba97cf /ext
parentcea2e8a9dd23747fd2b66edc86c58c64e9970321 (diff)
downloadperl-4f63d0249796d635a70b03245ad972152a3eba76.tar.gz
win32 build fixes
p4raw-id: //depot/perl@3525
Diffstat (limited to 'ext')
-rw-r--r--ext/B/B.xs13
-rw-r--r--ext/ByteLoader/ByteLoader.xs6
-rw-r--r--ext/ByteLoader/bytecode.h6
-rw-r--r--ext/ByteLoader/byterun.h6
-rw-r--r--ext/SDBM_File/sdbm/sdbm.c3
5 files changed, 12 insertions, 22 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs
index f9193ae692..6413a241aa 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -443,19 +443,6 @@ walkoptree_debug(...)
OUTPUT:
RETVAL
-int
-byteload_fh(fp)
- InputStream fp
- CODE:
- byteload_fh(fp);
- RETVAL = 1;
- OUTPUT:
- RETVAL
-
-void
-byteload_string(str)
- char * str
-
#define address(sv) (IV)sv
IV
diff --git a/ext/ByteLoader/ByteLoader.xs b/ext/ByteLoader/ByteLoader.xs
index e927d16f31..34002f12b2 100644
--- a/ext/ByteLoader/ByteLoader.xs
+++ b/ext/ByteLoader/ByteLoader.xs
@@ -25,9 +25,9 @@ byteloader_filter(pTHX_ int idx, SV *buf_sv, int maxlen)
struct bytestream bs;
bs.data = PL_rsfp;
- bs.fgetc = (int(*) (void*))fgetc;
- bs.fread = (int(*) (char*,size_t,size_t,void*))fread;
- bs.freadpv = freadpv;
+ bs.pfgetc = (int(*) (void*))fgetc;
+ bs.pfread = (int(*) (char*,size_t,size_t,void*))fread;
+ bs.pfreadpv = freadpv;
byterun(bs);
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index e743583b61..8a59bb1273 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -8,8 +8,8 @@ typedef OP *opindex;
typedef IV IV64;
#define BGET_FREAD(argp, len, nelem) \
- bs.fread((char*)(argp),(len),(nelem),bs.data)
-#define BGET_FGETC() bs.fgetc(bs.data)
+ bs.pfread((char*)(argp),(len),(nelem),bs.data)
+#define BGET_FGETC() bs.pfgetc(bs.data)
#define BGET_U32(arg) \
BGET_FREAD(&arg, sizeof(U32), 1); arg = PerlSock_ntohl((U32)arg)
@@ -22,7 +22,7 @@ typedef IV IV64;
#define BGET_PV(arg) STMT_START { \
BGET_U32(arg); \
if (arg) \
- bs.freadpv(arg, bs.data, &bytecode_pv); \
+ bs.pfreadpv(arg, bs.data, &bytecode_pv); \
else { \
bytecode_pv.xpv_pv = 0; \
bytecode_pv.xpv_len = 0; \
diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h
index c293160340..3c5b2343c5 100644
--- a/ext/ByteLoader/byterun.h
+++ b/ext/ByteLoader/byterun.h
@@ -10,9 +10,9 @@
*/
struct bytestream {
void *data;
- int (*fgetc)(void *);
- int (*fread)(char *, size_t, size_t, void *);
- void (*freadpv)(U32, void *, XPV *);
+ int (*pfgetc)(void *);
+ int (*pfread)(char *, size_t, size_t, void *);
+ void (*pfreadpv)(U32, void *, XPV *);
};
enum {
diff --git a/ext/SDBM_File/sdbm/sdbm.c b/ext/SDBM_File/sdbm/sdbm.c
index 47de0b9b11..c1e2e4a8a4 100644
--- a/ext/SDBM_File/sdbm/sdbm.c
+++ b/ext/SDBM_File/sdbm/sdbm.c
@@ -9,6 +9,9 @@
#include "INTERN.h"
#include "config.h"
+#ifdef WIN32
+#include "io.h"
+#endif
#include "sdbm.h"
#include "tune.h"
#include "pair.h"