summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-03-26 09:43:51 (GMT)
committernijtmans <nijtmans>2010-03-26 09:43:51 (GMT)
commit05f862b0622794e90c90544b62b929ac0f47753c (patch)
tree6e742207f3a09be067fd8d3d161c693d426aac30
parent79109281ed47427b88e1cc5eae8325954cc7de80 (diff)
downloadtcl-05f862b0622794e90c90544b62b929ac0f47753c.zip
tcl-05f862b0622794e90c90544b62b929ac0f47753c.tar.gz
tcl-05f862b0622794e90c90544b62b929ac0f47753c.tar.bz2
[Bug 2976508] tcl HEAD fails on HP-UX
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclExecute.c5
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;