diff options
| author | griffin <briang42@easystreet.net> | 2023-06-06 20:26:59 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-06-06 20:26:59 (GMT) |
| commit | dde4e1b094a9713b365ea941be0fb9f5073ea5bf (patch) | |
| tree | 2190835df032b7576df458ef64d6b09e82daf4ae /generic/tclScan.c | |
| parent | ac52dca2ba35a465d8a654ae11a81d088e6f7dd6 (diff) | |
| parent | 5140d2419c9c9705ba10631ce5367690f670dabc (diff) | |
| download | tcl-dde4e1b094a9713b365ea941be0fb9f5073ea5bf.zip tcl-dde4e1b094a9713b365ea941be0fb9f5073ea5bf.tar.gz tcl-dde4e1b094a9713b365ea941be0fb9f5073ea5bf.tar.bz2 | |
merge trunk
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 774d499..42838ac 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++) { |