From 05f862b0622794e90c90544b62b929ac0f47753c Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Fri, 26 Mar 2010 09:43:51 +0000
Subject: [Bug 2976508] tcl HEAD fails on HP-UX

---
 ChangeLog            | 4 ++++
 generic/tclExecute.c | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 621065e..b636744 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-26  Jan Nijtmans  <nijtmans@users.sf.net>
+
+	* generic/tclExecute.c   [Bug 2976508] tcl HEAD fails on HP-UX
+
 2010-03-25  Donal K. Fellows  <dkf@users.sf.net>
 
 	* unix/tclUnixFCmd.c (TclUnixCopyFile): [Bug 2976504]: Corrected
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index d4bcae0..f12fb4d 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclExecute.c,v 1.474 2010/02/24 10:49:04 dkf Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.475 2010/03/26 09:43:51 nijtmans Exp $
  */
 
 #include "tclInt.h"
@@ -1922,7 +1922,7 @@ TclExecuteByteCode(
 	NULL,
 	NULL,
 	NULL,
-	&iPtr->execEnvPtr->constants[0],
+	NULL,
 	0,
 	0,
 	NULL,
@@ -1977,6 +1977,7 @@ TclExecuteByteCode(
     char cmdNameBuf[21];
 #endif
 
+    TAUX.constants = &iPtr->execEnvPtr->constants[0];
     if (!codePtr) {
 	CoroutineData *corPtr;
 
-- 
cgit v0.12