EBCDIC: retract #16557, it ran into a weird tokenizer(?) bug.

[perl5.git] / iperlsys.h

diff --git a/iperlsys.h b/iperlsys.h
index 0dd5482..86823df 100644 (file)
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -340,8 +340,8 @@ struct IPerlStdIOInfo
 #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)
@@ -953,6 +953,8 @@ typedef int         (*LPProcSpawnvp)(struct IPerlProc*, int, const char*,
 typedef int            (*LPProcASpawn)(struct IPerlProc*, void*, void**, void**);
 #endif
 typedef int            (*LPProcLastHost)(struct IPerlProc*);
+typedef int            (*LPProcGetTimeOfDay)(struct IPerlProc*,
+                                             struct timeval*, void*);
 
 struct IPerlProc
 {
@@ -993,6 +995,7 @@ struct IPerlProc
 #endif
     LPProcLastHost      pLastHost;
     LPProcPopenList    pPopenList;
+    LPProcGetTimeOfDay pGetTimeOfDay;
 };
 
 struct IPerlProcInfo
@@ -1076,6 +1079,8 @@ struct IPerlProcInfo
 #endif
 #define PerlProc_lasthost()                                            \
        (*PL_Proc->pLastHost)(PL_Proc)
+#define PerlProc_gettimeofday(t,z)                                     \
+       (*PL_Proc->pGetTimeOfDay)(PL_Proc,(t),(z))
 
 #else  /* PERL_IMPLICIT_SYS */
 
@@ -1110,6 +1115,7 @@ struct IPerlProcInfo
 #define PerlProc_signal(n, h)  signal((n), (h))
 #define PerlProc_fork()                my_fork()
 #define PerlProc_getpid()      getpid()
+#define PerlProc_gettimeofday(t,z)     gettimeofday((t),(z))
 
 #ifdef WIN32
 #define PerlProc_DynaLoad(f)                                           \