regen

2 files changed, 141 insertions, 126 deletions

diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index f75b63e..bec1668 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclDecls.h,v 1.157 2008/12/02 19:40:41 dgp Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.158 2008/12/05 14:28:10 dkf Exp $
  */
 
 #ifndef _TCLDECLS
@@ -40,8 +40,8 @@
 #ifndef Tcl_PkgProvideEx_TCL_DECLARED
 #define Tcl_PkgProvideEx_TCL_DECLARED
 /* 0 */
-EXTERN int		Tcl_PkgProvideEx (Tcl_Interp* interp,
-				const char* name, const char* version,
+EXTERN int		Tcl_PkgProvideEx (Tcl_Interp * interp,
+				const char * name, const char * version,
 				ClientData clientData);
 #endif
 #ifndef Tcl_PkgRequireEx_TCL_DECLARED
@@ -148,8 +148,8 @@ EXTERN void		Tcl_AppendStringsToObj (Tcl_Obj * objPtr, ...);
 #ifndef Tcl_AppendToObj_TCL_DECLARED
 #define Tcl_AppendToObj_TCL_DECLARED
 /* 16 */
-EXTERN void		Tcl_AppendToObj (Tcl_Obj* objPtr, const char* bytes,
-				int length);
+EXTERN void		Tcl_AppendToObj (Tcl_Obj * objPtr,
+				const char * bytes, int length);
 #endif
 #ifndef Tcl_ConcatObj_TCL_DECLARED
 #define Tcl_ConcatObj_TCL_DECLARED
@@ -351,7 +351,7 @@ EXTERN Tcl_Obj *	Tcl_NewBooleanObj (int boolValue);
 #ifndef Tcl_NewByteArrayObj_TCL_DECLARED
 #define Tcl_NewByteArrayObj_TCL_DECLARED
 /* 50 */
-EXTERN Tcl_Obj *	Tcl_NewByteArrayObj (const unsigned char* bytes,
+EXTERN Tcl_Obj *	Tcl_NewByteArrayObj (const unsigned char * bytes,
 				int length);
 #endif
 #ifndef Tcl_NewDoubleObj_TCL_DECLARED
@@ -430,8 +430,8 @@ EXTERN void		Tcl_SetObjLength (Tcl_Obj * objPtr, int length);
 #ifndef Tcl_SetStringObj_TCL_DECLARED
 #define Tcl_SetStringObj_TCL_DECLARED
 /* 65 */
-EXTERN void		Tcl_SetStringObj (Tcl_Obj* objPtr, const char* bytes,
-				int length);
+EXTERN void		Tcl_SetStringObj (Tcl_Obj * objPtr,
+				const char * bytes, int length);
 #endif
 #ifndef Tcl_AddErrorInfo_TCL_DECLARED
 #define Tcl_AddErrorInfo_TCL_DECLARED
@@ -530,7 +530,7 @@ EXTERN int		Tcl_CommandComplete (const char * cmd);
 #ifndef Tcl_Concat_TCL_DECLARED
 #define Tcl_Concat_TCL_DECLARED
 /* 83 */
-EXTERN char *		Tcl_Concat (int argc, CONST84 char * const * argv);
+EXTERN char *		Tcl_Concat (int argc, CONST84 char *const * argv);
 #endif
 #ifndef Tcl_ConvertElement_TCL_DECLARED
 #define Tcl_ConvertElement_TCL_DECLARED
@@ -550,7 +550,7 @@ EXTERN int		Tcl_ConvertCountedElement (const char * src,
 EXTERN int		Tcl_CreateAlias (Tcl_Interp * slave,
 				const char * slaveCmd, Tcl_Interp * target,
 				const char * targetCmd, int argc,
-				CONST84 char * const * argv);
+				CONST84 char *const * argv);
 #endif
 #ifndef Tcl_CreateAliasObj_TCL_DECLARED
 #define Tcl_CreateAliasObj_TCL_DECLARED
@@ -1163,7 +1163,7 @@ EXTERN int		Tcl_IsSafe (Tcl_Interp * interp);
 #ifndef Tcl_JoinPath_TCL_DECLARED
 #define Tcl_JoinPath_TCL_DECLARED
 /* 186 */
-EXTERN char *		Tcl_JoinPath (int argc, CONST84 char * const * argv,
+EXTERN char *		Tcl_JoinPath (int argc, CONST84 char *const * argv,
 				Tcl_DString * resultPtr);
 #endif
 #ifndef Tcl_LinkVar_TCL_DECLARED
@@ -1191,7 +1191,7 @@ EXTERN Tcl_Channel	Tcl_MakeTcpClientChannel (ClientData tcpSocket);
 #ifndef Tcl_Merge_TCL_DECLARED
 #define Tcl_Merge_TCL_DECLARED
 /* 192 */
-EXTERN char *		Tcl_Merge (int argc, CONST84 char * const * argv);
+EXTERN char *		Tcl_Merge (int argc, CONST84 char *const * argv);
 #endif
 #ifndef Tcl_NextHashEntry_TCL_DECLARED
 #define Tcl_NextHashEntry_TCL_DECLARED
@@ -1981,7 +1981,8 @@ EXTERN void		Tcl_ThreadAlert (Tcl_ThreadId threadId);
 #define Tcl_ThreadQueueEvent_TCL_DECLARED
 /* 319 */
 EXTERN void		Tcl_ThreadQueueEvent (Tcl_ThreadId threadId,
-				Tcl_Event* evPtr, Tcl_QueuePosition position);
+				Tcl_Event * evPtr,
+				Tcl_QueuePosition position);
 #endif
 #ifndef Tcl_UniCharAtIndex_TCL_DECLARED
 #define Tcl_UniCharAtIndex_TCL_DECLARED
@@ -2510,7 +2511,7 @@ EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc (
 #ifndef Tcl_JoinThread_TCL_DECLARED
 #define Tcl_JoinThread_TCL_DECLARED
 /* 412 */
-EXTERN int		Tcl_JoinThread (Tcl_ThreadId threadId, int* result);
+EXTERN int		Tcl_JoinThread (Tcl_ThreadId threadId, int * result);
 #endif
 #ifndef Tcl_IsChannelShared_TCL_DECLARED
 #define Tcl_IsChannelShared_TCL_DECLARED
@@ -2520,7 +2521,7 @@ EXTERN int		Tcl_IsChannelShared (Tcl_Channel channel);
 #ifndef Tcl_IsChannelRegistered_TCL_DECLARED
 #define Tcl_IsChannelRegistered_TCL_DECLARED
 /* 414 */
-EXTERN int		Tcl_IsChannelRegistered (Tcl_Interp* interp,
+EXTERN int		Tcl_IsChannelRegistered (Tcl_Interp * interp,
 				Tcl_Channel channel);
 #endif
 #ifndef Tcl_CutChannel_TCL_DECLARED
@@ -2541,7 +2542,7 @@ EXTERN void		Tcl_ClearChannelHandlers (Tcl_Channel channel);
 #ifndef Tcl_IsChannelExisting_TCL_DECLARED
 #define Tcl_IsChannelExisting_TCL_DECLARED
 /* 418 */
-EXTERN int		Tcl_IsChannelExisting (const char* channelName);
+EXTERN int		Tcl_IsChannelExisting (const char * channelName);
 #endif
 #ifndef Tcl_UniCharNcasecmp_TCL_DECLARED
 #define Tcl_UniCharNcasecmp_TCL_DECLARED
@@ -2667,7 +2668,7 @@ EXTERN Tcl_Obj *	Tcl_SubstObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
 #ifndef Tcl_DetachChannel_TCL_DECLARED
 #define Tcl_DetachChannel_TCL_DECLARED
 /* 438 */
-EXTERN int		Tcl_DetachChannel (Tcl_Interp* interp,
+EXTERN int		Tcl_DetachChannel (Tcl_Interp * interp,
 				Tcl_Channel channel);
 #endif
 #ifndef Tcl_IsStandardChannel_TCL_DECLARED
@@ -2783,7 +2784,7 @@ EXTERN Tcl_Channel	Tcl_FSOpenFileChannel (Tcl_Interp * interp,
 #ifndef Tcl_FSGetCwd_TCL_DECLARED
 #define Tcl_FSGetCwd_TCL_DECLARED
 /* 457 */
-EXTERN Tcl_Obj*		Tcl_FSGetCwd (Tcl_Interp * interp);
+EXTERN Tcl_Obj *	Tcl_FSGetCwd (Tcl_Interp * interp);
 #endif
 #ifndef Tcl_FSChdir_TCL_DECLARED
 #define Tcl_FSChdir_TCL_DECLARED
@@ -2799,42 +2800,42 @@ EXTERN int		Tcl_FSConvertToPathType (Tcl_Interp * interp,
 #ifndef Tcl_FSJoinPath_TCL_DECLARED
 #define Tcl_FSJoinPath_TCL_DECLARED
 /* 460 */
-EXTERN Tcl_Obj*		Tcl_FSJoinPath (Tcl_Obj * listObj, int elements);
+EXTERN Tcl_Obj *	Tcl_FSJoinPath (Tcl_Obj * listObj, int elements);
 #endif
 #ifndef Tcl_FSSplitPath_TCL_DECLARED
 #define Tcl_FSSplitPath_TCL_DECLARED
 /* 461 */
-EXTERN Tcl_Obj*		Tcl_FSSplitPath (Tcl_Obj* pathPtr, int * lenPtr);
+EXTERN Tcl_Obj *	Tcl_FSSplitPath (Tcl_Obj * pathPtr, int * lenPtr);
 #endif
 #ifndef Tcl_FSEqualPaths_TCL_DECLARED
 #define Tcl_FSEqualPaths_TCL_DECLARED
 /* 462 */
-EXTERN int		Tcl_FSEqualPaths (Tcl_Obj* firstPtr,
-				Tcl_Obj* secondPtr);
+EXTERN int		Tcl_FSEqualPaths (Tcl_Obj * firstPtr,
+				Tcl_Obj * secondPtr);
 #endif
 #ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED
 #define Tcl_FSGetNormalizedPath_TCL_DECLARED
 /* 463 */
-EXTERN Tcl_Obj*		Tcl_FSGetNormalizedPath (Tcl_Interp * interp,
-				Tcl_Obj* pathPtr);
+EXTERN Tcl_Obj *	Tcl_FSGetNormalizedPath (Tcl_Interp * interp,
+				Tcl_Obj * pathPtr);
 #endif
 #ifndef Tcl_FSJoinToPath_TCL_DECLARED
 #define Tcl_FSJoinToPath_TCL_DECLARED
 /* 464 */
-EXTERN Tcl_Obj*		Tcl_FSJoinToPath (Tcl_Obj * pathPtr, int objc,
+EXTERN Tcl_Obj *	Tcl_FSJoinToPath (Tcl_Obj * pathPtr, int objc,
 				Tcl_Obj *const objv[]);
 #endif
 #ifndef Tcl_FSGetInternalRep_TCL_DECLARED
 #define Tcl_FSGetInternalRep_TCL_DECLARED
 /* 465 */
-EXTERN ClientData	Tcl_FSGetInternalRep (Tcl_Obj* pathPtr,
+EXTERN ClientData	Tcl_FSGetInternalRep (Tcl_Obj * pathPtr,
 				const Tcl_Filesystem * fsPtr);
 #endif
 #ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED
 #define Tcl_FSGetTranslatedPath_TCL_DECLARED
 /* 466 */
-EXTERN Tcl_Obj*		Tcl_FSGetTranslatedPath (Tcl_Interp * interp,
-				Tcl_Obj* pathPtr);
+EXTERN Tcl_Obj *	Tcl_FSGetTranslatedPath (Tcl_Interp * interp,
+				Tcl_Obj * pathPtr);
 #endif
 #ifndef Tcl_FSEvalFile_TCL_DECLARED
 #define Tcl_FSEvalFile_TCL_DECLARED
@@ -2845,29 +2846,29 @@ EXTERN int		Tcl_FSEvalFile (Tcl_Interp * interp,
 #ifndef Tcl_FSNewNativePath_TCL_DECLARED
 #define Tcl_FSNewNativePath_TCL_DECLARED
 /* 468 */
-EXTERN Tcl_Obj*		Tcl_FSNewNativePath (
-				const Tcl_Filesystem* fromFilesystem,
+EXTERN Tcl_Obj *	Tcl_FSNewNativePath (
+				const Tcl_Filesystem * fromFilesystem,
 				ClientData clientData);
 #endif
 #ifndef Tcl_FSGetNativePath_TCL_DECLARED
 #define Tcl_FSGetNativePath_TCL_DECLARED
 /* 469 */
-EXTERN const char*	Tcl_FSGetNativePath (Tcl_Obj* pathPtr);
+EXTERN const char *	Tcl_FSGetNativePath (Tcl_Obj * pathPtr);
 #endif
 #ifndef Tcl_FSFileSystemInfo_TCL_DECLARED
 #define Tcl_FSFileSystemInfo_TCL_DECLARED
 /* 470 */
-EXTERN Tcl_Obj*		Tcl_FSFileSystemInfo (Tcl_Obj* pathPtr);
+EXTERN Tcl_Obj *	Tcl_FSFileSystemInfo (Tcl_Obj * pathPtr);
 #endif
 #ifndef Tcl_FSPathSeparator_TCL_DECLARED
 #define Tcl_FSPathSeparator_TCL_DECLARED
 /* 471 */
-EXTERN Tcl_Obj*		Tcl_FSPathSeparator (Tcl_Obj* pathPtr);
+EXTERN Tcl_Obj *	Tcl_FSPathSeparator (Tcl_Obj * pathPtr);
 #endif
 #ifndef Tcl_FSListVolumes_TCL_DECLARED
 #define Tcl_FSListVolumes_TCL_DECLARED
 /* 472 */
-EXTERN Tcl_Obj*		Tcl_FSListVolumes (void);
+EXTERN Tcl_Obj *	Tcl_FSListVolumes (void);
 #endif
 #ifndef Tcl_FSRegister_TCL_DECLARED
 #define Tcl_FSRegister_TCL_DECLARED
@@ -2888,13 +2889,14 @@ EXTERN ClientData	Tcl_FSData (const Tcl_Filesystem * fsPtr);
 #ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED
 #define Tcl_FSGetTranslatedStringPath_TCL_DECLARED
 /* 476 */
-EXTERN const char*	Tcl_FSGetTranslatedStringPath (Tcl_Interp * interp,
-				Tcl_Obj* pathPtr);
+EXTERN const char *	Tcl_FSGetTranslatedStringPath (Tcl_Interp * interp,
+				Tcl_Obj * pathPtr);
 #endif
 #ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED
 #define Tcl_FSGetFileSystemForPath_TCL_DECLARED
 /* 477 */
-EXTERN CONST86 Tcl_Filesystem* Tcl_FSGetFileSystemForPath (Tcl_Obj* pathPtr);
+EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath (
+				Tcl_Obj * pathPtr);
 #endif
 #ifndef Tcl_FSGetPathType_TCL_DECLARED
 #define Tcl_FSGetPathType_TCL_DECLARED
@@ -2920,27 +2922,27 @@ EXTERN int		Tcl_EvalTokensStandard (Tcl_Interp * interp,
 #ifndef Tcl_GetTime_TCL_DECLARED
 #define Tcl_GetTime_TCL_DECLARED
 /* 482 */
-EXTERN void		Tcl_GetTime (Tcl_Time* timeBuf);
+EXTERN void		Tcl_GetTime (Tcl_Time * timeBuf);
 #endif
 #ifndef Tcl_CreateObjTrace_TCL_DECLARED
 #define Tcl_CreateObjTrace_TCL_DECLARED
 /* 483 */
-EXTERN Tcl_Trace	Tcl_CreateObjTrace (Tcl_Interp* interp, int level,
-				int flags, Tcl_CmdObjTraceProc* objProc,
+EXTERN Tcl_Trace	Tcl_CreateObjTrace (Tcl_Interp * interp, int level,
+				int flags, Tcl_CmdObjTraceProc * objProc,
 				ClientData clientData,
-				Tcl_CmdObjTraceDeleteProc* delProc);
+				Tcl_CmdObjTraceDeleteProc * delProc);
 #endif
 #ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED
 #define Tcl_GetCommandInfoFromToken_TCL_DECLARED
 /* 484 */
 EXTERN int		Tcl_GetCommandInfoFromToken (Tcl_Command token,
-				Tcl_CmdInfo* infoPtr);
+				Tcl_CmdInfo * infoPtr);
 #endif
 #ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED
 #define Tcl_SetCommandInfoFromToken_TCL_DECLARED
 /* 485 */
 EXTERN int		Tcl_SetCommandInfoFromToken (Tcl_Command token,
-				const Tcl_CmdInfo* infoPtr);
+				const Tcl_CmdInfo * infoPtr);
 #endif
 #ifndef Tcl_DbNewWideIntObj_TCL_DECLARED
 #define Tcl_DbNewWideIntObj_TCL_DECLARED
@@ -3061,10 +3063,10 @@ EXTERN Tcl_Obj *	Tcl_DbNewDictObj (const char * file, int line);
 #ifndef Tcl_RegisterConfig_TCL_DECLARED
 #define Tcl_RegisterConfig_TCL_DECLARED
 /* 505 */
-EXTERN void		Tcl_RegisterConfig (Tcl_Interp* interp,
-				const char* pkgName,
-				const Tcl_Config* configuration,
-				const char* valEncoding);
+EXTERN void		Tcl_RegisterConfig (Tcl_Interp * interp,
+				const char * pkgName,
+				const Tcl_Config * configuration,
+				const char * valEncoding);
 #endif
 #ifndef Tcl_CreateNamespace_TCL_DECLARED
 #define Tcl_CreateNamespace_TCL_DECLARED
@@ -3341,16 +3343,16 @@ EXTERN int		Tcl_GetEnsembleNamespace (Tcl_Interp * interp,
 #ifndef Tcl_SetTimeProc_TCL_DECLARED
 #define Tcl_SetTimeProc_TCL_DECLARED
 /* 552 */
-EXTERN void		Tcl_SetTimeProc (Tcl_GetTimeProc* getProc,
-				Tcl_ScaleTimeProc* scaleProc,
+EXTERN void		Tcl_SetTimeProc (Tcl_GetTimeProc * getProc,
+				Tcl_ScaleTimeProc * scaleProc,
 				ClientData clientData);
 #endif
 #ifndef Tcl_QueryTimeProc_TCL_DECLARED
 #define Tcl_QueryTimeProc_TCL_DECLARED
 /* 553 */
-EXTERN void		Tcl_QueryTimeProc (Tcl_GetTimeProc** getProc,
-				Tcl_ScaleTimeProc** scaleProc,
-				ClientData* clientData);
+EXTERN void		Tcl_QueryTimeProc (Tcl_GetTimeProc ** getProc,
+				Tcl_ScaleTimeProc ** scaleProc,
+				ClientData * clientData);
 #endif
 #ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED
 #define Tcl_ChannelThreadActionProc_TCL_DECLARED
@@ -3361,30 +3363,30 @@ EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc (
 #ifndef Tcl_NewBignumObj_TCL_DECLARED
 #define Tcl_NewBignumObj_TCL_DECLARED
 /* 555 */
-EXTERN Tcl_Obj*		Tcl_NewBignumObj (mp_int* value);
+EXTERN Tcl_Obj *	Tcl_NewBignumObj (mp_int * value);
 #endif
 #ifndef Tcl_DbNewBignumObj_TCL_DECLARED
 #define Tcl_DbNewBignumObj_TCL_DECLARED
 /* 556 */
-EXTERN Tcl_Obj*		Tcl_DbNewBignumObj (mp_int* value, const char* file,
-				int line);
+EXTERN Tcl_Obj *	Tcl_DbNewBignumObj (mp_int * value,
+				const char * file, int line);
 #endif
 #ifndef Tcl_SetBignumObj_TCL_DECLARED
 #define Tcl_SetBignumObj_TCL_DECLARED
 /* 557 */
-EXTERN void		Tcl_SetBignumObj (Tcl_Obj* obj, mp_int* value);
+EXTERN void		Tcl_SetBignumObj (Tcl_Obj * obj, mp_int * value);
 #endif
 #ifndef Tcl_GetBignumFromObj_TCL_DECLARED
 #define Tcl_GetBignumFromObj_TCL_DECLARED
 /* 558 */
-EXTERN int		Tcl_GetBignumFromObj (Tcl_Interp* interp,
-				Tcl_Obj* obj, mp_int* value);
+EXTERN int		Tcl_GetBignumFromObj (Tcl_Interp * interp,
+				Tcl_Obj * obj, mp_int * value);
 #endif
 #ifndef Tcl_TakeBignumFromObj_TCL_DECLARED
 #define Tcl_TakeBignumFromObj_TCL_DECLARED
 /* 559 */
-EXTERN int		Tcl_TakeBignumFromObj (Tcl_Interp* interp,
-				Tcl_Obj* obj, mp_int* value);
+EXTERN int		Tcl_TakeBignumFromObj (Tcl_Interp * interp,
+				Tcl_Obj * obj, mp_int * value);
 #endif
 #ifndef Tcl_TruncateChannel_TCL_DECLARED
 #define Tcl_TruncateChannel_TCL_DECLARED
@@ -3401,29 +3403,30 @@ EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc (
 #ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED
 #define Tcl_SetChannelErrorInterp_TCL_DECLARED
 /* 562 */
-EXTERN void		Tcl_SetChannelErrorInterp (Tcl_Interp* interp,
-				Tcl_Obj* msg);
+EXTERN void		Tcl_SetChannelErrorInterp (Tcl_Interp * interp,
+				Tcl_Obj * msg);
 #endif
 #ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED
 #define Tcl_GetChannelErrorInterp_TCL_DECLARED
 /* 563 */
-EXTERN void		Tcl_GetChannelErrorInterp (Tcl_Interp* interp,
-				Tcl_Obj** msg);
+EXTERN void		Tcl_GetChannelErrorInterp (Tcl_Interp * interp,
+				Tcl_Obj ** msg);
 #endif
 #ifndef Tcl_SetChannelError_TCL_DECLARED
 #define Tcl_SetChannelError_TCL_DECLARED
 /* 564 */
-EXTERN void		Tcl_SetChannelError (Tcl_Channel chan, Tcl_Obj* msg);
+EXTERN void		Tcl_SetChannelError (Tcl_Channel chan, Tcl_Obj * msg);
 #endif
 #ifndef Tcl_GetChannelError_TCL_DECLARED
 #define Tcl_GetChannelError_TCL_DECLARED
 /* 565 */
-EXTERN void		Tcl_GetChannelError (Tcl_Channel chan, Tcl_Obj** msg);
+EXTERN void		Tcl_GetChannelError (Tcl_Channel chan,
+				Tcl_Obj ** msg);
 #endif
 #ifndef Tcl_InitBignumFromDouble_TCL_DECLARED
 #define Tcl_InitBignumFromDouble_TCL_DECLARED
 /* 566 */
-EXTERN int		Tcl_InitBignumFromDouble (Tcl_Interp* interp,
+EXTERN int		Tcl_InitBignumFromDouble (Tcl_Interp * interp,
 				double initval, mp_int * toInit);
 #endif
 #ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
@@ -3441,24 +3444,24 @@ EXTERN int		Tcl_SetNamespaceUnknownHandler (Tcl_Interp * interp,
 #ifndef Tcl_GetEncodingFromObj_TCL_DECLARED
 #define Tcl_GetEncodingFromObj_TCL_DECLARED
 /* 569 */
-EXTERN int		Tcl_GetEncodingFromObj (Tcl_Interp* interp,
-				Tcl_Obj* objPtr, Tcl_Encoding* encodingPtr);
+EXTERN int		Tcl_GetEncodingFromObj (Tcl_Interp * interp,
+				Tcl_Obj * objPtr, Tcl_Encoding * encodingPtr);
 #endif
 #ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED
 #define Tcl_GetEncodingSearchPath_TCL_DECLARED
 /* 570 */
-EXTERN Tcl_Obj*		Tcl_GetEncodingSearchPath (void);
+EXTERN Tcl_Obj *	Tcl_GetEncodingSearchPath (void);
 #endif
 #ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED
 #define Tcl_SetEncodingSearchPath_TCL_DECLARED
 /* 571 */
-EXTERN int		Tcl_SetEncodingSearchPath (Tcl_Obj* searchPath);
+EXTERN int		Tcl_SetEncodingSearchPath (Tcl_Obj * searchPath);
 #endif
 #ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
 #define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
 /* 572 */
 EXTERN const char *	Tcl_GetEncodingNameFromEnvironment (
-				Tcl_DString* bufPtr);
+				Tcl_DString * bufPtr);
 #endif
 #ifndef Tcl_PkgRequireProc_TCL_DECLARED
 #define Tcl_PkgRequireProc_TCL_DECLARED
@@ -3485,14 +3488,14 @@ EXTERN void		Tcl_AppendLimitedToObj (Tcl_Obj * objPtr,
 #define Tcl_Format_TCL_DECLARED
 /* 576 */
 EXTERN Tcl_Obj *	Tcl_Format (Tcl_Interp * interp, const char * format,
-				int objc, Tcl_Obj * const objv[]);
+				int objc, Tcl_Obj *const objv[]);
 #endif
 #ifndef Tcl_AppendFormatToObj_TCL_DECLARED
 #define Tcl_AppendFormatToObj_TCL_DECLARED
 /* 577 */
 EXTERN int		Tcl_AppendFormatToObj (Tcl_Interp * interp,
 				Tcl_Obj * objPtr, const char * format,
-				int objc, Tcl_Obj * const objv[]);
+				int objc, Tcl_Obj *const objv[]);
 #endif
 #ifndef Tcl_ObjPrintf_TCL_DECLARED
 #define Tcl_ObjPrintf_TCL_DECLARED
@@ -3667,6 +3670,12 @@ EXTERN int		Tcl_GetErrorLine (Tcl_Interp * interp);
 /* 606 */
 EXTERN void		Tcl_SetErrorLine (Tcl_Interp * interp, int value);
 #endif
+#ifndef Tcl_TransferResult_TCL_DECLARED
+#define Tcl_TransferResult_TCL_DECLARED
+/* 607 */
+EXTERN void		Tcl_TransferResult (Tcl_Interp * sourceInterp,
+				int result, Tcl_Interp * targetInterp);
+#endif
 
 typedef struct TclStubHooks {
     const struct TclPlatStubs *tclPlatStubs;
@@ -3678,7 +3687,7 @@ typedef struct TclStubs {
     int magic;
     const struct TclStubHooks *hooks;
 
-    int (*tcl_PkgProvideEx) (Tcl_Interp* interp, const char* name, const char* version, ClientData clientData); /* 0 */
+    int (*tcl_PkgProvideEx) (Tcl_Interp * interp, const char * name, const char * version, ClientData clientData); /* 0 */
     CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp * interp, const char * name, const char * version, int exact, ClientData * clientDataPtr); /* 1 */
     void (*tcl_Panic) (const char * format, ...); /* 2 */
     char * (*tcl_Alloc) (unsigned int size); /* 3 */
@@ -3710,7 +3719,7 @@ typedef struct TclStubs {
     int (*tcl_WaitForEvent) (const Tcl_Time * timePtr); /* 13 */
     int (*tcl_AppendAllObjTypes) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 14 */
     void (*tcl_AppendStringsToObj) (Tcl_Obj * objPtr, ...); /* 15 */
-    void (*tcl_AppendToObj) (Tcl_Obj* objPtr, const char* bytes, int length); /* 16 */
+    void (*tcl_AppendToObj) (Tcl_Obj * objPtr, const char * bytes, int length); /* 16 */
     Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
     int (*tcl_ConvertToType) (Tcl_Interp * interp, Tcl_Obj * objPtr, const Tcl_ObjType * typePtr); /* 18 */
     void (*tcl_DbDecrRefCount) (Tcl_Obj * objPtr, const char * file, int line); /* 19 */
@@ -3744,7 +3753,7 @@ typedef struct TclStubs {
     int (*tcl_ListObjLength) (Tcl_Interp * interp, Tcl_Obj * listPtr, int * lengthPtr); /* 47 */
     int (*tcl_ListObjReplace) (Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
     Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
-    Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char* bytes, int length); /* 50 */
+    Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char * bytes, int length); /* 50 */
     Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
     Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
     Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
@@ -3759,7 +3768,7 @@ typedef struct TclStubs {
     void (*tcl_SetListObj) (Tcl_Obj * objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
     void (*tcl_SetLongObj) (Tcl_Obj * objPtr, long longValue); /* 63 */
     void (*tcl_SetObjLength) (Tcl_Obj * objPtr, int length); /* 64 */
-    void (*tcl_SetStringObj) (Tcl_Obj* objPtr, const char* bytes, int length); /* 65 */
+    void (*tcl_SetStringObj) (Tcl_Obj * objPtr, const char * bytes, int length); /* 65 */
     void (*tcl_AddErrorInfo) (Tcl_Interp * interp, const char * message); /* 66 */
     void (*tcl_AddObjErrorInfo) (Tcl_Interp * interp, const char * message, int length); /* 67 */
     void (*tcl_AllowExceptions) (Tcl_Interp * interp); /* 68 */
@@ -3777,10 +3786,10 @@ typedef struct TclStubs {
     void (*tcl_CancelIdleCall) (Tcl_IdleProc * idleProc, ClientData clientData); /* 80 */
     int (*tcl_Close) (Tcl_Interp * interp, Tcl_Channel chan); /* 81 */
     int (*tcl_CommandComplete) (const char * cmd); /* 82 */
-    char * (*tcl_Concat) (int argc, CONST84 char * const * argv); /* 83 */
+    char * (*tcl_Concat) (int argc, CONST84 char *const * argv); /* 83 */
     int (*tcl_ConvertElement) (const char * src, char * dst, int flags); /* 84 */
     int (*tcl_ConvertCountedElement) (const char * src, int length, char * dst, int flags); /* 85 */
-    int (*tcl_CreateAlias) (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int argc, CONST84 char * const * argv); /* 86 */
+    int (*tcl_CreateAlias) (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int argc, CONST84 char *const * argv); /* 86 */
     int (*tcl_CreateAliasObj) (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
     Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType * typePtr, const char * chanName, ClientData instanceData, int mask); /* 88 */
     void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData); /* 89 */
@@ -3896,13 +3905,13 @@ typedef struct TclStubs {
     int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
     int (*tcl_InterpDeleted) (Tcl_Interp * interp); /* 184 */
     int (*tcl_IsSafe) (Tcl_Interp * interp); /* 185 */
-    char * (*tcl_JoinPath) (int argc, CONST84 char * const * argv, Tcl_DString * resultPtr); /* 186 */
+    char * (*tcl_JoinPath) (int argc, CONST84 char *const * argv, Tcl_DString * resultPtr); /* 186 */
     int (*tcl_LinkVar) (Tcl_Interp * interp, const char * varName, char * addr, int type); /* 187 */
     void *reserved188;
     Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
     int (*tcl_MakeSafe) (Tcl_Interp * interp); /* 190 */
     Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
-    char * (*tcl_Merge) (int argc, CONST84 char * const * argv); /* 192 */
+    char * (*tcl_Merge) (int argc, CONST84 char *const * argv); /* 192 */
     Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch * searchPtr); /* 193 */
     void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
     Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags); /* 195 */
@@ -4045,7 +4054,7 @@ typedef struct TclStubs {
     int (*tcl_SetSystemEncoding) (Tcl_Interp * interp, const char * name); /* 316 */
     Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp * interp, const char * part1, const char * part2, Tcl_Obj * newValuePtr, int flags); /* 317 */
     void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
-    void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position); /* 319 */
+    void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event * evPtr, Tcl_QueuePosition position); /* 319 */
     Tcl_UniChar (*tcl_UniCharAtIndex) (const char * src, int index); /* 320 */
     Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
     Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
@@ -4138,13 +4147,13 @@ typedef struct TclStubs {
     Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType * chanTypePtr); /* 409 */
     Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType * chanTypePtr); /* 410 */
     Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType * chanTypePtr); /* 411 */
-    int (*tcl_JoinThread) (Tcl_ThreadId threadId, int* result); /* 412 */
+    int (*tcl_JoinThread) (Tcl_ThreadId threadId, int * result); /* 412 */
     int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
-    int (*tcl_IsChannelRegistered) (Tcl_Interp* interp, Tcl_Channel channel); /* 414 */
+    int (*tcl_IsChannelRegistered) (Tcl_Interp * interp, Tcl_Channel channel); /* 414 */
     void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
     void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
     void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
-    int (*tcl_IsChannelExisting) (const char* channelName); /* 418 */
+    int (*tcl_IsChannelExisting) (const char * channelName); /* 418 */
     int (*tcl_UniCharNcasecmp) (const Tcl_UniChar * ucs, const Tcl_UniChar * uct, unsigned long numChars); /* 419 */
     int (*tcl_UniCharCaseMatch) (const Tcl_UniChar * uniStr, const Tcl_UniChar * uniPattern, int nocase); /* 420 */
     Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable * tablePtr, const char * key); /* 421 */
@@ -4164,7 +4173,7 @@ typedef struct TclStubs {
     int (*tcl_GetMathFuncInfo) (Tcl_Interp * interp, const char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr); /* 435 */
     Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp * interp, const char * pattern); /* 436 */
     Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); /* 437 */
-    int (*tcl_DetachChannel) (Tcl_Interp* interp, Tcl_Channel channel); /* 438 */
+    int (*tcl_DetachChannel) (Tcl_Interp * interp, Tcl_Channel channel); /* 438 */
     int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
     int (*tcl_FSCopyFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 440 */
     int (*tcl_FSCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); /* 441 */
@@ -4183,35 +4192,35 @@ typedef struct TclStubs {
     int (*tcl_FSStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 454 */
     int (*tcl_FSAccess) (Tcl_Obj * pathPtr, int mode); /* 455 */
     Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, const char * modeString, int permissions); /* 456 */
-    Tcl_Obj* (*tcl_FSGetCwd) (Tcl_Interp * interp); /* 457 */
+    Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp * interp); /* 457 */
     int (*tcl_FSChdir) (Tcl_Obj * pathPtr); /* 458 */
     int (*tcl_FSConvertToPathType) (Tcl_Interp * interp, Tcl_Obj * pathPtr); /* 459 */
-    Tcl_Obj* (*tcl_FSJoinPath) (Tcl_Obj * listObj, int elements); /* 460 */
-    Tcl_Obj* (*tcl_FSSplitPath) (Tcl_Obj* pathPtr, int * lenPtr); /* 461 */
-    int (*tcl_FSEqualPaths) (Tcl_Obj* firstPtr, Tcl_Obj* secondPtr); /* 462 */
-    Tcl_Obj* (*tcl_FSGetNormalizedPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 463 */
-    Tcl_Obj* (*tcl_FSJoinToPath) (Tcl_Obj * pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
-    ClientData (*tcl_FSGetInternalRep) (Tcl_Obj* pathPtr, const Tcl_Filesystem * fsPtr); /* 465 */
-    Tcl_Obj* (*tcl_FSGetTranslatedPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 466 */
+    Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj * listObj, int elements); /* 460 */
+    Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj * pathPtr, int * lenPtr); /* 461 */
+    int (*tcl_FSEqualPaths) (Tcl_Obj * firstPtr, Tcl_Obj * secondPtr); /* 462 */
+    Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp * interp, Tcl_Obj * pathPtr); /* 463 */
+    Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj * pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
+    ClientData (*tcl_FSGetInternalRep) (Tcl_Obj * pathPtr, const Tcl_Filesystem * fsPtr); /* 465 */
+    Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp * interp, Tcl_Obj * pathPtr); /* 466 */
     int (*tcl_FSEvalFile) (Tcl_Interp * interp, Tcl_Obj * fileName); /* 467 */
-    Tcl_Obj* (*tcl_FSNewNativePath) (const Tcl_Filesystem* fromFilesystem, ClientData clientData); /* 468 */
-    const char* (*tcl_FSGetNativePath) (Tcl_Obj* pathPtr); /* 469 */
-    Tcl_Obj* (*tcl_FSFileSystemInfo) (Tcl_Obj* pathPtr); /* 470 */
-    Tcl_Obj* (*tcl_FSPathSeparator) (Tcl_Obj* pathPtr); /* 471 */
-    Tcl_Obj* (*tcl_FSListVolumes) (void); /* 472 */
+    Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem * fromFilesystem, ClientData clientData); /* 468 */
+    const char * (*tcl_FSGetNativePath) (Tcl_Obj * pathPtr); /* 469 */
+    Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj * pathPtr); /* 470 */
+    Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj * pathPtr); /* 471 */
+    Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
     int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem * fsPtr); /* 473 */
     int (*tcl_FSUnregister) (const Tcl_Filesystem * fsPtr); /* 474 */
     ClientData (*tcl_FSData) (const Tcl_Filesystem * fsPtr); /* 475 */
-    const char* (*tcl_FSGetTranslatedStringPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 476 */
-    CONST86 Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) (Tcl_Obj* pathPtr); /* 477 */
+    const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp * interp, Tcl_Obj * pathPtr); /* 476 */
+    CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj * pathPtr); /* 477 */
     Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj * pathPtr); /* 478 */
     int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
     void (*tcl_FSMountsChanged) (const Tcl_Filesystem * fsPtr); /* 480 */
     int (*tcl_EvalTokensStandard) (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); /* 481 */
-    void (*tcl_GetTime) (Tcl_Time* timeBuf); /* 482 */
-    Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp* interp, int level, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc* delProc); /* 483 */
-    int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo* infoPtr); /* 484 */
-    int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo* infoPtr); /* 485 */
+    void (*tcl_GetTime) (Tcl_Time * timeBuf); /* 482 */
+    Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp * interp, int level, int flags, Tcl_CmdObjTraceProc * objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc * delProc); /* 483 */
+    int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo * infoPtr); /* 484 */
+    int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo * infoPtr); /* 485 */
     Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char * file, int line); /* 486 */
     int (*tcl_GetWideIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_WideInt * widePtr); /* 487 */
     Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
