From 23fd8098914ae26b15aaad544f1648b24038138d Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 7 Sep 2002 21:03:37 +0000
Subject: [PATCH]   * correct termination of thread

---
 fcl/tests/threads.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/fcl/tests/threads.pp b/fcl/tests/threads.pp
index 0558ca0100..bf805e94e4 100644
--- a/fcl/tests/threads.pp
+++ b/fcl/tests/threads.pp
@@ -20,7 +20,7 @@ procedure TMyThread.Execute;
 begin
   repeat
     write(ch);
-  until false;
+  until Terminated;
 end;
 
 
@@ -43,8 +43,12 @@ begin
   t2.Destroy;
   t1.Destroy;
 end.
+{
   $Log$
-  Revision 1.3  2002-09-07 15:15:28  peter
+  Revision 1.4  2002-09-07 21:03:37  carl
+    * correct termination of thread
+
+  Revision 1.3  2002/09/07 15:15:28  peter
     * old logs removed and tabs fixed
 
 }