From 136ab8e516a21b2151c13a72576fd4311094953b Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 24 Apr 2012 21:25:42 +0000
Subject: gcc warnings

---
 unix/tclUnixFile.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index dc5af66..8fb9fd9 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -39,7 +39,6 @@ TclpFindExecutable(
     CONST char *argv0)		/* The value of the application's argv[0]
 				 * (native). */
 {
-    int length;
 #ifdef __CYGWIN__
     char buf[PATH_MAX * TCL_UTF_MAX + 1];
     char name[PATH_MAX * TCL_UTF_MAX + 1];
@@ -72,7 +71,7 @@ TclpFindExecutable(
     buf[length] = '\0';
 #else
     if (argv0 == NULL) {
-	return NULL;
+	return;
     }
     Tcl_DStringInit(&buffer);
 
-- 
cgit v0.12