diff options
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | generic/tcl.h | 23 |
2 files changed, 17 insertions, 12 deletions
@@ -1,5 +1,11 @@ 2010-01-29 Jan Nijtmans <nijtmans@users.sf.net> + * generic/tcl.h Reverted Tcl_ThreadDataKey type change, + see Bug #2942081 + Changed some Tcl_CallFrame fields from "char *" + to "void *". This saves unnecessary space on + Cray's (and it's simply more correct). + * tools/genStubs.tcl: No longer generate a space after "*" and immediately after a function name, so the format of function definitions in tcl*Decls.h diff --git a/generic/tcl.h b/generic/tcl.h index 21e97cc..48fe4cd 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -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: tcl.h,v 1.299 2010/01/29 16:17:20 nijtmans Exp $ + * RCS: @(#) $Id: tcl.h,v 1.300 2010/01/29 19:30:55 nijtmans Exp $ */ #ifndef _TCL @@ -499,14 +499,13 @@ typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; typedef struct Tcl_Mutex_ *Tcl_Mutex; typedef struct Tcl_Pid_ *Tcl_Pid; typedef struct Tcl_RegExp_ *Tcl_RegExp; +typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; typedef struct Tcl_ThreadId_ *Tcl_ThreadId; typedef struct Tcl_TimerToken_ *Tcl_TimerToken; typedef struct Tcl_Trace_ *Tcl_Trace; typedef struct Tcl_Var_ *Tcl_Var; typedef struct Tcl_ZLibStream_ *Tcl_ZlibStream; -typedef void *Tcl_ThreadDataKey; - /* * Definition of the interface to functions implementing threads. A function * following this definition is given to each call of 'Tcl_CreateThread' and @@ -876,17 +875,17 @@ typedef struct Tcl_CallFrame { Tcl_Namespace *nsPtr; int dummy1; int dummy2; - char *dummy3; - char *dummy4; - char *dummy5; + void *dummy3; + void *dummy4; + void *dummy5; int dummy6; - char *dummy7; - char *dummy8; + void *dummy7; + void *dummy8; int dummy9; - char *dummy10; - char *dummy11; - char *dummy12; - char *dummy13; + void *dummy10; + void *dummy11; + void *dummy12; + void *dummy13; } Tcl_CallFrame; /* |