diff options
| author | stanton <stanton> | 1998-12-11 00:12:07 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-12-11 00:12:07 (GMT) |
| commit | 58102fbcddfc85f922fa2b3eb60706c924052d79 (patch) | |
| tree | f13273187e6d87c12ff947fe333de28938124a51 | |
| parent | addad7778f3aebc09268eae355e5d2d442c75df7 (diff) | |
| download | tcl-58102fbcddfc85f922fa2b3eb60706c924052d79.zip tcl-58102fbcddfc85f922fa2b3eb60706c924052d79.tar.gz tcl-58102fbcddfc85f922fa2b3eb60706c924052d79.tar.bz2 | |
lint
| -rw-r--r-- | generic/tclThread.c | 6 | ||||
| -rw-r--r-- | tests/fCmd.test | 8 | ||||
| -rw-r--r-- | 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 |