Almost OK: 5.004_61 (threads, perlio)
authorSpider Boardman <spider@orb.nashua.nh.us>
Sun, 1 Mar 1998 02:02:47 +0000 (21:02 -0500)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Thu, 5 Mar 1998 18:46:32 +0000 (18:46 +0000)
p4raw-id: //depot/perl@774

bytecode.pl
byterun.c
byterun.h
perlsdio.h

index 4553edf..2e3f9c6 100644 (file)
@@ -83,7 +83,7 @@ bset_obj_store(void *obj, I32 ix)
 #ifdef INDIRECT_BGET_MACROS
 void byterun(struct bytestream bs)
 #else
-void byterun(FILE *fp)
+void byterun(PerlIO *fp)
 #endif /* INDIRECT_BGET_MACROS */
 {
     dTHR;
@@ -167,7 +167,7 @@ struct bytestream {
 };
 void byterun _((struct bytestream));
 #else
-void byterun _((FILE *));
+void byterun _((PerlIO *));
 #endif /* INDIRECT_BGET_MACROS */
 
 void *bset_obj_store _((void *, I32));
index 7c32930..c99fa08 100644 (file)
--- a/byterun.c
+++ b/byterun.c
@@ -29,7 +29,7 @@ bset_obj_store(void *obj, I32 ix)
 #ifdef INDIRECT_BGET_MACROS
 void byterun(struct bytestream bs)
 #else
-void byterun(FILE *fp)
+void byterun(PerlIO *fp)
 #endif /* INDIRECT_BGET_MACROS */
 {
     dTHR;
index edc043d..85342b8 100644 (file)
--- a/byterun.h
+++ b/byterun.h
@@ -17,7 +17,7 @@ struct bytestream {
 };
 void byterun _((struct bytestream));
 #else
-void byterun _((FILE *));
+void byterun _((PerlIO *));
 #endif /* INDIRECT_BGET_MACROS */
 
 void *bset_obj_store _((void *, I32));
index 5a15a71..9825f8e 100644 (file)
 #undef fopen
 #undef vfprintf
 #undef fgetc
+#undef getc_unlocked
 #undef fputc
+#undef putc_unlocked
 #undef fputs
 #undef ungetc
 #undef fread