Tcl Source Code

Artifact [ff6389ae08]
Login

Artifact ff6389ae08c1a4e0b37498c9c69fddffa7b8db4b:

Attachment "tcl.diff" to ticket [626505ffff] added by hgiese 2002-10-22 02:49:00.
diff -w -r ./compat/strftime.c d:\tmp\tcl-cvs\tcl/compat/strftime.c
165d164
< #  ifndef __BORLANDC__
176,189d174
< #  else
<    /* Borland needs explicit initialisation */
<     SYSTEMTIME syst;
<     syst.wYear = t->tm_year + 1900;
<     syst.wMonth = t->tm_mon + 1;
<     syst.wDayOfWeek = t->tm_wday;
<     syst.wDay = t->tm_mday;
<     syst.wHour = t->tm_hour;
<     syst.wMinute = t->tm_min;
<     syst.wSecond = t->tm_sec;
<     syst.wMilliseconds = 0;
< 
< #  endif 
< 
467d451
< 
diff -w -r ./generic/tcl.h d:\tmp\tcl-cvs\tcl/generic/tcl.h
70,72d69
< /* Test for any symbol used to identify the Windows platform */
< #if defined(__WIN32__) || defined(_WIN32) || defined(WIN32) || defined(__CYGWIN__) || defined(__MINGW32__)
< /* now #define any and all of them */
73a71
> #   if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined(__BORLANDC__)
75,78d72
< #  endif
< #  ifndef _WIN32
< #     define _WIN32
< #  endif
83c77
< 
---
> #endif
2306d2299
< 
diff -w -r ./win/makefile.bc d:\tmp\tcl-cvs\tcl/win/makefile.bc
70,71c70,71
< TOOLS32		= d:\bc55
< TOOLS32_rc	= d:\bc55
---
> TOOLS32		= c:\dev\bcc55
> TOOLS32_rc	= c:\dev\bcc55
diff -w -r ./win/tcl.rc d:\tmp\tcl-cvs\tcl/win/tcl.rc
47,52c47
< // The combination 'STRINGIFY(JOIN(..)), although accepted by the compiler,
< // does not work when used with Borland's Resource compiler
< //
< //            VALUE "OriginalFilename", "tcl" STRINGIFY(JOIN(TCL_MAJOR_VERSION,TCL_MINOR_VERSION)) SUFFIX ".dll\0"
<             VALUE "OriginalFilename", "tcl" STRINGIFY(TCL_MAJOR_VERSION) STRINGIFY(TCL_MINOR_VERSION) SUFFIX ".dll\0"
< 
---
>             VALUE "OriginalFilename", "tcl" STRINGIFY(JOIN(TCL_MAJOR_VERSION,TCL_MINOR_VERSION)) SUFFIX ".dll\0"
65d59
< 
diff -w -r ./win/tclsh.rc d:\tmp\tcl-cvs\tcl/win/tclsh.rc
53,58c53
< // The combination 'STRINGIFY(JOIN(..)), although accepted by the compiler,
< // does not work when used with Borland's Resource compiler
< //
< //            VALUE "OriginalFilename", "tcl" STRINGIFY(JOIN(TCL_MAJOR_VERSION,TCL_MINOR_VERSION)) SUFFIX ".dll\0"
<             VALUE "OriginalFilename", "tcl" STRINGIFY(TCL_MAJOR_VERSION) STRINGIFY(TCL_MINOR_VERSION) SUFFIX ".dll\0"
< 
---
>             VALUE "OriginalFilename", "tclsh" STRINGIFY(JOIN(TCL_MAJOR_VERSION,TCL_MINOR_VERSION)) SUFFIX ".exe\0"
77d71
<