diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-18 16:24:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-18 16:24:27 (GMT) |
| commit | ae54d4dd89479887660e43d8189196e5ec1a2fa2 (patch) | |
| tree | a3b946d7afa5381e2139fa1bc2673523a941d2cf /win/tclWinReg.c | |
| parent | a65db858ffa31d266f6b08eac9d609153db39d90 (diff) | |
| download | tcl-ae54d4dd89479887660e43d8189196e5ec1a2fa2.zip tcl-ae54d4dd89479887660e43d8189196e5ec1a2fa2.tar.gz tcl-ae54d4dd89479887660e43d8189196e5ec1a2fa2.tar.bz2 | |
Another bug in TIP #628: dde and registry extensions didn't really load in tclsh8.7. One reason: handle TclpReaddir correctly in tcl8 compatibility mode
Diffstat (limited to 'win/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 998521c..a3341c2 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -124,7 +124,7 @@ static int SetValue(Tcl_Interp *interp, Tcl_Obj *keyNameObj, Tcl_Obj *valueNameObj, Tcl_Obj *dataObj, Tcl_Obj *typeObj, REGSAM mode); -#if (TCL_MAJOR_VERSION < 9) && (TCL_MINOR_VERSION < 7) +#if (TCL_MAJOR_VERSION < 9) && defined(TCL_MINOR_VERSION) && (TCL_MINOR_VERSION < 7) # if TCL_UTF_MAX > 3 # define Tcl_WCharToUtfDString(a,b,c) Tcl_WinTCharToUtf((TCHAR *)(a),(b)*sizeof(WCHAR),c) # define Tcl_UtfToWCharDString(a,b,c) (WCHAR *)Tcl_WinUtfToTChar(a,b,c) |