diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 14:12:55 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 14:12:55 (GMT) |
commit | be275081a1ef4cf0490a07d2e253ca901d932fe8 (patch) | |
tree | 6bd1b9d196a5924bc9e00578719d36ef22f2eafd /generic/tclIO.c | |
parent | 0a36b1187dcef39b41d28a5ce319aa7c54f56f66 (diff) | |
parent | 733b7a43a45ee6be75ccd99172f66b35b69841c5 (diff) | |
download | tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.zip tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.tar.gz tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 884bd83..d84d0c7 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10981,7 +10981,7 @@ FixLevelCode( if (0 == strcmp(TclGetString(lv[i]), "-level")) { if (newlevel >= 0) { lvn[j++] = lv[i]; - lvn[j++] = Tcl_NewIntObj(newlevel); + lvn[j++] = Tcl_NewWideIntObj(newlevel); newlevel = -1; lignore = 1; continue; @@ -10991,7 +10991,7 @@ FixLevelCode( } else if (0 == strcmp(TclGetString(lv[i]), "-code")) { if (newcode >= 0) { lvn[j++] = lv[i]; - lvn[j++] = Tcl_NewIntObj(newcode); + lvn[j++] = Tcl_NewWideIntObj(newcode); newcode = -1; cignore = 1; continue; |