From 2fcbb37a1b10ceee78d909cf4dc036e54651d058 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 7 Jun 2005 21:14:22 +0000
Subject:         * generic/tclObj.c:     Restored registration of the
 "procbody"         Tcl_ObjType, as required by the tclcompiler application.

---
 ChangeLog        | 19 ++++++++-----------
 generic/tclObj.c |  3 ++-
 2 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index aa7a75e..145e740 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2005-06-07  Don Porter  <dgp@users.sourceforge.net>
+
+	* generic/tclObj.c:	Restored registration of the "procbody"
+	Tcl_ObjType, as required by the tclcompiler application.
+
+	* generic/tclDecls.h:		make genstubs
+	* generic/tclStubInit.c:
+
 2005-06-07  Donal K. Fellows  <dkf@users.sf.net>
 
 	* tests/chan.test (chan-15.2): Added real test of truncation.
@@ -6,23 +14,12 @@
 	* generic/tcl.h:			     channel type versions
 	* doc/CrtChannel.3:			     following advice from AKu
 
-2005-06-07  Donal K. Fellows  <donal.k.fellows@manchester.ac.uk>
-
 	Bump patchlevel to a4 to distinguish from a3 release.
 
-2005-06-07  Donal K. Fellows  <dkf@users.sf.net>
-
 	* generic/tclInt.h (INTERP_TRACE_IN_PROGRESS): Add flag so the error
 	* generic/tclIndexObj.c (Tcl_WrongNumArgs):    messages from ensembles
 	* generic/tclIOCmd.c (Tcl_ReadObjCmd):	       can be correct.
 
-2005-06-07  Don Porter  <dgp@users.sourceforge.net>
-
-	* generic/tclDecls.h:		make genstubs
-	* generic/tclStubInit.c:
-
-2005-06-07  Donal K. Fellows  <dkf@users.sf.net>
-
 	TIP#208 IMPLEMENTATION
 
 	* library/init.tcl: Create the chan ensemble.
diff --git a/generic/tclObj.c b/generic/tclObj.c
index 60dcf8e..d70ae28 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclObj.c,v 1.86 2005/06/06 20:54:18 kennykb Exp $
+ * RCS: @(#) $Id: tclObj.c,v 1.87 2005/06/07 21:14:29 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -388,6 +388,7 @@ TclInitObjSubsystem()
     Tcl_RegisterObjType(&tclNsNameType);
     Tcl_RegisterObjType(&tclCmdNameType);
     Tcl_RegisterObjType(&tclRegexpType);
+    Tcl_RegisterObjType(&tclProcBodyType);
 
 #ifdef TCL_COMPILE_STATS
     Tcl_MutexLock(&tclObjMutex);
-- 
cgit v0.12