diff options
| author | das <das> | 2008-08-14 02:09:46 (GMT) |
|---|---|---|
| committer | das <das> | 2008-08-14 02:09:46 (GMT) |
| commit | adfa77deef4c58db999f5ce71d44c6d021bce84d (patch) | |
| tree | 200e41824018b2c66c1529848000ad995bd0e53f | |
| parent | 20bd9da5bf85e7a83861048b8a27d7e036a8def5 (diff) | |
| download | tcl-adfa77deef4c58db999f5ce71d44c6d021bce84d.zip tcl-adfa77deef4c58db999f5ce71d44c6d021bce84d.tar.gz tcl-adfa77deef4c58db999f5ce71d44c6d021bce84d.tar.bz2 | |
* generic/tclCmdIL.c (TclInfoFrame): check fPtr->line before
dereferencing as line info may
not exists when TclInfoFrame()
is called from a DTrace probe.
| -rw-r--r-- | generic/tclCmdIL.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 89b8874..fb8d54e 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.147 2008/07/31 17:32:30 msofer Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.148 2008/08/14 02:09:46 das Exp $ */ #include "tclInt.h" @@ -1213,7 +1213,9 @@ TclInfoFrame( */ ADD_PAIR("type", Tcl_NewStringObj(typeString[fPtr->type], -1)); - ADD_PAIR("line", Tcl_NewIntObj(fPtr->line[0])); + if (fPtr->line) { + ADD_PAIR("line", Tcl_NewIntObj(fPtr->line[0])); + } if (fPtr->type == TCL_LOCATION_SOURCE) { ADD_PAIR("file", fPtr->data.eval.path); |