@@ -4231,7 +4240,7 @@ typedef struct TclStubs {
     int (*tcl_DictObjRemoveKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *const * keyv); /* 502 */
     Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
     Tcl_Obj * (*tcl_DbNewDictObj) (const char * file, int line); /* 504 */
-    void (*tcl_RegisterConfig) (Tcl_Interp* interp, const char* pkgName, const Tcl_Config* configuration, const char* valEncoding); /* 505 */
+    void (*tcl_RegisterConfig) (Tcl_Interp * interp, const char * pkgName, const Tcl_Config * configuration, const char * valEncoding); /* 505 */
     Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, const char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 506 */
     void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 507 */
     int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 508 */
@@ -4278,32 +4287,32 @@ typedef struct TclStubs {
     int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj ** unknownListPtr); /* 549 */
     int (*tcl_GetEnsembleFlags) (Tcl_Interp * interp, Tcl_Command token, int * flagsPtr); /* 550 */
     int (*tcl_GetEnsembleNamespace) (Tcl_Interp * interp, Tcl_Command token, Tcl_Namespace ** namespacePtrPtr); /* 551 */
-    void (*tcl_SetTimeProc) (Tcl_GetTimeProc* getProc, Tcl_ScaleTimeProc* scaleProc, ClientData clientData); /* 552 */
-    void (*tcl_QueryTimeProc) (Tcl_GetTimeProc** getProc, Tcl_ScaleTimeProc** scaleProc, ClientData* clientData); /* 553 */
+    void (*tcl_SetTimeProc) (Tcl_GetTimeProc * getProc, Tcl_ScaleTimeProc * scaleProc, ClientData clientData); /* 552 */
+    void (*tcl_QueryTimeProc) (Tcl_GetTimeProc ** getProc, Tcl_ScaleTimeProc ** scaleProc, ClientData * clientData); /* 553 */
     Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType * chanTypePtr); /* 554 */
