This is the mail archive of the
gdb-patches@sourceware.cygnus.com
mailing list for the GDB project.
Re: [PATCH] Revert previous Windows tcl change
- To: Chris Faylor <cgf at cygnus dot com>, gdb-patches at sourceware dot cygnus dot com
- Subject: Re: [PATCH] Revert previous Windows tcl change
- From: Syd Polk <spolk at redhat dot com>
- Date: Mon, 12 Jun 2000 10:57:19 -0700
Nothing like doing testing. Thanks for checking it out.
Approved.
At 10:45 PM 6/10/00 -0400, Chris Faylor wrote:
>I've taken the liberty of reverting my previous change to win/tclWinFile.c.
>It worked fine on Windows NT but failed miserably on Windows 95.
>
>cgf
>
>Sat Jun 10 22:43:00 2000 Christopher Faylor <cgf@cygnus.com>
>
> * win/tclWinFile.c (TclMatchFiles): Revert Mon Jun 5 18:48:32 2000
> Christopher Faylor <cgf@cygnus.com>. Fails on Windows 95
>
>Index: win/tclWinFile.c
>===================================================================
>RCS file: /cvs/src/src/tcl/win/tclWinFile.c,v
>retrieving revision 1.2
>diff -u -p -r1.2 tclWinFile.c
>--- tclWinFile.c 2000/06/05 23:07:29 1.2
>+++ tclWinFile.c 2000/06/11 02:44:20
>@@ -130,13 +130,11 @@ TclMatchFiles(interp, separators, dirPtr
> Tcl_DStringAppend(&buffer, Tcl_DStringValue(dirPtr),
> Tcl_DStringLength(dirPtr));
> }
>-#ifndef __CYGWIN__
> for (p = Tcl_DStringValue(&buffer); *p != '\0'; p++) {
> if (*p == '/') {
> *p = '\\';
> }
> }
>-#endif
> p--;
> if (*p != '\\' && *p != ':') {
> Tcl_DStringAppend(&buffer, "\\", 1);
Syd Polk spolk@redhat.com
Engineering Manager +1 415 777 9810 x 241
Red Hat, Inc.