* generic/tclInt.h: Moved TIP#268's field 'packagePrefer' to the

	  end of the structure, for better backward compatibility.


FossilOrigin-Name: 7c38f092063edab4ef514453abc4abd1e0577d1e

2 files changed, 14 insertions, 11 deletions

diff --git a/ChangeLog b/ChangeLog
index aedcec2..c5fe89e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2006-09-22  Andreas Kupries  <andreask@activestate.com>
 
+	* generic/tclInt.h: Moved TIP#268's field 'packagePrefer' to the
+	  end of the structure, for better backward compatibility.
+
+2006-09-22  Andreas Kupries  <andreask@activestate.com>
+
 	TIP#268 IMPLEMENTATION
 
 	* generic/tclDecls.h:    Regenerated from tcl.decls.
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 7b230dc..9a0edf7 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -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: tclInt.h,v 1.276 2006/09/22 18:13:28 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.277 2006/09/22 22:32:07 andreas_kupries Exp $
  */
 
 #ifndef _TCLINT
@@ -1383,16 +1383,6 @@ typedef struct Interp {
 				 * commands for packages that aren't described
 				 * in packageTable. Ckalloc'ed, may be
 				 * NULL. */
-
-    /*
-     * TIP #268.
-     * The currently active selection mode,
-     * i.e the package require preferences.
-     */
-
-    int packagePrefer;          /* Current package selection mode.
-				 */
-
     /*
      * Miscellaneous information:
      */
@@ -1535,6 +1525,14 @@ typedef struct Interp {
 				 * code returned by a channel operation. */
 
     /*
+     * TIP #268.
+     * The currently active selection mode,
+     * i.e the package require preferences.
+     */
+
+    int packagePrefer;          /* Current package selection mode.
+				 */
+    /*
      * Statistical information about the bytecode compiler and interpreter's
      * operation.
      */