-    Tcl_Obj* (*tcl_NewBignumObj) (mp_int* value); /* 555 */
-    Tcl_Obj* (*tcl_DbNewBignumObj) (mp_int* value, const char* file, int line); /* 556 */
-    void (*tcl_SetBignumObj) (Tcl_Obj* obj, mp_int* value); /* 557 */
-    int (*tcl_GetBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 558 */
-    int (*tcl_TakeBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 559 */
+    Tcl_Obj * (*tcl_NewBignumObj) (mp_int * value); /* 555 */
+    Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int * value, const char * file, int line); /* 556 */
+    void (*tcl_SetBignumObj) (Tcl_Obj * obj, mp_int * value); /* 557 */
+    int (*tcl_GetBignumFromObj) (Tcl_Interp * interp, Tcl_Obj * obj, mp_int * value); /* 558 */
+    int (*tcl_TakeBignumFromObj) (Tcl_Interp * interp, Tcl_Obj * obj, mp_int * value); /* 559 */
     int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
     Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType * chanTypePtr); /* 561 */
-    void (*tcl_SetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj* msg); /* 562 */
-    void (*tcl_GetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj** msg); /* 563 */
-    void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj* msg); /* 564 */
-    void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj** msg); /* 565 */
-    int (*tcl_InitBignumFromDouble) (Tcl_Interp* interp, double initval, mp_int * toInit); /* 566 */
+    void (*tcl_SetChannelErrorInterp) (Tcl_Interp * interp, Tcl_Obj * msg); /* 562 */
+    void (*tcl_GetChannelErrorInterp) (Tcl_Interp * interp, Tcl_Obj ** msg); /* 563 */
+    void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj * msg); /* 564 */
+    void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj ** msg); /* 565 */
+    int (*tcl_InitBignumFromDouble) (Tcl_Interp * interp, double initval, mp_int * toInit); /* 566 */
     Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp * interp, Tcl_Namespace * nsPtr); /* 567 */
     int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * handlerPtr); /* 568 */
