* library/tcltest1.0/tcltest.tcl:

	* generic/tclThreadTest.c: fixed mem leaks in threads

5 files changed, 19 insertions, 13 deletions

diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index ad44449..32de76e 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.3 1999/10/20 01:21:15 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.4 1999/10/30 11:07:05 hobbs Exp $
 
 package provide tcltest 1.0
 
@@ -1656,9 +1656,12 @@ proc ::tcltest::threadReap {} {
 	    foreach tid [testthread names] {
 		if {$tid != $::tcltest::mainThread} {
 		    catch {testthread send -async $tid {testthread exit}}
-		    update
 		}
 	    }
+	    ## Enter a bit a sleep to give the threads enough breathing
+	    ## room to kill themselves off, otherwise the end up with a
+	    ## massive queue of repeated events
+	    after 1
 	}
 	testthread errorproc ThreadError
 	return [llength [testthread names]]
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index ad44449..32de76e 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.3 1999/10/20 01:21:15 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.4 1999/10/30 11:07:05 hobbs Exp $
 
 package provide tcltest 1.0
 
@@ -1656,9 +1656,12 @@ proc ::tcltest::threadReap {} {
 	    foreach tid [testthread names] {
 		if {$tid != $::tcltest::mainThread} {
 		    catch {testthread send -async $tid {testthread exit}}
-		    update
 		}
 	    }
+	    ## Enter a bit a sleep to give the threads enough breathing
+	    ## room to kill themselves off, otherwise the end up with a
+	    ## massive queue of repeated events
+	    after 1
 	}
 	testthread errorproc ThreadError
 	return [llength [testthread names]]
diff --git a/mac/README b/mac/README
index c7569cc..e13b28d 100644
--- a/mac/README
+++ b/mac/README
@@ -8,7 +8,7 @@ Jim Ingham
 Cygnus Solutions
 jingham@cygnus.com
 
-RCS: @(#) $Id: README,v 1.8 1999/06/25 23:29:53 welch Exp $
+RCS: @(#) $Id: README,v 1.8.4.1 1999/10/30 11:07:32 hobbs Exp $
 
 1. Introduction
 ---------------
@@ -64,7 +64,7 @@ In order to compile Macintosh Tcl you must have the
 following items:
 
 	CodeWarrior Pro 2 or 3
-	Mac Tcl 8.1 (source)
+	Mac Tcl (source)
 	More Files 1.4.3
 
 The included project files should work fine.  However, for
diff --git a/mac/tclMacFCmd.c b/mac/tclMacFCmd.c
index dacd432..ac7624b 100644
--- a/mac/tclMacFCmd.c
+++ b/mac/tclMacFCmd.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMacFCmd.c,v 1.5.6.1 1999/09/24 22:49:12 hobbs Exp $
+ * RCS: @(#) $Id: tclMacFCmd.c,v 1.5.6.2 1999/10/30 11:07:33 hobbs Exp $
  */
 
 #include "tclInt.h"
@@ -1202,7 +1202,7 @@ GetFileFinderAttributes(
     FInfo finfo;
     Tcl_DString pathString;
 
-    Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+    Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
     err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
 	    Tcl_DStringValue(&pathString), &fileSpec);
     Tcl_DStringFree(&pathString);
@@ -1281,7 +1281,7 @@ GetFileReadOnly(
     CInfoPBRec paramBlock;
     Tcl_DString pathString;
 
-    Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+    Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
     err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
 	    Tcl_DStringValue(&pathString), &fileSpec);
     Tcl_DStringFree(&pathString);
@@ -1346,7 +1346,7 @@ SetFileFinderAttributes(
     FInfo finfo;
     Tcl_DString pathString;
 
-    Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+    Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
     err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
 	    Tcl_DStringValue(&pathString), &fileSpec);
     Tcl_DStringFree(&pathString);
@@ -1439,7 +1439,7 @@ SetFileReadOnly(
     int hidden;
     Tcl_DString pathString;
 
-    Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+    Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
     err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
 	    Tcl_DStringValue(&pathString), &fileSpec);
     Tcl_DStringFree(&pathString);
diff --git a/mac/tclMacLoad.c b/mac/tclMacLoad.c
index 622eb65..57dc723 100644
--- a/mac/tclMacLoad.c
+++ b/mac/tclMacLoad.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMacLoad.c,v 1.3 1999/04/16 00:47:20 stanton Exp $
+ * RCS: @(#) $Id: tclMacLoad.c,v 1.3.6.1 1999/10/30 11:07:33 hobbs Exp $
  */
 
 #include <CodeFragments.h>
@@ -135,7 +135,7 @@ TclpLoadFile(
     *(Tcl_UtfAtIndex(packageName, Tcl_NumUtfChars(packageName, -1) - 5)) = 0;
     
     native = Tcl_UtfToExternalDString(NULL, fileName, -1, &ds);
-    err = FSpLocationFromPath(strlen(fileName), fileName, &fileSpec);
+    err = FSpLocationFromPath(strlen(native), native, &fileSpec);
     Tcl_DStringFree(&ds);
     
     if (err != noErr) {