From 3d626bd65d08f71f02584942012773bd014c6acb Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 23 Sep 2004 00:34:31 +0000
Subject: Corrected the base for the errorline calculation

---
 generic/tclCompile.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 86602bd..f02b29d 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCompile.c,v 1.73 2004/09/22 22:23:39 dgp Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.74 2004/09/23 00:34:31 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -969,7 +969,7 @@ TclCompileScript(interp, script, numBytes, envPtr)
 
 	    Tcl_ListObjAppendElement(NULL, returnCmd, errInfo);
 
-	    for (p = script; p != parse.commandStart; p++) {
+	    for (p = envPtr->source; p != parse.commandStart; p++) {
 		if (*p == '\n') {
 		    errorLine++;
 		}
-- 
cgit v0.12