-    int (*tcl_GetEncodingFromObj) (Tcl_Interp* interp, Tcl_Obj* objPtr, Tcl_Encoding* encodingPtr); /* 569 */
-    Tcl_Obj* (*tcl_GetEncodingSearchPath) (void); /* 570 */
-    int (*tcl_SetEncodingSearchPath) (Tcl_Obj* searchPath); /* 571 */
-    const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString* bufPtr); /* 572 */
+    int (*tcl_GetEncodingFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Encoding * encodingPtr); /* 569 */
+    Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
+    int (*tcl_SetEncodingSearchPath) (Tcl_Obj * searchPath); /* 571 */
+    const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString * bufPtr); /* 572 */
     int (*tcl_PkgRequireProc) (Tcl_Interp * interp, const char * name, int objc, Tcl_Obj *const objv[], ClientData * clientDataPtr); /* 573 */
     void (*tcl_AppendObjToErrorInfo) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 574 */
     void (*tcl_AppendLimitedToObj) (Tcl_Obj * objPtr, const char * bytes, int length, int limit, const char * ellipsis); /* 575 */
-    Tcl_Obj * (*tcl_Format) (Tcl_Interp * interp, const char * format, int objc, Tcl_Obj * const objv[]); /* 576 */
-    int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, const char * format, int objc, Tcl_Obj * const objv[]); /* 577 */
+    Tcl_Obj * (*tcl_Format) (Tcl_Interp * interp, const char * format, int objc, Tcl_Obj *const objv[]); /* 576 */
+    int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, const char * format, int objc, Tcl_Obj *const objv[]); /* 577 */
     Tcl_Obj * (*tcl_ObjPrintf) (const char * format, ...); /* 578 */
     void (*tcl_AppendPrintfToObj) (Tcl_Obj * objPtr, const char * format, ...); /* 579 */
     int (*tcl_CancelEval) (Tcl_Interp * interp, Tcl_Obj * resultObjPtr, ClientData clientData, int flags); /* 580 */
