diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-11-18 23:29:47 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-11-18 23:29:47 (GMT) |
| commit | 43f12dcb2dc6be1a838da527880200a7a483e2ac (patch) | |
| tree | 372f8fdc4d6d6e146f09dda4f45794bf2364e823 /unix | |
| parent | 040c9d7af65a3c59ce8eba8a3fe2b6fdee144864 (diff) | |
| download | tcl-43f12dcb2dc6be1a838da527880200a7a483e2ac.zip tcl-43f12dcb2dc6be1a838da527880200a7a483e2ac.tar.gz tcl-43f12dcb2dc6be1a838da527880200a7a483e2ac.tar.bz2 | |
Changes from Victor Wagner <vitus@45.free.net> for better DJGPP support.
Diffstat (limited to 'unix')
| -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 |