diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-26 22:23:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-26 22:23:43 (GMT) |
| commit | cbc47c069d3d222ae06bb469960912be8f12ef2b (patch) | |
| tree | b7a5f4bd533ab2779d7e02ef1def44954be288ab /generic/tclBasic.c | |
| parent | 0f9dcb1c0107a267f8c01044bf40150cb0fc3de7 (diff) | |
| download | tcl-cbc47c069d3d222ae06bb469960912be8f12ef2b.zip tcl-cbc47c069d3d222ae06bb469960912be8f12ef2b.tar.gz tcl-cbc47c069d3d222ae06bb469960912be8f12ef2b.tar.bz2 | |
Stop segfaults in test suite.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 3906c0a..abfc456 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -485,6 +485,7 @@ Tcl_CreateInterp(void) iPtr = ckalloc(sizeof(Interp)); interp = (Tcl_Interp *) iPtr; + iPtr->legacyResult = NULL; iPtr->errorLine = 0; iPtr->objResultPtr = Tcl_NewObj(); Tcl_IncrRefCount(iPtr->objResultPtr); |