From c02417582e4880ee8c58fd9294fcb8e5ef97010a Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Fri, 20 Jun 2008 15:57:27 +0000
Subject: [PATCH] 2008-06-20 17:56 UTC+0200 Viktor Szakats (harbour.01 syenar
 hu)    * contrib/hbtpathy/telepath.prg      ! Fixed embedded comments.

---
 harbour/ChangeLog                     | 4 ++++
 harbour/contrib/hbtpathy/telepath.prg | 5 ++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a60e68f59e..33e63741ae 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-06-20 17:56 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * contrib/hbtpathy/telepath.prg
+     ! Fixed embedded comments.
+
 2008-06-20 16:23 UTC+0100 Miguel Angel Marchuet Frutos <miguelangel@marchuet.net>
    * contrib/hbziparch/zip.c
    * contrib/hbziparch/zipfile.cpp
diff --git a/harbour/contrib/hbtpathy/telepath.prg b/harbour/contrib/hbtpathy/telepath.prg
index 7e82ef8106..d591fdac9f 100644
--- a/harbour/contrib/hbtpathy/telepath.prg
+++ b/harbour/contrib/hbtpathy/telepath.prg
@@ -560,6 +560,7 @@ function tp_waitfor( ... )
    endif
 
    while ( nDone > _clock() .or. nFirst == 100000 ) .and. ! tp_idle()
+
       if nFirst == 100000
          nFirst := 99999
       endif
@@ -582,7 +583,9 @@ function tp_waitfor( ... )
          exit
       endif
 
-      /* sched_yield() */ /* C level function */
+#if 0
+      sched_yield() // C level function
+#endif
 
    enddo