From 13eca0490a3b888d3858a8a27f12a779d4a8235f Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 8 Jul 2013 22:36:55 +0000
Subject: Use TIP 280 macros.

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

diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index a1ad5c8..656f700 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -1906,11 +1906,10 @@ CompileCmdCompileProc(
     int startCodeOffset,
     CompileEnv *envPtr)
 {
-    ExtCmdLoc *eclPtr = envPtr->extCmdMapPtr;
     int savedNumCmds = envPtr->numCommands;
     int startStackDepth = envPtr->currStackDepth;
-    int wlineat = eclPtr->nuloc - 1;
     int update = 0;
+    DefineLineInformation;
 
     /*
      * Mark the start of the command; the proper bytecode
@@ -2001,8 +2000,7 @@ CompileCmdCompileProc(
     envPtr->codeNext = envPtr->codeStart + startCodeOffset;
     envPtr->currStackDepth = startStackDepth;
 
-    envPtr->line = eclPtr->loc[wlineat].line[0];
-    envPtr->clNext = eclPtr->loc[wlineat].next[0];
+    SetLineInformation(0);
     return TCL_ERROR;
 }
 
-- 
cgit v0.12