From 26fdc714770e1a928602741126a435c48ca9ff27 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Thu, 14 Aug 2008 02:09:46 +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 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);
-- 
cgit v0.12