diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-10 04:41:38 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-10 04:41:38 +0000 |
commit | 4f63d0249796d635a70b03245ad972152a3eba76 (patch) | |
tree | 78e8b9415185329d5689a8dbb8bfaa4aa5ba97cf /ext | |
parent | cea2e8a9dd23747fd2b66edc86c58c64e9970321 (diff) | |
download | perl-4f63d0249796d635a70b03245ad972152a3eba76.tar.gz |
win32 build fixes
p4raw-id: //depot/perl@3525
Diffstat (limited to 'ext')
-rw-r--r-- | ext/B/B.xs | 13 | ||||
-rw-r--r-- | ext/ByteLoader/ByteLoader.xs | 6 | ||||
-rw-r--r-- | ext/ByteLoader/bytecode.h | 6 | ||||
-rw-r--r-- | ext/ByteLoader/byterun.h | 6 | ||||
-rw-r--r-- | ext/SDBM_File/sdbm/sdbm.c | 3 |
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" |