diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-05-08 22:49:33 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-05-08 22:49:33 +0000 |
| commit | 57ab3dfef762780a52fccd428b2a630bc33a48f4 (patch) | |
| tree | 22d944da0465db82999d4d066201b8145bc1641c /iperlsys.h | |
| parent | dd15e2708920dbc7ca0967cd7bb3cf4d1bdabec2 (diff) | |
| download | perl-57ab3dfef762780a52fccd428b2a630bc33a48f4.tar.gz | |
make the gettimeofday() implementation in Time::HiRes available
from perl
p4raw-id: //depot/perl@16503
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index 76a49cd1af..86823df02b 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -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) \ |