home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / patches / DProf-19970614-win32.patch < prev    next >
Encoding:
Text File  |  1997-08-10  |  555 b   |  20 lines
  1. --- DProf-19970614/DProf.xs    Mon Jun 23 02:33:26 1997
  2. +++ DProf-19970614-w32/DProf.xs    Mon Jun 23 03:17:11 1997
  3. @@ -46,7 +46,15 @@
  4.     }
  5.  #  define Times(ptr) (dprof_times(ptr))
  6.  #else
  7. -#  define Times(ptr) (times(ptr))
  8. +#  ifdef WIN32
  9. +#    define Times(t) (((t)->tms_stime = 0),        \
  10. +              ((t)->tms_cutime = 0),        \
  11. +              ((t)->tms_cstime = 0),        \
  12. +              ((t)->tms_utime = clock()))
  13. +#    define HZ ((int)CLK_TCK)
  14. +#  else
  15. +#    define Times(ptr) (times(ptr))
  16. +#  endif
  17.  #  ifndef HZ
  18.  #    ifdef CLK_TCK
  19.  #      define HZ CLK_TCK
  20.