Changeset 3188 for trunk/essentials/dev-lang/perl/ext/Devel

Timestamp:

Apr 22, 2007, 10:57:48 AM (18 years ago)

Author:

bird

Message:

Applied patch from Paul (aka Creeping).

File:

• trunk/essentials/dev-lang/perl/ext/Devel/DProf/DProf.xs (modified) (4 diffs)

trunk/essentials/dev-lang/perl/ext/Devel/DProf/DProf.xs

@@ -76 +76 @@
 #    endif
 #  endif
-#  ifdef OS2                            /* times() has significant overhead */
+#  if defined(OS2)&&!defined(__KLIBC__) /* times() has significant overhead */
 #    define Times(ptr) (dprof_times(aTHX_ ptr))
 #    define INCL_DOSPROFILE
@@ -132 +132 @@
     U32         default_perldb;
     UV          depth;
-#ifdef OS2
+#  if defined(OS2)&&!defined(__KLIBC__)
     ULONG       frequ;
     long long   start_cnt;
@@ -171 +171 @@
 #  define g_THX                 g_prof_state.my_perl
 #endif
-#ifdef OS2
+#  if defined(OS2)&&!defined(__KLIBC__)
 #  define g_frequ               g_prof_state.frequ
 #  define g_start_cnt           g_prof_state.start_cnt
@@ -179 +179 @@
 dprof_times(pTHX_ struct tms *t)
 {
-#ifdef OS2
+#  if defined(OS2)&&!defined(__KLIBC__)
     ULONG rc;
     QWORD cnt;