From 58102fbcddfc85f922fa2b3eb60706c924052d79 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Fri, 11 Dec 1998 00:12:07 +0000
Subject: lint

---
 generic/tclThread.c | 6 +++---
 tests/fCmd.test     | 8 +++-----
 tests/unixFCmd.test | 8 +++-----
 3 files changed, 9 insertions(+), 13 deletions(-)

diff --git a/generic/tclThread.c b/generic/tclThread.c
index ca29cc7..2196e6d 100644
--- a/generic/tclThread.c
+++ b/generic/tclThread.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: tclThread.c,v 1.1.2.5 1998/12/10 21:57:48 stanton Exp $
+ * RCS: @(#) $Id: tclThread.c,v 1.1.2.6 1998/12/11 00:12:07 stanton Exp $
  */
 
 #include "tclInt.h"
@@ -123,8 +123,8 @@ Tcl_GetThreadData(keyPtr, size)
 
     result = TclpThreadDataKeyGet(keyPtr);
     if (result == NULL) {
-	result  = (VOID *)ckalloc(size);
-	memset(result, 0, size);
+	result  = (VOID *)ckalloc((size_t)size);
+	memset(result, 0, (size_t)size);
 	TclpThreadDataKeySet(keyPtr, result);
     }
 #else
diff --git a/tests/fCmd.test b/tests/fCmd.test
index fcde275..46ae37f 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -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: fCmd.test,v 1.1.2.3 1998/12/10 03:28:02 stanton Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.1.2.4 1998/12/11 00:12:08 stanton Exp $
 #
 
 if {[string compare test [info procs test]] == 1} then {source defs}
@@ -584,13 +584,11 @@ test fCmd-6.30 {CopyRenameOneFile: TclpRemoveDirectory failed} {unixOnly} {
     file mkdir foo/bar
     file attr foo -perm 040555
     set msg [list [catch {file rename foo/bar /tmp} msg] $msg]
-    set a1 {1 {can't unlink "foo/bar": permission denied}}
-    set result [expr {$msg == $a1}]
     catch {file delete /tmp/bar}
     catch {file attr foo -perm 040777}
     catch {file delete -force foo}
-    set result
-} {1}
+    set msg
+} {1 {can't unlink "foo/bar": permission denied}}
 test fCmd-6.31 {CopyRenameOneFile: TclpDeleteFile passed} {unixOnly xdev} {
     catch {cleanup /tmp}
     file mkdir /tmp/td1
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index b8c6711..ad1c1fc 100644
--- a/tests/unixFCmd.test
+++ b/tests/unixFCmd.test
@@ -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: unixFCmd.test,v 1.1.2.2 1998/09/24 23:59:39 stanton Exp $
+# RCS: @(#) $Id: unixFCmd.test,v 1.1.2.3 1998/12/11 00:12:08 stanton Exp $
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -84,13 +84,11 @@ test unixFCmd-1.7 {TclpRenameFile: EXDEV} {
     file mkdir foo/bar
     file attr foo -perm 040555
     set msg [list [catch {file rename foo/bar /tmp} msg] $msg]
-    set a1 {1 {can't unlink "foo/bar": permission denied}}
-    set result [expr {$msg == $a1}]
     catch {file delete /tmp/bar}
     catch {file attr foo -perm 040777}
     catch {file delete -force foo}
-    set result
-} {1}
+    set msg
+} {1 {can't unlink "foo/bar": permission denied}}
 test unixFCmd-1.8 {Checking EINTR Bug} nonPortable {
     testalarm 
     after 2000
-- 
cgit v0.12