diff options
| author | Andrew Cohen <cohen@andy.bu.edu> | 1998-02-27 15:03:29 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-05 18:34:35 +0000 |
| commit | 9c6fd6cc718738e5f1cd2d9bfecc490e1c80350c (patch) | |
| tree | f351d854ed77e9b54f2fd46b32c930c5ca148c89 | |
| parent | 90df79a32e5efcd4332e10b47b03229e1fa625e5 (diff) | |
| download | perl-9c6fd6cc718738e5f1cd2d9bfecc490e1c80350c.tar.gz | |
Change getc/fread to PerlIO_getc/fread in bytecode.h:
Subject: [PATCH 5.004_61] bunch of small patches
p4raw-id: //depot/perl@769
| -rw-r--r-- | bytecode.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bytecode.h b/bytecode.h index f605e27e55..8cdb0010e6 100644 --- a/bytecode.h +++ b/bytecode.h @@ -23,8 +23,8 @@ 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) fread((argp), (len), (nelem), fp) -#define BGET_FGETC() getc(fp) +#define BGET_FREAD(argp, len, nelem) PerlIO_fread((argp), (len), (nelem), fp) +#define BGET_FGETC() PerlIO_getc(fp) #endif /* INDIRECT_BGET_MACROS */ #define BGET_U32(arg) \ @@ -51,7 +51,7 @@ EXT I32 obj_list_fill INIT(-1); BGET_U32(arg); \ if (arg) { \ New(666, pv.xpv_pv, arg, char); \ - fread(pv.xpv_pv, 1, arg, fp); \ + PerlIO_fread(pv.xpv_pv, 1, arg, fp); \ pv.xpv_len = arg; \ pv.xpv_cur = arg - 1; \ } else { \ |