From af494a7fa60b807ea5ea6c39c2cfe0da1c846eb8 Mon Sep 17 00:00:00 2001 From: das Date: Thu, 14 Aug 2008 02:09:55 +0000 Subject: * generic/tclCmdIL.c (TclInfoFrame): check fPtr->line before dereferencing as line info may not exists when TclInfoFrame() is called from a DTrace probe. --- generic/tclCmdIL.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index bbddc63..e1267a9 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.137.2.3 2008/07/23 20:47:31 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.137.2.4 2008/08/14 02:09:55 das Exp $ */ #include "tclInt.h" @@ -1202,7 +1202,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); -- cgit v0.12