diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-02 13:59:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-02 13:59:26 (GMT) |
| commit | 103eb015c041530ef4652d4d0ec05188789b66f2 (patch) | |
| tree | 65d2749bc307862a2c86e47bb799e27c90cfd767 /generic/tclScan.c | |
| parent | 3d0413417ddafb15a80282011fc2e6ca59dc57cb (diff) | |
| parent | 2867ac26373a64724686df3d77d9d323343bcc84 (diff) | |
| download | tcl-103eb015c041530ef4652d4d0ec05188789b66f2.zip tcl-103eb015c041530ef4652d4d0ec05188789b66f2.tar.gz tcl-103eb015c041530ef4652d4d0ec05188789b66f2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index b7bd94a..bc2df17 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -1097,7 +1097,8 @@ Tcl_ScanObjCmd( * We create an empty Tcl_Obj to fill missing values rather than * allocating a new Tcl_Obj every time. See test scan-bigdata-XX. */ - Tcl_Obj *emptyObj = Tcl_NewObj(); + Tcl_Obj *emptyObj; + TclNewObj(emptyObj); Tcl_IncrRefCount(emptyObj); TclNewObj(objPtr); for (i = 0; code == TCL_OK && i < totalVars; i++) { |