From: Andrew Cohen <cohen@andy.bu.edu>
Date: Fri, 27 Feb 1998 20:03:29 +0000 (-0500)
Subject: Change getc/fread to PerlIO_getc/fread in bytecode.h:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c6fd6cc718738e5f1cd2d9bfecc490e1c80350c;p=p5sagit%2Fp5-mst-13.2.git

Change getc/fread to PerlIO_getc/fread in bytecode.h:
Subject: [PATCH 5.004_61] bunch of small patches

p4raw-id: //depot/perl@769
---

diff --git a/bytecode.h b/bytecode.h
index f605e27..8cdb001 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 {				\