From 68d397d14ec547c033d0f9b5df612e06f638fef1 Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Fri, 22 Sep 2006 22:31:34 +0000 Subject: * generic/tclInt.h: Moved TIP#268's field 'packagePrefer' to the end of the structure, for better backward compatibility. --- ChangeLog | 5 +++++ generic/tclInt.h | 20 ++++++++++---------- 2 files changed, 15 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3bde052..dda014d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-09-22 Andreas Kupries + + * generic/tclInt.h: Moved TIP#268's field 'packagePrefer' to the + end of the structure, for better backward compatibility. + 2006-09-22 Andreas Kupries * generic/tclPkg.c (Tcl_PkgRequireEx): Changes handling of the diff --git a/generic/tclInt.h b/generic/tclInt.h index 4fa0732..b5328ac 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.118.2.23 2006/09/22 01:26:23 andreas_kupries Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.118.2.24 2006/09/22 22:31:34 andreas_kupries Exp $ */ #ifndef _TCLINT @@ -1295,15 +1295,6 @@ typedef struct Interp { * require" commands for packages that * aren't described in packageTable. * Malloc'ed, may be NULL. */ -#ifdef TCL_TIP268 - /* - * TIP #268. - * The currently active selection mode, - * i.e the package require preferences. - */ - - int packagePrefer; /* Current package selection mode. */ -#endif /* * Miscellaneous information: @@ -1372,6 +1363,15 @@ typedef struct Interp { int tracesForbiddingInline; /* Count of traces (in the list headed by * tracePtr) that forbid inline bytecode * compilation */ +#ifdef TCL_TIP268 + /* + * TIP #268. + * The currently active selection mode, + * i.e the package require preferences. + */ + + int packagePrefer; /* Current package selection mode. */ +#endif /* * Statistical information about the bytecode compiler and interpreter's * operation. -- cgit v0.12