From 873209b55747301a12c4b542a16c8fea6c0c97db Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 18 Mar 2008 17:58:29 +0000 Subject: * generic/tclExecute.c: Patch from Miguel Sofer to correct the alignment of memory allocated by GrowEvaluationStack(). [Bug 1914503] --- ChangeLog | 5 +++++ generic/tclExecute.c | 15 ++++----------- 2 files changed, 9 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5fd35be..9219be8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-03-18 Don Porter + + * generic/tclExecute.c: Patch from Miguel Sofer to correct the + alignment of memory allocated by GrowEvaluationStack(). [Bug 1914503] + 2008-03-18 Andreas Kupries * library/tm.tcl (::tcl::tm::Defaults): Modified handling of diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 10be147..31df1a7 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -13,7 +13,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.367 2008/03/10 14:34:26 dgp Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.368 2008/03/18 17:58:30 dgp Exp $ */ #include "tclInt.h" @@ -862,16 +862,9 @@ static inline int OFFSET( Tcl_Obj **markerPtr) { - /* - * Note that we are only interested in the low bits of the address, so - * that the fact that PTR2INT may lose the high bits is irrelevant. - */ - - int mask, base, new; - - mask = WALLOCALIGN-1; - base = (PTR2INT(markerPtr) & mask); - new = ((base + 1) + mask) & ~mask; + int mask = TCL_ALLOCALIGN-1; + int base = PTR2INT(markerPtr) & 0xFFFFFF; + int new = (base + TCL_ALLOCALIGN) & ~mask; return (new - base); } -- cgit v0.12