This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Finish off 16350 for non-PERLIO build on linux,
authorNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 3 May 2002 07:07:36 +0000 (07:07 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 3 May 2002 07:07:36 +0000 (07:07 +0000)
non PERL_IMPLICIT_SYS parts of iperlsys.h had junk
for some slots which now perlsdio.h is targeting.

p4raw-id: //depot/perlio@16366

iperlsys.h

index 0dd5482..76a49cd 100644 (file)
@@ -340,8 +340,8 @@ struct IPerlStdIOInfo
 #define PerlSIO_set_ptr(f,p)           PerlIOProc_abort()
 #endif
 #define PerlSIO_setlinebuf(f)          setlinebuf(f)
 #define PerlSIO_set_ptr(f,p)           PerlIOProc_abort()
 #endif
 #define PerlSIO_setlinebuf(f)          setlinebuf(f)
-#define PerlSIO_printf                 Perl_fprintf_nocontext
-#define PerlSIO_stdoutf                        *PL_StdIO->pPrintf
+#define PerlSIO_printf                 fprintf
+#define PerlSIO_stdoutf                        printf
 #define PerlSIO_vprintf(f,fmt,a)       vfprintf(f,fmt,a)
 #define PerlSIO_ftell(f)               ftell(f)
 #define PerlSIO_fseek(f,o,w)           fseek(f,o,w)
 #define PerlSIO_vprintf(f,fmt,a)       vfprintf(f,fmt,a)
 #define PerlSIO_ftell(f)               ftell(f)
 #define PerlSIO_fseek(f,o,w)           fseek(f,o,w)