diff options
| author | davygrvy@pobox.com <davygrvy> | 2003-11-18 23:29:47 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2003-11-18 23:29:47 (GMT) |
| commit | 7db5c6e06909933f317798fdb835f7b22eaca737 (patch) | |
| tree | 372f8fdc4d6d6e146f09dda4f45794bf2364e823 /unix/tclUnixInit.c | |
| parent | 7af188356ced6c494792b97eed3fe81c0084e68a (diff) | |
| download | tcl-7db5c6e06909933f317798fdb835f7b22eaca737.zip tcl-7db5c6e06909933f317798fdb835f7b22eaca737.tar.gz tcl-7db5c6e06909933f317798fdb835f7b22eaca737.tar.bz2 | |
Changes from Victor Wagner <vitus@45.free.net> for better DJGPP support.
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index ea9b95a..779437c 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclUnixInit.c,v 1.36 2003/11/10 20:34:15 dgp Exp $ + * RCS: @(#) $Id: tclUnixInit.c,v 1.37 2003/11/18 23:29:47 davygrvy Exp $ */ #if defined(HAVE_CFBUNDLE) @@ -167,7 +167,11 @@ static int Tcl_MacOSXGetLibraryPath(Tcl_Interp *interp, int maxPathLen, char *tc void TclpInitPlatform() { +#ifdef DJGPP + tclPlatform = TCL_PLATFORM_WINDOWS; +#else tclPlatform = TCL_PLATFORM_UNIX; +#endif /* * The code below causes SIGPIPE (broken pipe) errors to |