From 62e51a9476fa3eb2f231c8c98bdaaa6ee57ee911 Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Mon, 3 May 2010 13:20:39 +0000
Subject: For MINGW/CYGWIN, use GetCommandLineA explicitely

---
 ChangeLog        | 1 +
 win/tclAppInit.c | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 036414b..07ba948 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,7 @@
 	* generic/tclTomMath.h
 	* tools/fix_tommath_h.tcl
 	* libtommath/tommath.h    Formatting (# should always be first char on line)
+	* win/tclAppInit.c        For MINGW/CYGWIN, use GetCommandLineA explicitely
 
 2010-04-30  Don Porter  <dgp@users.sourceforge.net>
 
diff --git a/win/tclAppInit.c b/win/tclAppInit.c
index 1f90610..a4d38de 100644
--- a/win/tclAppInit.c
+++ b/win/tclAppInit.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclAppInit.c,v 1.30 2009/11/27 21:44:01 kennykb Exp $
+ * RCS: @(#) $Id: tclAppInit.c,v 1.31 2010/05/03 13:20:39 nijtmans Exp $
  */
 
 #include "tcl.h"
@@ -218,7 +218,7 @@ setargv(
     char **argv;
     int argc, size, inquote, copy, slashes;
 
-    cmdLine = GetCommandLine();	/* INTL: BUG */
+    cmdLine = GetCommandLineA();	/* INTL: BUG */
 
     /*
      * Precompute an overly pessimistic guess at the number of arguments in
-- 
cgit v0.12