Fossil SCM
Fix if defined(USE_TCL_STUBS) position, was in wrong line
Commit
3eda24a5fe59ab9b804a7d25504a7c1413614eb97817877d4c725a4e04b1553c
Parent
7756b9c037ed1a7…
1 file changed
+1
-1
+1
-1
| --- src/th_tcl.c | ||
| +++ src/th_tcl.c | ||
| @@ -844,19 +844,19 @@ | ||
| 844 | 844 | !pxDeleteInterp || !pxFinalize ){ |
| 845 | 845 | Th_ErrorMessage(interp, |
| 846 | 846 | "invalid Tcl loader argument(s)", (const char *)"", 0); |
| 847 | 847 | return TH_ERROR; |
| 848 | 848 | } |
| 849 | +#if defined(USE_TCL_STUBS) | |
| 849 | 850 | #if TCL_MAJOR_VERSION<9 |
| 850 | 851 | #if defined(_WIN32) || defined(__FreeBSD__) |
| 851 | 852 | aFileName[TCL_MINOR_OFFSET-1] = '0' + TCL_MAJOR_VERSION; |
| 852 | 853 | #else |
| 853 | 854 | aFileName[TCL_MINOR_OFFSET-2] = '0' + TCL_MAJOR_VERSION; |
| 854 | 855 | #endif |
| 855 | 856 | aFileName[TCL_MINOR_OFFSET] = '0' + TCL_MINOR_VERSION; |
| 856 | 857 | #endif |
| 857 | -#if defined(USE_TCL_STUBS) | |
| 858 | 858 | do { |
| 859 | 859 | char *zFileName; |
| 860 | 860 | void *hLibrary; |
| 861 | 861 | if( !zEnvPath ){ |
| 862 | 862 | zFileName = aFileName; /* NOTE: Assume present in PATH. */ |
| 863 | 863 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -844,19 +844,19 @@ | |
| 844 | !pxDeleteInterp || !pxFinalize ){ |
| 845 | Th_ErrorMessage(interp, |
| 846 | "invalid Tcl loader argument(s)", (const char *)"", 0); |
| 847 | return TH_ERROR; |
| 848 | } |
| 849 | #if TCL_MAJOR_VERSION<9 |
| 850 | #if defined(_WIN32) || defined(__FreeBSD__) |
| 851 | aFileName[TCL_MINOR_OFFSET-1] = '0' + TCL_MAJOR_VERSION; |
| 852 | #else |
| 853 | aFileName[TCL_MINOR_OFFSET-2] = '0' + TCL_MAJOR_VERSION; |
| 854 | #endif |
| 855 | aFileName[TCL_MINOR_OFFSET] = '0' + TCL_MINOR_VERSION; |
| 856 | #endif |
| 857 | #if defined(USE_TCL_STUBS) |
| 858 | do { |
| 859 | char *zFileName; |
| 860 | void *hLibrary; |
| 861 | if( !zEnvPath ){ |
| 862 | zFileName = aFileName; /* NOTE: Assume present in PATH. */ |
| 863 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -844,19 +844,19 @@ | |
| 844 | !pxDeleteInterp || !pxFinalize ){ |
| 845 | Th_ErrorMessage(interp, |
| 846 | "invalid Tcl loader argument(s)", (const char *)"", 0); |
| 847 | return TH_ERROR; |
| 848 | } |
| 849 | #if defined(USE_TCL_STUBS) |
| 850 | #if TCL_MAJOR_VERSION<9 |
| 851 | #if defined(_WIN32) || defined(__FreeBSD__) |
| 852 | aFileName[TCL_MINOR_OFFSET-1] = '0' + TCL_MAJOR_VERSION; |
| 853 | #else |
| 854 | aFileName[TCL_MINOR_OFFSET-2] = '0' + TCL_MAJOR_VERSION; |
| 855 | #endif |
| 856 | aFileName[TCL_MINOR_OFFSET] = '0' + TCL_MINOR_VERSION; |
| 857 | #endif |
| 858 | do { |
| 859 | char *zFileName; |
| 860 | void *hLibrary; |
| 861 | if( !zEnvPath ){ |
| 862 | zFileName = aFileName; /* NOTE: Assume present in PATH. */ |
| 863 |