@@ -4333,6 +4342,7 @@ typedef struct TclStubs {
     int (*tcl_ParseArgsObjv) (Tcl_Interp * interp, const Tcl_ArgvInfo * argTable, int * objcPtr, Tcl_Obj *const * objv, Tcl_Obj *** remObjv); /* 604 */
     int (*tcl_GetErrorLine) (Tcl_Interp * interp); /* 605 */
     void (*tcl_SetErrorLine) (Tcl_Interp * interp, int value); /* 606 */
+    void (*tcl_TransferResult) (Tcl_Interp * sourceInterp, int result, Tcl_Interp * targetInterp); /* 607 */
 } TclStubs;
 
 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
@@ -6833,6 +6843,10 @@ extern const TclStubs *tclStubsPtr;
 #define Tcl_SetErrorLine \
 	(tclStubsPtr->tcl_SetErrorLine) /* 606 */
 #endif
+#ifndef Tcl_TransferResult
+#define Tcl_TransferResult \
+	(tclStubsPtr->tcl_TransferResult) /* 607 */
+#endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
 
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 15cfa2d..bb41803 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubInit.c,v 1.168 2008/12/02 19:40:41 dgp Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.169 2008/12/05 14:28:10 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -1132,6 +1132,7 @@ static const TclStubs tclStubs = {
     Tcl_ParseArgsObjv, /* 604 */
     Tcl_GetErrorLine, /* 605 */
     Tcl_SetErrorLine, /* 606 */
+    Tcl_TransferResult, /* 607 */
 };
 
 /* !END!: Do not edit above this line. */