diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-06 06:00:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-06 06:00:08 +0000 |
| commit | 07ba589215942ebbc273059e8ab8622602f3e0f2 (patch) | |
| tree | 53fed2416810a992225aa31d6b44556ca70c8785 /bytecode.h | |
| parent | 15ee1d8715e28c0c0be2cceb2f9f90d79153090e (diff) | |
| download | perl-07ba589215942ebbc273059e8ab8622602f3e0f2.tar.gz | |
[win32] various
- s/PerlIO_fread/PerlIO_read/, the former doesn't exist
- add missing prototypes
- regenerate win32/config*.?c
p4raw-id: //depot/win32/perl@791
Diffstat (limited to 'bytecode.h')
| -rw-r--r-- | bytecode.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecode.h b/bytecode.h index 4676b5ad60..e86c146505 100644 --- a/bytecode.h +++ b/bytecode.h @@ -23,7 +23,7 @@ EXT I32 obj_list_fill INIT(-1); bs.fread((char*)(argp),(len),(nelem),bs.data) #define BGET_FGETC() bs.fgetc(bs.data) #else -#define BGET_FREAD(argp, len, nelem) PerlIO_fread((argp), (len), (nelem), fp) +#define BGET_FREAD(argp, len, nelem) PerlIO_read(fp, (argp), (len)*(nelem)) #define BGET_FGETC() PerlIO_getc(fp) #endif /* INDIRECT_BGET_MACROS */ @@ -51,7 +51,7 @@ EXT I32 obj_list_fill INIT(-1); BGET_U32(arg); \ if (arg) { \ New(666, pv.xpv_pv, arg, char); \ - PerlIO_fread(pv.xpv_pv, 1, arg, fp);\ + PerlIO_read(fp, pv.xpv_pv, arg); \ pv.xpv_len = arg; \ pv.xpv_cur = arg - 1; \ } else { \ |