diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-12 09:10:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-12 09:10:26 (GMT) |
| commit | b571892e4f3f2776d9794279256e3532a2c2c861 (patch) | |
| tree | 3bdb40372422db0266bae1e83cdd6afe116b1321 | |
| parent | fc9cd641eb779a5038416f122c6d0da0949cbbcb (diff) | |
| download | tcl-b571892e4f3f2776d9794279256e3532a2c2c861.zip tcl-b571892e4f3f2776d9794279256e3532a2c2c861.tar.gz tcl-b571892e4f3f2776d9794279256e3532a2c2c861.tar.bz2 | |
int -> Tcl_Size for tclWinDde.c/tclWinReg.c, so it could (theoretically) handle larger lists in Tcl 9.
| -rw-r--r-- | win/tclWinDde.c | 3 | ||||
| -rw-r--r-- | win/tclWinReg.c | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index fb2be99..457f20d 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -318,7 +318,8 @@ DdeSetServerName( Tcl_DString dString; const WCHAR *actualName; Tcl_Obj *srvListPtr = NULL, **srvPtrPtr = NULL; - int n, srvCount = 0, lastSuffix, r = TCL_OK; + Tcl_Size n, srvCount = 0; + int lastSuffix, r = TCL_OK; ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); /* diff --git a/win/tclWinReg.c b/win/tclWinReg.c index becc6f5..efd5b7c 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -1329,7 +1329,7 @@ SetValue( (DWORD) type, (BYTE *) &value, sizeof(DWORD)); } else if (type == REG_MULTI_SZ) { Tcl_DString data, buf; - int objc, i; + Tcl_Size objc, i; Tcl_Obj **objv; if (Tcl_ListObjGetElements(interp, dataObj, &objc, &objv) != TCL_OK) { |