package/tcl/patches/patch-unix_tclUnixTime_c

   1 --- tcl8.5.8.orig/unix/tclUnixTime.c    2008-04-14 19:49:59.000000000 +0200
   2 +++ tcl8.5.8/unix/tclUnixTime.c 2011-01-13 15:59:00.000000000 +0100
   3 @@ -164,12 +164,6 @@ TclpGetWideClicks(void)
   4
   5         (*tclGetTimeProcPtr) (&time, tclTimeClientData);
   6         now = (Tcl_WideInt) (time.sec*1000000 + time.usec);
   7 -    } else {
   8 -#ifdef MAC_OSX_TCL
   9 -       now = (Tcl_WideInt) (mach_absolute_time() & INT64_MAX);
  10 -#else
  11 -#error Wide high-resolution clicks not implemented on this platform
  12 -#endif
  13      }
  14
  15      return now;
  16 @@ -200,23 +194,6 @@ TclpWideClicksToNanoseconds(
  17
  18      if (tclGetTimeProcPtr != NativeGetTime) {
  19         nsec = clicks * 1000;
  20 -    } else {
  21 -#ifdef MAC_OSX_TCL
  22 -       static mach_timebase_info_data_t tb;
  23 -       static uint64_t maxClicksForUInt64;
  24 -
  25 -       if (!tb.denom) {
  26 -           mach_timebase_info(&tb);
  27 -           maxClicksForUInt64 = UINT64_MAX / tb.numer;
  28 -       }
  29 -       if ((uint64_t) clicks < maxClicksForUInt64) {
  30 -           nsec = ((uint64_t) clicks) * tb.numer / tb.denom;
  31 -       } else {
  32 -           nsec = ((long double) (uint64_t) clicks) * tb.numer / tb.denom;
  33 -       }
  34 -#else
  35 -#error Wide high-resolution clicks not implemented on this platform
  36 -#endif
  37      }
  38
  39      return nsec;